當前位置:首頁 » 文件管理 » excelvba關閉excel文件夾

excelvba關閉excel文件夾

發布時間: 2022-11-13 11:15:03

A. vba如何關閉一個指定excel文件

如果a是b通過vba調用excel application打開的, 那代碼關閉它很容易
如果不是, 那需要調用windows API遍歷目前所有進程, 然後判斷哪個excel進程是需要關閉的, 關閉即可

B. VBA語言怎樣單獨關閉一個EXCEL文件

用ThisWorkbook.SaveCopyAs ()另存文件後就不會打開剛存的文件,可以繼續處理原來的文件

C. 請幫修改VBA代碼,如何關閉Excel

這是因為你的代碼中,只是關閉了一個Excel文件。

事實上,應該關閉整個Excel軟體。

VBA代碼可以修改為:


Sub完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
'或者Application.Quit
EndSub

即可。

D. VBA怎樣關閉工作簿和退出Excel

要用VBA來關閉工作簿,用Workbook.Close 方法即可,而要退出Excel,則用Application.Quit 方法:

關閉活動工作簿,如果工作簿有更改,提示是否保存:
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub

如果要避免出現提示,可添加「SaveChanges」參數,如直接保存並關閉工作簿:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
End Sub
將上述代碼中的「True」改為「False」,則直接關閉工作簿而不保存。
關閉所有打開的工作簿,並提示是否保存:
Sub CloseAllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
退出Excel,並提示對有更改的工作簿進行保存:
Sub QuitExcel()
Application.Quit
End Sub
保存活動工作簿並退出Excel:
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Application.Quit
End Sub

下面的代碼在退出Excel時都不會提示是否保存工作簿。
保存所有打開的工作簿並退出Excel:
Sub SaveAllAndQuit()
For Each wbk In Workbooks
wbk.Save
Next
Application.Quit
End Sub
退出Excel,所有的改動都不保存:
Sub QutiAndNoAlerts()
Application.DisplayAlerts = False
Application.Quit
End Sub

E. 如何在excel中使用vba關閉表格

vba關閉工作薄
如果是代碼所在的就是thisworkbook.CLOSE
不過由於工作薄內容有修改的,要有提示窗口是否保存的
此處樓主可以考慮在關閉前保存,或者
thisworkbook.CLOSE
false
如果是其他打開的工作簿,就使用workbooks("文件名").close
另外可以使用application.quit關閉所有工作薄,就是關閉exce應用的

F. VBA 如何關閉指定的多個excel文件,如果指定的多個文件中有幾個並未打開,如何跳過未打開的文件。

您可以參考下面的代碼,看看能否幫到你
Sub closeObject()
Dim xlExcel As Object, wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb4 As Workbook, wb5 As Workbook
Set xlExcel = CreateObject("excel.application")
Set wb1 = xlExcel.workboos("1#站每日庫存表.xlsm")
Set wb2 = xlExcel.workboos("4#站每日庫存表.xlsm")
Set wb3 = xlExcel.workboos("16#站每日庫存表.xlsm")
Set wb4 = xlExcel.workboos("27#站每日庫存表.xlsm")
Set wb5 = xlExcel.workboos("76#站每日庫存表.xlsm")
If wb1 Is Nothing Then
MsgBox "1#站每日庫存表 不存在", vbOKOnly, "===> Warning"
Else
wb1.Close False
End If
If wb2 Is Nothing Then
MsgBox "4#站每日庫存表.x不存在", vbOKOnly, "===> Warning"
Else
wb2.Close False
End If
If wb3 Is Nothing Then
MsgBox "16#站每日庫存表 不存在", vbOKOnly, "===> Warning"
Else
wb3.Close False
End If
If wb4 Is Nothing Then
MsgBox "27#站每日庫存表 不存在", vbOKOnly, "===> Warning"
Else
wb4.Close False
End If
If wb5 Is Nothing Then
MsgBox "76#站每日庫存表 不存在", vbOKOnly, "===> Warning"
Else
wb5.Close False
End If

End Sub

G. excel vba 關閉已打開的文件夾

試下 WINDOWS("文件夾名").close

H. vba 關閉excel文件問題

我的電腦試驗ok,最後保留excel程序界面,workbook關閉。

I. excelvba關閉已打開的文件夾

我來告訴你標准答案!你是要關閉別的工作簿,還是自身呢?自己的話就是activeworkbook.closetrue其他的話,你可以這樣setwk=workbooks.open(路徑)一次打開並定義名稱為WK操作這工作簿wk.closefalse(保存的話就改成true)

熱點內容
傳奇腳本刷怪 發布:2024-10-06 11:57:47 瀏覽:261
c語言輸入小寫輸出大寫 發布:2024-10-06 11:49:57 瀏覽:361
金立手機伺服器異常是什麼原因 發布:2024-10-06 11:49:48 瀏覽:699
python多線程假的 發布:2024-10-06 11:37:09 瀏覽:723
自己動手構造編譯 發布:2024-10-06 11:35:11 瀏覽:550
c語言編譯器win10 發布:2024-10-06 11:33:35 瀏覽:971
安卓手機里的自動備份是什麼 發布:2024-10-06 11:30:16 瀏覽:714
想買電腦配置要注意哪些 發布:2024-10-06 11:21:50 瀏覽:541
滴滴雲存儲 發布:2024-10-06 11:17:37 瀏覽:767
精通android游戲開發 發布:2024-10-06 11:16:54 瀏覽:801