Sub DepotImport ()
Worksheets("Depot Claim Report").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\\P:\Daten\Depot Report.csv" _
, Destination:=Range("$A$1"))
.Name = "Depot Report"
.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 = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, _
1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Die angelieferte Datei (ca. 20 je Tag) enthält im Dateinamen noch eine 6 bis 7 stellige Zahl (Systemrreferenz) z.B.: Depot Report 1234567.csv. Ich erhalte nicht alle Referenzen, sodass ich nicht hochzählen kann. Bis behelfe ich mir damit, dass ich die Datei in Depot Report.csv umbenenne. Wie kann ich Excel dazu bringen, eine Datei Depot Report *.csv zu öffnen?
Danke
Robert