如何在其他Excel VBA中打開工作簿

Question

我有一個方法Do Folder(Folder) ，該方法用於遍歷子文件夾，並且在此方法中，每個文件都符合我要編輯工作簿的正確條件。 但是，當我找到正確的文件夾時，會出現錯誤，提示該文件不存在。 這是代碼：

    Sub DoFolder(Folder)
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        If File.Type = "Microsoft Excel Macro-Enabled Worksheet" Then

            Dim wb As Workbook
            Dim ws As Worksheet


            Set wb = Workbooks.Open(Filename:=File.Path, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Editable:=True)
            Set ws = wb.Worksheets(1)
            ws.Range("A1").Interior.ColorIndex = 1
            wb.Close SaveChanges:=True


        Else

        End If

    Next
End Sub

這是放大的問題：

        Set wb = Workbooks.Open(Filename:=File.Path, ReadOnly:=False,  IgnoreReadOnlyRecommended:=True, Editable:=True)
        Set ws = wb.Worksheets(1)
        ws.Range("A1").Interior.ColorIndex = 1
        wb.Close SaveChanges:=True

出於任何原因，調試器將wb顯示為Nothing，這可能是問題所在，但如何解決？

Answer 1

在工具欄和調試模式中包括一個附加窗口，請參見文件View\\Locals Window 。 它們可能是臨時的（現在已打開）。 將該文件命名為~$ 。 剪切臨時文件，例如：

If Mid ([filename], 1, 2) <> "~$" Then