Hallo,
ich habe mittlerweile einen anderen Ansatz, da mein erser mir als nicht sehr sinnvoll erscheint. Dieser läuft nun leider auch noch nicht vernünftig und ich weiß leider nicht warum.
(ich würde gerne mit einem makro vielen XML-dateien in viele XLS dateien umwandeln)
Beim ausführen des makros passiert leider rein garnichts. es läuft also durch, aber es scheint so als würde in dem angegebenen ordner keine XLM datei gefunden werden.
Ich würde mich über einen kleinen tipp oder ähnliches riesig freuen, da ich nun schon einige tage an diesem problem arbeite und es leider immer noch nicht richtig funktioniert)
die XML-Dateien heißen z.b.: "260100147-00-2012-xml" (ich habe auch schon ausprobiert ob es an dem "-xml" liegt und es in ".xml" ungeändet, dies hat jedoch auch nicht gebracht)
Vielen Dank im Voraus!!
Philipp
Anbei noch mein neuer Ansatz::
Option Explicit
Sub AlleLesen()
Const cstrOutPath As String = "C:\Neuer Ordner\"
Const cstrInpPath As String = cstrOutPath & "XMLs\"
Dim strName As String, strNewName As String
strName = Dir(cstrInpPath & "*-xml")
While strName <> ""
strNewName = Replace(strName, ".xml", ".xls", 1, -1, vbTextCompare)
Workbooks.Add
'ActiveWorkbook.XmlImport cstrInpPath & strName, Nothing
'ActiveWorkbook.XmlImport cstrInpPath & strName, Nothing, True, Range("A1")
ActiveWorkbook.XmlImport cstrInpPath & strName, Nothing, True, ActiveSheet.Range("A1")
ActiveWorkbook.SaveAs cstrOutPath & strNewName, xlNormal
ActiveWorkbook.Close False
Application.DisplayAlerts = False
Application.StatusBar = "Bearbeite: " & strName
strName = Dir
Wend
End Sub
|