使用Excel VBA，如何在第二个工作簿中的“ thisworkbook.close”事件之后使我的原始代码继续执行？

Question

In Excel 2007, I have a sheet with a list of other Excel documents, all of which have their own VBA. My code opens the first workbook on the list, lets its vba run, then when it has completed, marks it as complete, and opens the next workbook in the list.

All this works fine unless I let one of the other workboks close itself with 'thisworkbook.close'. This stops the VBA running in the original workbook, as well as itself. If I comment this line out, it all works, but I would rather keep just the master workbook and one sub workbook open at one time.

Also, it is unpractical in this case to move all the VBA to the master workbook.

The code before is a highly simplified version to show the issue:

Workbook1's code:

Sub RunReports()

    Dim wkb1 As Workbook
    Dim wks1 As Worksheet
    Dim lngR As Long
    Dim strReport As String

    Set wkb1 = ThisWorkbook
    Set wks1 = wkb1.Sheets(strDay)

    For lngR = 4 To 1048576
        strReport = wks1.Cells(lngR, 1).Value
        'open the report. Its own VBA will take care of everything else
        Workbooks.Open strReport
        'mark the report as complete
        wks1.Cells(lngR, 2).Value = "done"
    Next lngR
End Sub

the code in the worksheets that are opened:

Private Sub Workbook_Open()

    ThisWorkbook.Sheets("Sheet1").Cells(1, 1).Value = Now()
    ThisWorkbook.Save
    Application.Wait (Now() + TimeValue("00:00:05"))
    ThisWorkbook.Close

End Sub

If I comment out 'thisworkbook.close', it will open them all, update the time they were opened, and save them. If not, it does everything up to the first 'thisworkbook.close', closes the first sub workbook, and stops all VBA execution.

Does anyone have any ideas how to keep the "master" workbook's vba code running after the "sub" workbook's code has finished, when the 'sub' workbook's code contains a 'thisworkbook.close' (edited to make the question clear)

Answer 1

Use standard COM ways of doing things. Take a reference to each workbook (not excel.application) using GetObject(filename) . Do what you want then don't close it in sub book, but set the reference to nothing in your master (which happens when you do set exceldoc = nothing or reach an End Function/Sub ). Don't do both as that's voodoo programming.