0

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

4

2 回答 2

0

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

一个更复杂的变化（也是我对这类事情的首选方法）是将内容加载到DOMDocument对象中并使用类似的函数selectNodes并selectSingleNode提取您想要的内容。

于 2013-09-26T23:17:13.323 回答
0

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

$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。

于 2019-07-11T19:12:57.140 回答