Makro ergänzen zur Dateieingabe
29.09.2003 14:07:50
Marco
ich habe ein Makro mit dem Makrorekorder aufgezeichnet, die mir eine .csv Datei in die Tabelle einfügt.
Nun meine Frage:
Gibt es die Möglichkeit, dass wenn man das Makro startet nicht automatisch die angegebene Datei eingefügt wird, sondern eine Art Datei Eingabefenster (Explorer oder Eingabefeld für Pfad und Dateimane) erscheint?
Hier das Makro:
Sub import()
Range("B10").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\import.csv", _
Destination:=Range("B10"))
.Name = "Import"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Danke für Eure Hilfe
Marco