Verzeichnis bzw. Pfad an Makro übergeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
1. "...Kann man den Pfad durch Auswahl des Verzeichnisses an das Makro übergeben?..."
Das hier als Beispiel
Dim SuchDialog As FileDialog
Set SuchDialog = Application.FileDialog(msoFileDialogFilePicker)
'Dialog für EXCEL XP und höher
'Auswählen wo die TEXT-Dateien liegen
With SuchDialog
.Title = "Bitte wählen Sie eine Datei aus"
'Environ(25) ermittelt den Aktuellen Userpfad
.InitialFileName = Environ(25) & "\Eigene Dateien\"
.ButtonName = "Auswahl übernehmen"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Sie haben keine Datei gewählt", vbInformation
Set SuchDialog = Nothing
Exit Sub
Else
Workbooks.OpenText (.SelectedItems(1))
End If
End With
2. "...Kann die Speicherung als "Text (tabstopp-getrennt)" - Datei gleich angeboten werden..:"
Ja, das kannst du aber mit dem Makrorekorder aufzeichnen
Gruss Rainer

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

Beliebteste Forumthreads (12 Monate)

Verzeichnis bzw. Pfad an Makro übergeben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verzeichnis bzw. Pfad an Makro übergeben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread