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), " ", "")