使用vba自动化多个xml到excel答案

【问题标题】：use vba to automate multiple xml to excel使用vba自动化多个xml到excel
【发布时间】：2013-10-27 20:46:06
【问题描述】：

好的，开始：我是一个完整的 VBA 傻瓜。几个小时以来，我一直在尝试破解此代码，我认为进一步了解 vba 工作原理的最佳方法是召集军队。我希望没有人因此受到冒犯。

这就是我想要做的： a) 一个一个打开一个文件夹中的所有xml文件 b) 将它们转换为 excel 文件 c）然后将它们一个一个保存为另一个文件夹中的excel文件

我目前的代码如下：

Sub xmltoxl()
Dim fs As FileSearch
Dim i As Integer
Dim wbk As Workbook
Dim s As Integer

Set fs = Application.FileSearch

With fs
    .LookIn = ThisWorkbook.Path
    .Filename = "*.xml"
    For i = 1 To .Execute()
        Set wbk = Workbooks.OpenXML(.FoundFiles(i))
        s = 1
   ChDir "C:\Users\Seeb\Desktop\Volkskrant\2013_archiefb"
    ActiveWorkbook.SaveAs Filename: (s & ".xls")
    s = s + 1
    Next i
End With

End Sub

【问题讨论】：

哪里失败了？什么不起作用？
（首先）它给了我一个关于如何保存工作簿的“编译错误：语法错误”（SaveAs 行）
FileSearch 自 2007 版以来已从 Excel 中删除。See this answer
要使用命名参数，您需要在参数名称和值之间使用:=，因此：ActiveWorkbook.SaveAs Filename:=(s & ".xls")

标签： xml vba excel converter

【解决方案1】：

未经测试：

Sub xmltoxl()
Dim f As String
Dim wbk As Workbook
Dim s As Integer

f = Dir(ThisWorkbook.Path & "\*.xml")
s = 0

Do While Len(f)>0
    s = s + 1
    Set wbk = Workbooks.OpenXML(ThisWorkbook.Path & "\" & f)
    wbk.SaveAs Filename:="C:\Users\Seeb\Desktop\Volkskrant\2013_archiefb" & s & ".xls"
    wbk.Close False
    f = Dir() 
Loop


End Sub

【讨论】：

【解决方案2】：

进行了一些更改，是的，它起作用了。至少，进行到一半（我只重做下半部分）。谢谢蒂姆。

Sub xmltoxl()
Dim f As String
Dim wbk As Workbook
Dim s As Integer

f = Dir("C:\Users\Seeb\Desktop\Volkskrant\2013_archief" & "\*.xml")
s = 0

Do While Len(f) > 0
    s = s + 1
    Set wbk = Workbooks.OpenXML("C:\Users\Seeb\Desktop\Volkskrant\2013_archief" & "\" & f)
    wbk.SaveAs Filename:="C:\Users\Seeb\Desktop\Volkskrant\2013_archiefb\" & s & ".xls"
    wbk.Close False
    f = Dir()
Loop

结束子

【讨论】：