skrypt VBA wisi na Workbook.Close

Question

Próbuję napisać aplikację świat powitania w języku Visual Basic for Applications, a mianowicie, aby zmodyfikować komórki w arkuszu Excel. Oto ona:

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 

Po uruchomieniu zawiesza Excel i nie mogę przestać skrypt działa, tylko zabić proces Excel. Debugując go, zawiesza się na linii Workbook.Close. Jaki jest problem z tą linią?

Answer 1

Problemem jest to, że nie dają Excel wystarczająco dużo czasu, aby zakończyć ją za operacje. Zwykle problem rozwiąże DoEvents. Również w celu uniknięcia nieporozumień, warto wymienić swoją zmienną jako `WBK” zamiast «skoroszyt»

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 

Answer 2

Powinno być

Workbooks.Close 

Myślę też, że «skoroszyt» jest słowem zarezerwowanym i zamiast tego powinieneś użyć czegoś takiego jak "wb".

Dim wb As Workbook