用OPEN方法打开另一文件，然后直接操作另一个文件即可
Sub 物料()
Dim wb
Set wb = Workbooks.Open("F:\2017\汇总\物衡拍料.xls"咐塌羡)
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("物料").Range("a1")
wb.Close False
MsgBox "物料更新完毕"
End Sub
段代码打"F:\2017\汇总\物料.xls"工作簿并sheet1数据复衫梁制前工作簿物料工作表参考
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024