在当前Excel工作表通过VBA代码提取外部Excel工作簿内容示例。

方法一：例如在当前工作表A1单元格，获取外部Excel工作簿test.xlsx，第一个工作表A1的内容。

Sub Extract_Open01()
    Dim myApp As New Application
    Dim wkSht As Worksheet
    '隐藏Excel
    myApp.Visible = False
    '打开数据文件，并指定工作表对象
    Set wkSht = myApp.Workbooks.Open(ThisWorkbook.Path & "\test.xlsx").Sheets(1)
    [A1] = wkSht.[A1]
    '关闭Excel
    myApp.Quit
    Set wkSht = Nothing
    Set myApp = Nothing    
End Sub

方法二：例如在当前工作表A2单元格，获取外部Excel工作簿test.xlsx，第一个工作表A2的内容。

Sub Extract_Open2()
    Dim myObj As Object
    ' GetObject 返回工作表对象的引用
    Set myObj = GetObject(ThisWorkbook.Path & "\test.xlsx")
    [A2] = myObj.Sheets(1).Cells(2, 1)
    '关闭工作簿
    myObj.Close
    Set myObj = Nothing
End Sub