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

Question

我是VBA初学者......

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

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

我怎么能完成这样的事情？

最诚挚的问候！

Answer 1

我从另一个工作簿中获取数据有四种方法。

• ExecuteExcel4Macro
• ADODB
• Pulling Data from a closed workbook
• 打开工作簿以从
中提取数据

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