Question

这正是我想要的，但在根据我的需要更改文件夹路径文件名等后，它无法正常工作。

我的工作簿路径为C：\ Users \ navinc \ Desktop \
我的文件名是test（2）
我的工作表名称是主项目列表
我的目标文件位于文件夹路径C：\ Users \ navinc \ Desktop \ test \
错误消息：＆＃34;下标超出范围＆＃34;我有什么遗失的吗？

我的代码：

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

似乎if-else没有名为“主项目列表”的工作表？

如果您不知道目标表名称是什么，那么这将是棘手的，除非（例如）它始终是您想要的第一个工作表，在这种情况下您可以使用：

switch

宏将数据从一个工作簿复制到特定文件夹中的多个工作簿

1 个答案: