一个有挑战性，如何用最快的方法将同文件夹下文件中a列 与m列数据获取至本表A、b两列

excelvlookup

分别计算出3步，每一步所耗用的时间，再考虑该优化那一步

lss001

Sub  跨簿读入()
sj = Timer
    Dim Con As String, sql As String
    Ps = ThisWorkbook.Path & "\原始库.xlsx"
    Con = "ODBC;DSN=Excel Files;DBQ="& Ps &""
    For i = 1 To 2
        sql = "SELECT * FROM [Sheet1$ " & Chr(i * 11 + 55) & "1:" & Chr(i * 11 + 55) & "600000]"'原始库Sheet1表b列,m列
        With ActiveSheet.QueryTables.Add(Connection:=Con, Destination:=Cells(1, i ))'读入本簿本表a列,b列
           .CommandText = sql: .Refresh
        End With
    Next
MsgBox "sj:" & Timer - sj'每列60万行数据用时约10秒
End Sub