Excel VBA 从外部工作簿取数的5种方法

'=======================================================
'1、循环单元格取数,效率最低，不可取，初学者易犯
'2、区域相等取数
'3、复制粘贴取数
'4、借助数组取数
'————以上4种都需要打开外部工作簿
'5、宏表函数取数（不打开工作簿）
'=======================================================
Private Sub GetValueFromOpenedWorkbook()
'打开工作簿取数
    MyWorkbook As Workbook
    Dim MyArry As Variant
    Set MyWorkbook = Application.Workbooks.Open("D:\外部工作表.xlsx")

    '方法1：
    '    Dim i As Integer, j As Integer
    '    n2 = MyWorkbook.Sheets.Count
    '    For i = 7 To 56
    '        For j = 4 To 10
    '            Sheets("外部工作表").Cells(i, j) = MyWorkbook.Sheets("外部工作表").Cells(i, j)
    '        Next j
    '    Next i
    '方法2：
    '    ThisWorkbook.Sheets("外部工作表").Range("d5:j56").Value = MyWorkbook.Sheets("外部工作表").Range("d5:j56").Value
    '方法3：
    '    ThisWorkbook.Sheets("外部工作表").Range("d5:j56").Copy
    '    MyWorkbook.Sheets("外部工作表").Range("d5").PasteSpecial Paste:=xlPasteValues
    '方法4：
    MyArry = MyWorkbook.Sheets("外部工作表").Range("d5:j56").Value
    ThisWorkbook.Sheets("外部工作表").Range("d5:j56") = MyArry
    MyWorkbook.Close SaveChanges:=False
    Set MyWorkbook = Nothing
End Sub 

'方法5：
Sub GetValueFromClosedWorkbook()
    '不用打开工作簿取数
    p = "D:\"
    f = "外部工作表.xlsx"
    s = "外部工作表"
    Application.ScreenUpdating = False
    For r =  To
        For c =  To
            a = Cells(r, c).Address
            Cells(r, c) = GetValue(p, f, s, a)
        Next c
    Next r
    Application.ScreenUpdating = True
End Sub

Private Function GetValue(path, file, sheet, ref)
    '   从未打开的Excel文件中检索数据
    Dim arg As String
    '   确保该文件存在
    If Right(path, ) <> "" Then path = path & ""
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If
    '   创建变量
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
    '   执行XLM 宏
    GetValue = ExecuteExcel4Macro(arg)
End Function