ich möchte alle geöffneten XML Files in eine Auswertungsdatei per Code einfügen.
Die XML Files kommen aus einem Messgerät...haben immer andere Namen und je nach Messort auch unterschiedliche Anzahlen.
Kann mir jemand helfen.
Gruß Thorsten
Sub Schaltfläche5_Klicken()
' Report_öffnen Macro
Dim LRes$, wb As Workbook
LRes = Application.GetOpenFilename("Text Files (*.xml), *.xml")
If LRes = CStr(False) Then Exit Sub
Workbooks.OpenText Filename:=LRes
Set wb = ActiveWorkbook
ActiveSheet.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
wb.Close False
End Sub