如何使用 VBA 将 & 符号从 Excel 文件写入 XML 文件？

首先，对于 VBA 来说，我是一个完全的新手，但不幸的是我被抛弃了这段代码，我必须处理它......

该应用程序的作用是复制 Excel xlsm 文件中的信息并将其粘贴到 XML 文件中以供进一步处理。

问题是，一切都进行得很顺利，直到我在 Excel 单元格之一中输入了“&”号，即：

我有一个包含“R&D”的单元格，当我将其传递到 XML 文件时，出现以下错误：

Run-time error '91':
Object variable or With block variable not set

请记住，我对 VBA 完全是垃圾。我尝试更改“R&&D”、“R”单元格中的内容&D”但没有骰子。

我相信单元格的值来自这行代码：

oCell.Offset(, 0).Value

但我想要一些关于如何转义＆符号的帮助......

非常感谢，如果您需要更多信息，请告诉我。

我为 Access 编写了以下函数，但它应该可以很好地与 Excel 配合使用。

Function CleanupStr(strXmlValue) As String  
 'description: Replace forbidden char. &'"<> by their Predefined General Entities   
 'author:      Patrick Honorez - www.idevlop.com   
   Dim sValue As String  
   If IsNull(strXmlValue) Then  
     CleanupStr = ""  
   Else  
     sValue = CStr(strXmlValue)  
     sValue = Replace(sValue, "&", "&amp;") 'do ampersand first !  
     sValue = Replace(sValue, "'", "&apos;")  
     sValue = Replace(sValue, """", "&quot;")  
     sValue = Replace(sValue, "<", "&lt;")  
     sValue = Replace(sValue, ">", "&gt;")  
     CleanupStr = sValue  
   End If  
End Function