Import von mehr als einer Datei

Hallo zusammen,
ich habe folgende Frage:
Die Funktion


Application.GetOpenFilename

erlaubt ja, den "Öffnen"-Dialog als Prompt aufzurufen und eine Datei einzulesen. Das funktioniert bisher auch sehr gut in meinem VBA Auswertungstool.
Nun bietet diese Funktion auch die Eigenschaft "Multiselect:=true".
Diese würde ich gerne nutzen um mehrere CSV Listen über den Öffnen-Dialog auszuwählen und in einem Datenblatt zusammenzuführen.
Also quasi aus 3 Arbeitsblatt mach 1 Arbeitsblatt. Ich finde keine Forenbeiträge, die diesen Prozess abbilden. Die meisten Skripte folgen dem Ansatz, einen Ordnerpfad zu spezifizieren und dort die Daten einzusammeln. Das ist mir allerdings zu unflexibel, zumal ich den Import über Application.GetOpenFilename an anderer Stelle schon erfolgreich einsetze.
Jemand eine Idee? Oder die Lösung, wie ich mein Ziel umsetzen kann?
Im ersten Schritt würde mir reichen, wie ich die drei ausgewählten Dateien in einer Arbeitsmappe geöffnet bekomme. Das Zusammenführen auf ein Arbeitsblatt würde ich wahrscheinlich auch selber hinbekommen. Sollte aber jemand eine gute Lösung haben, wäre ich sehr dankbar.
Danke im Voraus!
Grüße
Sascha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das funktioniert bis hierher schon super :)
Er gibt mir zunächst schon mal die 3 CSV Listen in meinem Workbook als separate Worksheets (Temp1, Temp2, Temp3) aus.


Sub ImportCSVGroup()
On Error GoTo FehlerHandling
Dim i As Integer
Dim wS As Worksheet
Dim strFile As Variant
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Wählen Sie die drei  _
CSV Dateien aus...", MultiSelect:=True)
If IsArray(strFile) Then
For i = LBound(strFile) To UBound(strFile)
Set wS = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook. _
Worksheets.Count))
wS.Name = "Temp" & i
With wS.QueryTables.Add(Connection:="TEXT;" & strFile(i), Destination:=wS.Range( _
"A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = False
.Refresh
End With
Next i
End If
FehlerHandling:
Exit Sub
End Sub

Jetzt habe ich eine Frage zum "guten Stil".
Ich muss jetzt die 3 Listen zusammenführen und bereinigen. In meinem aktuellen Ansatz durchlaufe ich eine doppelte For-Schleife über alle 3 Listen und ziehe dabei gezielt jede Zeile nach "Schema" in das "Quelle" Worksheet.


For i = 1 To 3
With ActiveWorkbook.Sheets("Temp" & i)
zeileMax = .UsedRange.Rows.Count
For Zeile = 4 To zeileMax
If Left(.Cells(Zeile, 1).Value, 1) = "D" Then
tempZeileMax = Sheets("Quelle").Cells(Rows.Count, "A").End(xlUp).Row
.Rows(Zeile).Copy Destination:=Worksheets("Quelle").Rows(tempZeileMax + 1)
End If
Next Zeile
End With
Next i

Könnte es aus Geschwindigkeitsgründen ein besserer Ansatz sein, erst "simpel" per Range.Copy die 3 Listen in einer zusammenzuführen und erst dann die For-Schleife zur Ermittlung der relevanten Zeilen zu nutzen?

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread