Question

我正在使用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，还没有找到它。非常感谢你的帮助。

Answer 1

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

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

Answer 2

我在搜寻以完成同一件事时发现了这个老问题。我能够使上面的代码运行，但是打开和关闭所有文件通常会在一段时间后导致Excel 2016崩溃。我最终使用了Powershell，这种间接方法的工作速度更快：

$files=Get-ChildItem "x:\folder with xml files\*" -Include *.xml
$outFile="x:\folder with xml files\Results.csv"
Remove-Item $outFile -ErrorAction Ignore
$xml = New-Object -TypeName -XML
foreach ($file in files){
  $xml.Load($file)
  Write-Host "Adding $file"
  $xml.myfields | Select-Object -Property Question1, Quesiton2, Question3 |Export-CSV $outFile -NoTypeInformation -Deliminter "|" -Append -encoding UTF8
}

这会吐出一个CSV文件（我使用|作为定界符，因为我的响应中包含逗号），因此我可以快速将其导入Excel。

将多个InfoPath XML文件导入Excel

2 个答案: