如何在Outlook VBA中调用Excel的WorksheetFunction.Substitute方法？

方法1：通过绑定Excel对象调用Substitute #

早期绑定（需引用Excel库） #

• 操作步骤：打开Outlook VBA编辑器（Alt+F11），点击「工具」→「引用」，勾选「Microsoft Excel XX.X Object Library」（XX.X对应你的Excel版本）
• 代码示例：

Dim xlApp As Excel.Application
Dim string1 As String, string2 As String

string1 = "hello world"
Set xlApp = New Excel.Application
' 调用Excel的Substitute函数
string2 = xlApp.WorksheetFunction.Substitute(string1, " ", "")
' 必须手动退出Excel进程，避免残留后台进程
xlApp.Quit
Set xlApp = Nothing

Debug.Print string2 ' 输出：helloworld

后期绑定（无需引用，兼容性更强） #

无需手动添加库引用，通过创建对象的方式调用，适配不同Excel版本：

Dim xlApp As Object
Dim string1 As String, string2 As String

string1 = "hello world"
Set xlApp = CreateObject("Excel.Application")
string2 = xlApp.WorksheetFunction.Substitute(string1, " ", "")
xlApp.Quit
Set xlApp = Nothing

Debug.Print string2

更优方案：使用VBA原生Replace函数（无需依赖Excel） #

Outlook VBA本身内置Replace函数，完全可以替代Excel的Substitute，代码更简洁且不依赖外部程序，更符合你「简洁易维护」的需求：

Dim string1 As String, string2 As String
string1 = "hello world"
string2 = Replace(string1, " ", "")

Debug.Print string2 ' 输出：helloworld

内容的提问来源于stack exchange，提问作者finman69