Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CSV Dateien ans Ende Importieren

CSV Dateien ans Ende Importieren
12.10.2020 11:59:24
Elias
Hallo zusammen,
ich habe aktuell ein kleines Problem mit einem Makro, welcher mir CVS Dateien in eine aktuelle Tabelle importieren soll.
Sub CSV_Import()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), Local:=True
With ThisWorkbook.Sheets(1)
ActiveSheet.UsedRange.Copy Destination:=.Range("A" & lastrow)
lastrow = .UsedRange.Rows.Count + 1
End With
ActiveWorkbook.Close False
Next i
End If
End Sub
An sich funktioniert alles wie es soll:
- Mehrere Dateien können ausgeählt werden
- Das ganze wird in eine bestehende Exceltabelle importiert
- Alle Werte stehen in eigenen Zellen
Das Problem ist, dass ich die CSV gerne am Ende meiner bereits bestehenden Tabelle einfügen möchte, derzeit das ganze aber einfach oben eingeschoben wird.
Könnte mir dabei jemand helfen ?
Grüße

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

Betreff
Datum
Anwender
Anzeige
AW: CSV Dateien ans Ende Importieren
12.10.2020 12:34:51
Nepumuk
Hallo Elias,
teste mal:
Sub CSV_Import()
    Dim dateien As Variant, i As Long
    dateien = Application.GetOpenFilename _
        ("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
    If IsArray(dateien) Then
        For i = 1 To UBound(dateien)
            Workbooks.Open dateien(i), Local:=True
            With ThisWorkbook.Worksheets(1)
                ActiveSheet.UsedRange.Copy Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
            End With
            ActiveWorkbook.Close False
        Next i
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: CSV Dateien ans Ende Importieren
12.10.2020 12:46:06
Elias
Hat super geklappt :)
Danke dir

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige