ich habe folgenden Code um mehrere CSV Dateien zu öffnen. Leider verstehe ich nicht wie ich die semikolon trennzeichen einfügen kann. Des Weiteren möchte ich gerne die erste Zeile im folgenden format DMY.
Der Code sieht wie folgt aus:
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
Danke.
VG
Michael