从关闭的工作簿宏中提取数据

Question

我一直在使用宏从关闭的工作簿中提取数据时遇到问题。

上图是主工作簿，我想将宏插入其中。在单元格 A1 中，您可以看到有一个文件名位置 - 这是我要从中提取数据的已关闭辅助工作簿的位置。

我希望宏获取单元格 A1 中存在的位置，复制已关闭工作簿中的单元格 A1:J5000，然后将这些从 A7 开始粘贴到此工作簿中（即 A7:J5007）。文件名位置存在于 A1 中的原因是因为这将发生变化；但是我希望宏始终采用 A1 中显示的位置（例如，如果 A1 要从 '...\test00218_data.csv' 更改为 '...\test00001_data.csv' 那么我希望宏从新位置 test00001 获取数据）。

从那时起，我编写了一个宏，我相信它会打开所有名为“Raw Data x”的工作表，并将所需的数据粘贴到主工作表的适当区域；代码如下：

Sub PullClosedData()

Dim filePath As String

For x = 1 To 1 Step 1

    filePath = Sheets("Raw Data " & x).Cells(1, 1).Value

    Workbooks.Open Filename:=filePath

    Sheets("Raw Data 1").Range("A7:J2113").Value = ActiveWorkbook.ActiveSheet.Range("A1:J2107")
Next x

End Sub

当我运行它时，我得到一个运行时错误 9（超出范围）。我相信这与脚本的“ActiveWorkbook.ActiveSheet”部分有关，但我不确定如何重写它并避免错误。

Answer 1

首先，不要将路径粘贴到您计划覆盖的单元格中。相反，创建一个包含重要输入参数的单独工作表（参见下面的示例；我称该工作表为“系统”）。

下面的代码从源书中的工作簿“原始数据 1”到“原始数据 3”中提取数据。

• 确保在变量（TargetWb 和 SourceWb）中正确定义工作簿。
• 在引用工作表时，请务必在使用多个工作簿时指定它所在的工作簿（例如 TargetWb.ActiveWorksheet，而不仅仅是 ActiveWorksheet）

.

Sub PullClosedData()

    Dim filePath As String
    Dim SourceWb As Workbook
    Dim TargetWb As Workbook

    Set TargetWb = ActiveWorkbook

    filePath = TargetWb.Sheets("System").Range("A1").Value
    Set SourceWb = Workbooks.Open(filePath)

    For i = 1 To 3
        SourceWb.Sheets("Raw Data " & i).Range("A1:J5000").Copy Destination:=TargetWb.Sheets("Raw Data " & i).Range("A1:J5000")
    Next i

    SourceWb.Close

    MsgBox "All done!"

End Sub