0

わかりました、始めに：私は完全なVBAの知識人です。私は数時間このコードをクラックしようとしてきました.さらに進んでvbaがどのように機能するかを学ぶための最良の方法は、軍隊を呼ぶことだと思います. これで気分を害する人がいないことを願っています。

これは私がやろうとしていることです:a)フォルダー内のすべてのxmlファイルを1つずつ開くb)それらをExcelファイルに変換するc)次に、それらを1つずつ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
4

2 に答える 2

0

いくつかの変更を加えると、はい、うまくいきました。少なくとも、途中までです（後半だけやり直します）。ありがとう、ティム。

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

サブ終了

于 2013-10-19T18:49:06.540 に答える