☰

VBA 在另一个工作簿中查找样本工作表

tag-icon • tag-icon microsoft-excel
VBA 在另一个工作簿中查找样本工作表

我正在使用以下代码在另一个工作簿中查找数据并收集数据。我已经能够让它工作在书 2.xlsm 中对于我的数据输入表位于 test.xlsx

Sub copydata()
Dim rw As Long, x As Range
Dim extwbk As Workbook, twb As Workbook

Set twb = ThisWorkbook
Set extwbk = Workbooks.Open("/Users/username/desktop/test.xlsx")
Set x = extwbk.Worksheets("Data entry").Range("A1:GZ400")

With twb.Sheets("Sheet1")

    For rw = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(rw, 2) = Application.VLookup(.Cells(rw, 1).Value2, x, 11, False)
    Next rw

End With

With twb.Sheets("sheet1")

         For rw = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(rw, 3) = Application.VLookup(.Cells(rw, 1).Value2, x, 12, False)
    Next rw

End With

    extwbk.Close savechanges:=False
End Sub

我希望能够做的是让 VBA 进行拉动（我猜是使用间接和 vlookup 的组合？）积分数据从 test.xlsx 中的附加工作表中取出并放入 book2 中的整数值。test.xlsx 中的这些工作表名称将根据样本名称而变化，但这些名称将与 book2 的 sheet1 中的名称相同，整数名称也是如此。

有人能帮我指导如何添加此代码并解决这个问题吗？我是 VBA 新手，所以我还在学习。我的实际文档要大得多，所以最后我需要调整参考单元格，所以请尝试解释一些内容的含义，这样我才知道我要做什么。

相关内容