将多个InfoPath XML文件导入Excel-Java 学习之路

我正在使用InfoPath表单从现场团队收集数据，所有已完成的表单都保存为标准的InfoPath XML格式 . 现在我想将所有这些XML文件导入Excel以编译报告 . 我一次只做一个XML文件，但这当然是愚蠢的 . 无论如何，朋友编写了这个Excel VB宏代码，用于将多个XML文件导入Excel工作表选项卡（XMLData），然后将数据整齐地复制到另一个选项卡（结果） . 问题是XML文件中的数据不按顺序导入Excel列 . 这个代码有一个简单的修复方法吗？这是Excel VB宏代码：

Sub ReadXML()
    Dim strFile As String
    MsgBox "I'll start reading please don't touch the computer"
    Dim strPath As String
    Dim colFiles As New Collection
    Dim i As Integer
    Dim wb As Workbook
    strPath = ActiveSheet.Range("C2")
    strFile = Dir(strPath)
    While strFile <> ""
        colFiles.Add strFile
        strFile = Dir
    Wend
    If colFiles.Count > 0 Then
        For i = 1 To colFiles.Count
             Application.ScreenUpdating = False
             Application.DisplayAlerts = False
             strTargetFile = strPath & colFiles(i)

             Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadOpenXml)
             Application.DisplayAlerts = True

             wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("XMLDATA").Range("A" & i * 3 + 1)
             ThisWorkbook.Sheets("XMLDATA").Rows(i * 3 + 3).Copy ThisWorkbook.Sheets("Result").Range("A" & i + 2)
             wb.Close False
             Application.ScreenUpdating = True
             ActiveSheet.Range("P2") = i
        Next i
        ThisWorkbook.Sheets("XMLDATA").Rows(4).Copy ThisWorkbook.Sheets("Result").Rows(1)
        ThisWorkbook.Sheets("XMLDATA").Rows(5).Copy ThisWorkbook.Sheets("Result").Rows(2)
        MsgBox "I'm Done!"
    End If
End Sub

也许有一个更简单，更优雅的解决方案，用于将InfoPath XML文件导入Excel，还没有找到它 . 非常感谢您的帮助 .

1 回答

0

最简单的更改是利用OpenXML's Stylesheets 参数指定XSLT样式表，以便按照您希望的方式格式化XML . 然后，您可以按照样式表中指定的顺序和格式提取内容 .

更复杂的更改（以及我对此类事物的首选方法）是将内容加载到DOMDocument对象中，并使用 selectNodes 和selectSingleNode等函数来提取所需的内容 .

回复于 2024-04-26T10:43:08+08:00

将多个InfoPath XML文件导入Excel

1 回答

相关问题