如何用VBA引用不同目录下工作薄里的内容

阿哩木

案例：
A表的位置在Z盘  (没有文件夹)
B表的位置在桌面  (没有文件夹)

两个表工作薄的名称都为：明细

如何在不打开A表的情况下，把A表A:Z列的内容，引用到B表的A:Z列

请大佬帮帮忙，感谢！

WANT-T

具体的问题需要具体的分析，关键的问题是得找找到问题的关键

lss001

Sub B工作簿获取A工作簿数据()
     Set cnn = CreateObject("adodb.connection")
     Set ret = CreateObject("adodb.recordset")
     
     zPath = "Z:\A.xlsx" '指定文件
     cnn.Open "Provider=Microsoft" & _
         ".Ace.Oledb.12.0;Data Source=" & _
         zPath & ";Extended Properties=" & _
         "'Excel 12.0;Hdr=yes;Imex=2';"
     
     Set ret = cnn.Execute( _
        "Select * From [明细$A:Z]")
     With Worksheets("明细") '写入
     For i = 0 To ret.Fields.Count - 1
         .Cells(1, i + 1) = ret.Fields(i).Name
     Next
     .Range("A2").CopyFromRecordset(ret)
     End With

     ret.Close '关闭释放
     cnn.Close
     Set ret = Nothing
     Set cnn = Nothing
End Sub