好吧,开始:我是一个完整的 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