Wie kann ich verschiedene .csv Dateinen in ein text Format in einzelnen Spalten legen ?
Die Abfrage der Datei geht, aber beim umsetzen Schwierigkeiten.
Habe es mit Recorder versucht, dann geht aber nur die Datei die ich über Recorder anspreche. Möchte aber verschiedene ansprechen. aber funkt nicht.
Hier mein bisheriger Code
Private Sub CommandButton2_Click()
Dim sPath$
sPath = "F:\"
ChDrive sPath
ChDir sPath
sPath = Application.GetOpenFilename("Excel-Dateien,*.cs?", 1)
If sPath = "" Then
End If
On Error Resume Next
Ab Hier Problem eine .csv zu öffnen
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;J:\ ?.csv", Destination:=Range("$A$1" _
))
.Name = " ? "
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveSheet.Range("C:C").Select
Selection.ColumnWidth = 120
ActiveSheet.Range("A11").Select
Range("2:2,5:5,8:8").Select
Selection.Delete Shift:=xlUp
Range("C6").Select
End Sub
Wäre nett wenn jemand helfen könnte u. auch den Code ? verkürzen
Vielen Dank im Voraus der Hilfe
Mfg
Dieter