Question

Outlook VBA调用excel函数

如何在outlook的VBA中调用excel函数，我已经CreateObject("Excel.Application")，但下面语句一直报错“对象不支持该方法”。
Art = 某工作簿.某工作表.Worksheetfunction.Substitute(某工作簿.某工作表.Cells(1, 1), " ", "")

Answer 1

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