[英]vba script hangs at Workbook.Close
我试图在Visual Basic for Applications中编写一个hello world应用程序,即修改Excel工作表中的单元格。 这里是:
Sub hello()
Dim obj As Object
Dim Workbook As Object
Set obj = CreateObject("Excel.Application")
Set Workbook = obj.Workbooks.Open("C:\Users\gbuday\Desktop\Oktatás\Excel\start.xlsx")
Workbook.Worksheets("Munka1").Range("B3") = "Hello World!"
Workbook.Close
Set Workbook = Nothing
Set obj = Nothing
End Sub
运行时,Excel挂起,我无法停止脚本运行,只能杀死excel进程。 调试它,它挂在Workbook.Close
行。 那条线有什么问题?
问题是你没有给Excel足够的时间来完成它的操作。 通常DoEvents
会解决问题。 另外,为避免混淆,您可能希望将变量命名为“wbk”而不是“Workbook”
Sub hello()
Dim obj As Object, wbk As Object
Set obj = CreateObject("Excel.Application")
Set wbk = obj.Workbooks.Open("C:\Users\gbuday\Desktop\Oktatás\Excel\start.xlsx")
wbk.Worksheets("Munka1").Range("B3") = "Hello World!"
DoEvents
'~~> Change True to False if you do not want to save
wbk.Close SaveChanges:=True
Set wbk = Nothing: Set obj = Nothing
End Sub
它应该是
Workbooks.Close
我还认为“工作簿”是一个保留字,你应该使用类似“wb”的东西。
Dim wb As Workbook
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.