使用 VBA 在循环中跨文件夹复制和粘贴

Question

我正在尝试编写一个循环，将一系列数据从一个工作簿复制并粘贴到另一个工作簿。我遇到错误'Select Sheet method not proper' 或任何错误消息。这是我目前所拥有的：

folderpath="insert folder path here"
Filename = Dir(folderPath)
Do While Filename <> ""

Set wb = Workbooks.Open(folderPath & Filename)

wb.Worksheets("Outcomes & Factors Rankings").Select
Range("A3", Range("A3").End(xlDown).Offset(0, 6)).Copy
ThisWorkbook.Worksheets("OutcomeFactorRankings").Select
Range("A1").End(xlDown).Offset(1, 0).Select.Paste

wb.Close

Loop

Answer 1

尝试缩进你的代码，你不需要代码中的所有选择，简化，类似的东西应该可以解决你的问题：

folderPath = "insert folder path here"
    Filename = Dir(folderPath)

    Do While Filename <> ""
        Set wb = Workbooks.Open(folderPath & Filename)
        wb.Worksheets("Outcomes & Factors Rankings").Range("A3", Range("A3").End(xlDown).Offset(0, 6)).Copy
        ThisWorkbook.Worksheets("OutcomeFactorRankings").Range("A1").End(xlDown).Offset(1, 0).Paste
        wb.Close
    Loop