Question

我的项目要求我维护用户的日志（使用Application.UserName），该用户使用启用宏的Excel电子表格执行某些操作。我已经尝试使用下面的链接列表中找到的VB示例并修改VBA，但我在Sub的最后一行遇到了错误。任何人都可以指出我更好的VBA示例或指导我朝正确的方向发展吗？

http://msdn.microsoft.com/en-us/library/bb608627.aspx
http://msdn.microsoft.com/en-us/library/bb608612.aspx

这是我目前正在使用的代码。

Private Sub AddCustomXmlPartToWorkbook(ByVal Workbook As Excel.Workbook)
    Dim xmlString As String
    xmlString = _
        "<?xml version=""1.0"" encoding=""utf-8"" ?>" & _
            "<employees xmlns=""http://schemas.microsoft.com/vsto/samples"">" & _
                "<employee>" & _
                    "<name>Karina Leal</name>" & _
                    "<hireDate>1999-04-01</hireDate>" & _
                    "<title>Manager</title>" & _
                "</employee>" & _
            "</employees>"
    Dim employeeXMLPart As Office.CustomXMLPart
    employeeXMLPart = ActiveWorkbook.CustomXMLParts.Add(xmlString)
End Sub

Answer 1

您只需运行添加CustomXMLPart的语句：

Call ActiveWorkbook.CustomXMLParts.Add(xmlString)

它被添加到集合的末尾，因此您可以通过ActiveWorkbook.CustomXMLParts.Count

了解它的位置

是否可以添加XML＆＃34; log＆＃34;在Excel VBA中使用CustomXMLParts？

1 个答案: