dynamischer CSV Import
Gassert
ich würde gerne eine mehrere CSV Dateien dynamisch in eine exceldatei einladen.
Im Internet habe ich einen Ausschnitt gefunden und diesen auf meine Belange angepasst.
Leider versteht excel meinen generierten Pfad nicht.
Wäre cool wenn Ihr mir hier helfen könntet.
Dim fnkomplett As String
Dim fnDateiname As String
Sub öffnen()
'Öffnen der aktuellen CVS-Datei des Mischprotokolls
'@author: HCTnet - Grabenkamp - 33649 Bielefeld
fnDateiname = "Von-Nach"
fnkomplett = "C:\Tasks\stats_von-nach.csv"
ActiveSheet.Name = fnDateiname
End Sub
Sub einlesen()
Dim Q As String
Q = Chr(34)
Dim einString As String
einString = "Connection:=" & Q & "TEXT;" & fnkomplett & Q & ",Destination:=Range(" & Q & " _
A1" & Q & ")"
MsgBox (einString)
With ActiveSheet.QueryTables.Add(einString)
.Name = fnDateiname
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = "'"
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub