Codeanpassung
01.11.2018 15:29:50
Thorsten
helfen?
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
Danke