csv-Import mit Übergabe des Dateipfads
30.01.2014 09:41:28
klaus
mit unterem Makro wird ein bzgl. der zu importierenden CSV-Datei ein festgelegter CSV-Import durchgeführt. Mit einer Inputbox will ich diesen ersetzen oder besser noch mit dem eigentlichen CSV-Dialog. Habt Ihr eine Idee.
Danke im voraus
Sub ImportCSV()
Dim ZeEnde As Double
Dim wks As Worksheet
Dim strPfad As String
Dim strI As String
strPfad = "C:\temp_bp\2014_01_22-000001-projects.csv"
strI = InputBox("csv-Import", "Dateipfad zur csv-Datei reinkopieren", strPfad)
Set wks = Worksheets("Import_CSV")
Rows("2:1048576").Delete
'Call BildAus
With wks.QueryTables.Add(Connection:= _
"TEXT;C:\temp_bp\2014_01_22-000001-projects.csv", Destination:=Range("$A$2"))
.Name = "2014_01_22-000001-projects"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.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, 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, 1, 1, _
1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
'Call BildAn
End Sub