AW: @Ramses
08.02.2010 19:25:49
Ramses
Hallo
Das Makro muss so angepasst werden
Option Explicit
Sub Start()
Dim Quelle$, ZielAll$
Dim i As Integer
Dim SuchDialog As FileDialog
Set SuchDialog = Application.FileDialog(msoFileDialogFolderPicker)
'Alle txt-Dateien des nachstehenden Pfades sollen eingelesen werden
'Dialog für EXCEL XP und höher
'Auswählen wo die TEXT-Dateien liegen
With SuchDialog
.Title = "Bitte wählen Sie ein Verzeichnis aus"
.InitialFileName = "D:\a_temp\"
.ButtonName = "Auswahl übernehmen"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Sie haben kein Verzeichnis", vbInformation
Set SuchDialog = Nothing
Exit Sub
Else
Quelle = .SelectedItems(1)
MsgBox Quelle
End If
End With
ZielAll = "AllTXT.txt" 'tempName
ChDrive Left$(Quelle, 2)
ChDir Quelle
Shell "cmd.exe /c copy *.txt " & ZielAll, vbHide ' & ZielAll
'Maximal 10 Sekunden warten
Do While Dir(Quelle & ZielAll) = "" And i <= 10
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1)
i = i + 1
Loop
If Dir(Quelle & ZielAll) = "" Then Exit Sub
'Text Datei einlesen, 1. Parameter Tabelle, 2. File
LeseTxtFile Tabelle1, Quelle & ZielAll
'Datei wieder löschen
Kill Quelle & ZielAll
'Call Datei_speichern_unter
End Sub
Gruss Rainer