如何使用VBA打开另一个EXCEL并在另一个文件上运行该文件的模块1
展开全部
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数据复制前工作簿物料工作表参考
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数据复制前工作簿物料工作表参考
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询