不打开表格取其它工作表的数据：
Sub a()
Dim wb As Workbook
Dim str, x
str = "D:\d\123.xlsx"
Set wb = GetObject(str) '取得123这个文件
x = wb.Sheets(1).Cells(1, 1) '取得123文件A1的值
Sheets(1).Range("b1") = x '把值取出来放到新的工作表
End Sub
用PQ
Power Query查询，不用打开文件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024