Import von csv-datei
csv-datei
ich hätte eine Frage:
Für einen Import habe ich unten stehendes Makro gefunden.
Für meinen Fall müßte ich aber als Delimiter eine # (Raute) verwenden.
Um es noch komfortabler zu gestalten müßte auch noch folgendes passieren:
-Spalte A sollte automatisch in Zahlenformat (ohne Kommastellen) formatiert werden.
-Die Datei sollte automatisch als Excel-Datei (selben Namen und Pfad) gespeichert werden.
Könnte mir da ein Excelexperte helfen?
Schönen Gruß
Sub csv_importieren()
Dim impfile As String
impfile = Application.GetOpenFilename("CSV Dateien (*.csv),*.csv", Title:="Import File auswä _
_
hlen", buttontext:="Import starten", MultiSelect:=False)
If impfile = "" Then
MsgBox "Import abgebrochen", vbOKOnly + vbInformation, "Abbruch"
Exit Sub
Else
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & impfile & "", Destination:=Range( _
_
"$A$1"))
.Name = ""
.FieldNames = True
.PreserveFormatting = True
.RefreshOnFileOpen = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
End With
End If
End Sub
Anzeige