excel - 从另一个工作簿获取特定数据

Question

我是VBA初学者...

假设我有一个“客户”工作簿，其中 sheet1 包含我的客户姓名。假设我还有另一个“CustomerData”工作簿，其中每张表都包含有关每个特定客户的数据。即“CustomerData”中的 sheet1 涉及“Customers”工作簿中的 customer1。

我希望能够点击“客户”工作簿中的每个客户，并从“客户数据”工作簿中获取有关该客户的特定数据。

我怎么能做到这样的事情？

此致！

Answer 1

我知道从另一个工作簿获取数据的方法有 4 种。

• 执行Excel4宏
• ADODB
• 从关闭的工作簿中提取数据
• 打开工作簿以从中提取数据

Sub OpenWorkbookToPullData()

    Dim path As String
    path = "C:\users\administrator\desktop\excelFile.xlsx"

    Dim currentWb As Workbook
    Set currentWb = ThisWorkbook

    Dim openWb As Workbook
    Set openWb = Workbooks.Open(path)

    Dim openWs As Worksheet
    Set openWs = openWb.Sheets("Sheet1")

    currentWb.Sheets("Sheet1").Range("A1") = openWs.Range("A1")

    openWb.Close (False)

End Sub