在macrosclosures工作簿后,Excel冻结

我想在完成macros执行后closures工作簿。 所以我使用这个代码

Workbooks("RPA 1.xlsm").Close 

但是,RPA 1.xlsmclosures后,另一个活动工作簿冻结,无法closures。 似乎有东西被困住了。

任何人知道为什么

这是你的问题的答案。

使用VBAclosuresExcel应用程序

也许工作簿仍然没有保存,这就是为什么它冻结。 如我错了请纠正我。 谢谢。

以这个例子:

 Const xlAscending = 1 Const xlYes = 1 Dim filePath filePath = "C:\Users\book1.xlsx" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False Dim objWorkbook Set objWorkbook = _ objExcel.Workbooks.Open(filePath) Set objWorksheet = objWorkbook.Worksheets(1) Set objRange = objWorksheet.UsedRange Set objRange2 = objExcel.Range("A1") objRange.Sort objRange2, xlAscending, , , , , , xlYes 'objExcel.Application.DefaultSaveFormat = xlWorkbookNormal' objWorkbook.Save objExcel.Application.Quit Set objExcel = Nothing 

请参阅以下内容:

  objWorkbook.Save objExcel.Application.Quit Set objExcel = Nothing objExcel.Visible = False objExcel.DisplayAlerts = False 

Visible = false意味着excel不会打开

DisplayAlerts = false允许您忽略当您尝试更改Excel时popup的msgBox。

前两个命令是closuresexcel文件。

希望一切都清楚,让我知道如果你有更多的问题