用於將數據從一個工作簿復制到特定文件夾中的多個工作簿的宏

Question

這正是我想要的，但是根據我的需要更改了文件夾路徑文件名后，它不起作用。

• 我的工作簿的路徑是C：\\ Users \\ navinc \\ Desktop \\
• 我的文件名為test（2）
• 我的工作表名稱是“主項目列表”
• 我的目標文件在文件夾路徑C：\\ Users \\ navinc \\ Desktop \\ test \\
• 錯誤消息：“下標超出范圍”我缺少什么嗎？

我的代碼：

Sub Macro1()
   Dim file As String
   Dim myPath As String
   Dim wb As Workbook
   Dim rng As Range

   Dim wbMaster As Workbook
   'if master workbook already opened
   'Set wbMaster = Workbooks("test(2).xlsx")
   'if master workbook is not opened
   Set wbMaster = Workbooks.Open("C:\Users\navinc\Desktop\test(2).xlsx")

   Set rng = wbMaster.Sheets("Master Project list").Range("A1:D1")

   myPath = "C:\Users\navinc\Desktop\test\" ' note there is a back slash in the end
   file = Dir(myPath & "*.xlsx*")
   While (file <> "")

        Set wb = Workbooks.Open(myPath & file)
        rng.Copy
        With wb.Worksheets("Master Project list").Range("A1")
            .PasteSpecial xlPasteColumnWidths
            .PasteSpecial xlPasteAll
        End With

        wb.Close SaveChanges:=True
        Set wb = Nothing

        file = Dir
    Wend

    Application.CutCopyMode = False
End Sub

Answer 1

似乎wb沒有名為“ Master Project list”的工作表？

如果您不知道目標工作表名稱是什么，那將很棘手，除非（例如）它始終是您想要的第一個工作表，在這種情況下，您可以使用：

With wb.Worksheets(1).Range("A1")