pfad und dateien auswaehlen
16.11.2003 16:39:43
helge
mit folgendem code kann ich mir aus einem vorgegebenen verzeichnis alle darin enthaltenen .txt files in s excel laden
Sub suchen()
Dim pfad
pfad = "E:\..."
Dim ifiles As Integer
With Application.FileSearch
.LookIn = pfad
.SearchSubFolders = False
.Filename = "*.txt"
If .Execute > 0 Then
For ifiles = 1 To .FoundFiles.Count
Workbooks.OpenText Filename:=.FoundFiles(ifiles), _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=True, Space:=False, Other:=False, _
DecimalSeparator:=".", ThousandsSeparator:=" ", TrailingMinusNumbers:= _
True
Next ifiles
End If
End With
End Sub
nun möchte ich aber das Verzeichnis nach dem start des makros selber auswaehlen koennen und auch die dateien die ich laden moechte selbst auswaehlen.
kann mir da jemand weiterhelfen???
danke helge