将多个Excel文件导入InfoPath
将多个Excel文件导入InfoPath
提问于 2013-09-20 17:28:23
我使用XML从现场团队收集数据，所有完成的表单都保存为标准的InfoPath InfoPath格式。现在，我想将所有这些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也许有一种更简单、更优雅的解决方案可以将Excel文件导入InfoPath，只是还没有找到。非常感谢您的帮助。
回答 2
Stack Overflow用户
发布于 2013-09-27 07:17:13
最简单的更改是利用XSLT参数指定一个OpenXML's样式表，以便以您想要的方式格式化Stylesheets。然后，您可以按照在样式表中指定的顺序和格式提取内容。
一种更复杂的更改(也是我对此类型的首选方法)是将内容加载到DOMDocument对象中，并使用selectNodes和selectSingleNode等函数来提取所需的内容。
Stack Overflow用户
发布于 2019-07-12 03:12:57
我在寻找完成同样的事情时发现了这个老问题。我可以运行上面的代码，但打开和关闭所有文件通常会导致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。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18913288
复制相关文章
相似问题
腾讯云开发者
