Hallo zusammen,
ein tolles Forum habt Ihr hier. Bisher konnte ich mir alle meine Fragen durch dieses Forum selber beantworten.
Aber jetzt hänge ich irgendwie, also habe ich mich angemeldet und verbinde meinen ersten Beitrag gleich mal mit einer Frage.
Ich möchte bei dem folgenden Modul erreichen, dass das Datei öffnen Fenster immer das von mir bestimmte Verzeichnis anzeigt. So spare ich mir die Zeit, zum benötigten Verzeichnis zu navigieren.
Für einen kleinen Tipp wäre ich euch sehr dankbar.
Gruß Chris
Dim oFileDialog As FileDialog
Dim Pfad As String
Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With oFileDialog
.Filters.Clear
.Filters.Add "Nur csv Dateien", "*.csv", 1
.Title = "Tracking import CSV"
.ButtonName = "CSV importieren"
.AllowMultiSelect = False
If .Show = True Then Pfad = .SelectedItems(1)
'
End With
If Pfad = "" Then Exit Sub
' Datei-import
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Pfad, Destination:=ActiveSheet.Range("a1"))
.Name = Dir(Pfad, vbDirectory)
.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 = 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)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With