Variablen Pfad öffen
08.03.2016 19:03:49
BuStue
ich möchte gerne per Makro eine CSV-Datei in ein Excel-Arbeitsblatt einlesen.
Dazu dachte ich, ich kann es folgendermaßen machen:
Private Sub Daten_Import_Click()
Range("A2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;%USERPROFILE%\Desktop\Bestellungen\Bestellung.csv" _
, Destination:=Range("A2"))
.Name = "Bestellung"
.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 = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("B:B").EntireColumn.AutoFit
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-2],Daten!RC[-1]:R[63998]C[1],2,FALSE)),"""",VLOOKUP(RC[-2],Daten! _
RC[-1]:R[63998]C[1],2,FALSE))"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C3000"), Type:=xlFillDefault
Range("C2:C17").Select
Columns("C:C").EntireColumn.AutoFit
Range("A2").Select
End Sub
Auf dem Desktop von verschiedenen Usern ist der Ordner Bestellungen abgelegt, in diesem liegt die Datei Bestellung.csv die von einem Scann erstellt wird.
auf dem Scanner liegt dann diese Excel-Datei mit dem oben genannten Makro.
Könnt Ihr mir hierbei behilflich sein?
MfG Burghard