由于一个标签由数字组成，每次我想读取它时都会更改，但是此代码不起作用，并且在StrMyXml.nodeName（无效标识符）处出现错误。目前，我的代码是这样的：
Sub Create_XSD()
Dim StrMyXml As String, MyMap As XmlMap
Dim StrMySchema As String
Dim tempString As String
StrMyXml = "<Translate>"
StrMyXml = StrMyXml & "<Alarms>"
tempString = StrMyXml.nodeName
StrMyXml = StrMyXml & "<" & tempString & ">"
StrMyXml = StrMyXml & "<Nummer>tempString</Nummer>"
StrMyXml = StrMyXml & "<Nummer Diagnosename DE>tempString & Text</Nummer Diagnosename DE>"
StrMyXml = StrMyXml & "<Nummer Diagnosename EN>tempString & Text</Nummer Diagnosename EN>"
StrMyXml = StrMyXml & "</" & tempString & ">"
StrMyXml = StrMyXml & "</Alarms>"
StrMyXml = StrMyXml & "<Alarms></Alarms>"
StrMyXml = StrMyXml & "</Translate>"
' Turn off async loading.
Application.DisplayAlerts = False
' Add the string to the XmlMaps collection.
Set MyMap = ThisWorkbook.XmlMaps.Add(StrMyXml)
Application.DisplayAlerts = True
' Create an empty file and output the schema.
StrMySchema = ThisWorkbook.XmlMaps(1).Schemas(1).XML
Open "D:\Users\F512\Desktop\MySchema.xsd" For Output As #1
Print #1, StrMySchema
Close #1
End Sub
感谢您的帮助！
劳伦兹
您已将StrMyXml的尺寸设置为字符串：
Dim StrMyXml As String
但是然后您尝试：
tempString = StrMyXml.nodeName
这是行不通的，因为字符串没有这样的属性。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句