VBA Import mit Wildcard
09.12.2019 11:21:46
BuStue
ich suche nach einer Lösung, wie ich folgenden Code so hin bekomme, das ich eine CSV Datei importieren kann die unterschiedliche Dateinamen besitzt (Datum) hier als Sternchen dargestellt. Es existiert nur immer eine Datei in dem Ordner PN.
Sub IMPORT_PN()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\\server\DFS\PROFILES\" & Environ("username") & "\Desktop\PN\PN_114707_*.CSV" _
, Destination:=Range("$B$2"))
.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 = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 2, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
MfG Burghard