Dim xlApp as Object
set xlapp = CreateObject("Excel.Application")
'注意这里必须确认“某工作簿”已经打开，否则下面的代码依然会出错！
'通常情况下我会这么做:
Dim wb as object
For wb in xlapp.Workbooks
if wb.name = "某工作不.xls" then Goto WbHasOpened
next
set wb = xlapp.Workbooks.Open("某路径\某工作不.xls")
WbHasOpened:
Art = xlapp.Worksheetfunction.Substitute(wb.Sheets("工作表名").Cells(1, 1), " ", "")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024