Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Codeanpassung

Forumthread: Codeanpassung

Codeanpassung
01.11.2018 15:29:50
Thorsten
wie könnte ich den Code so umschreiben, dass ich mehrer Dateien auswählen kann? Kann mir jemand _
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Codeanpassung
01.11.2018 15:36:56
Daniel
Hi
im Prinzip so
Sub Schaltfläche5_Klicken()
' Report_öffnen Macro
Dim Dateien, Datei, wb As Workbook
Dateien = Application.GetOpenFilename("Text Files (*.xml), *.xml", MultiSelect:=True)
If varType(Dateien) = vbBoolean then exit sub
For each Datei in Dateien
Set wb = Workbooks.OpenText(Filename:=Datei)
ActiveSheet.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
wb.Close False
next
End Sub
du musst aber nochmal nachschauen, wie der Parameter im GetOpenFilename, der den Multiselect eerlaubt. richtig heißt.
ich hab den Code jetzt mal nur so direkt ins Forum geschrieben.
Gruß Daniel
Anzeige
AW: Codeanpassung
02.11.2018 08:47:07
Thorsten
Danke für die Hilfe...
Funktioniert
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige