Validation EXCEL，通过vba代码从表中的数据创建XML文件

胜过

文件luxom2xlm可在以下位置获得：

还有截图（因为我不允许在其中插入图片，我没有10个声誉…更正似乎我错了）

（不幸的是，我一天只能问一个问题，所以明天我将开始一个新问题 ...) （这不是解决不一致问题的最佳解决方案，但它是迄今为止我找到的唯一一个解决方案——见评论）

一,。vba代码：创建XML文件

我试图找出“如何”使宏直接从表中提取数据，并创建一个XML文件，并通过XSD文件对其进行验证。 手动工作，所以我记录了vba代码

但不幸的是，这似乎不起作用

' REF VBA   - http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=162:excel-vba-calling-sub-procedures-a-functions-placement-in-modules&catid=79&Itemid=475
'     EXCEL - http://excelcentral.com

Sub Export2XML()
'
' export2XML Macro
'
'  REF : http://office.microsoft.com/en-gb/excel-help/export-xml-data-HP010206401.aspx
'

'
    Path_Name = Sheets("info").Range("c21").Value ' Path_Name = E:\luxom.xml

    'work sheet luxom_input
    Sheets("luxom_input").Select

    'where Luxom__Elements_In_Output_Map is the root element of the XSD-file
    'which is used as reference

    'method 1 created via a record macro doesn't work
    ActiveWorkbook.XmlMaps("Luxom__Elements_In_Output_Map").export URL:= _
        "E:\luxom.xml"

    'method 2 
    ActiveWorkbook.XmlMaps("Luxom__Elements_In_Output_Map").export URL:= _
        Path_Name
End Sub

二,。表：公式不工作不一致错误 （我找到的解决方案——见评论）

该公式在EXCEL2010年运行良好，在EXCEL2013年重新输入并识别，但现在我得到一个错误

微软的帮助都没有解决我的问题

表“luxom\U输入”，表“T\U LuxomInput”

• 在“O-ID”列中（地址=固定格式）

  =连接（[@[networkID]]；地址；[@[groupID]]；地址；文本（[@[HexAddress]]；“00”）

• 在“O-KAST”栏中

  =IF（AND（IFERROR）（FIND（start_02；MID（[@Name]；1；1））>0；0）；MID（[@Name]；2；1）…用于第1部分。宏：创建XML文件是“非程序员”于2014年8月25日16:21为“2.表：公式不工作不一致错误”编写的解决方案，我找到了一个解决方案，删除列，然后重新输入公式。原因是我没有找到一个好的原因，或者为什么。对于第1部分。宏：创建XML文件是由“非程序员”编写的解决方案