Trennzeichen für CSV dateien im VGA Makro ändern
07.07.2019 18:42:58
Jan
ich möchte mehrere CSV-dateien mittels VGA Macro in unterschiedliche Datenblätter importieren. Das Makro, dass ich gefunden habe klappt eigentlich ganz gut. Nur gibt es mir statt drei Spalten eine aus in der die Argumente mit einem Komma getrennt sind...
So sieht das Makro aus, könnt ihr mir helfen wie ich es verändern muss, damit das Komma als Trennzeichen verwendet wird?
Sub CSV_Import()
Dim dateien, i
Dim owkb As Workbook
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
Set owkb = ActiveWorkbook
With ThisWorkbook
ActiveSheet.UsedRange.Copy
.Sheets.Add after:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = owkb.Name
.Sheets(owkb.Name).Range("A1").PasteSpecial
End With
Application.CutCopyMode = False
owkb.Close False
Next i
End If
End Sub
Anzeige