Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Dateipfad mit Auswahl

Betrifft: Dateipfad mit Auswahl von: Michael
Geschrieben am: 27.01.2020 12:12:57

Hallo,
ich habe mal wieder ein Problemchen :)
Ich habe eine Excel-Datei in der ein Makro ausgeführt wird.
Dieses importiert eine Datei vom Laufwerk E wie folgt:

With ActiveSheet.QueryTables.Add(Connection:="TEXT;E:\Datei.LOG", _

das funktioniert auch alles super.
Jetzt möchte ich aber das nicht von dem Laufwerk e:\ die Datei.LOG importiert wird,
sondern zunächst eine Abfrage aus dem selben Verzeichnis in der meine Excel-Datei
liegt nach Ordnern geschaut wird die nach Datum benannt sind z. B. 27-01-2020 oder 25-01-2020 oder 18-02-2020
Ich bekomme also wenn mein Makro gestartet wird eine Frage: wählen sie aus folgenden Ordner:
27-01-2020 oder 25-01-2020 oder 18-02-2020
bei Auswahl geht er in den entsprechenden Ordner und öffnet z.B. \18-02-2020\Datei.LOG
und das Makro läuft weiter.

Bedeutet in jedem Ordner liegt eine Datei.LOG nur mit anderem Inhalt.

Würde mich über Feedback freuen.

Vielen Dank!

Betrifft: AW: Dateipfad mit Auswahl
von: UweD
Geschrieben am: 27.01.2020 13:37:15

Hallo

so???

 Sub dsdsds() ' 
    Dim Dlg As FileDialog
    Dim FFile As String, Pfad As String
    Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
    
    'anpassen 
    FFile = "Datei.LOG"
    Dlg.InitialFileName = "E:\" 'oder ThisWorkbook.Path 'Welches Verzeichnis soll voreingestellt sein 
    
    
    
    If Dlg.Show = True Then
        Pfad = Dlg.SelectedItems(1) 'Der ausgewählte Pfad 
        Pfad = Pfad & IIf(Right(Pfad, 1) = "\", "", "\") 'ggf \ anhängen 
        
        If Dir(Pfad & FFile) <> "" Then 'prüfen, ob Datei da ist 
           MsgBox "Ist da"
           'Mach was damit 
           
           ' With ActiveSheet.QueryTables.Add(Connection:="TEXT;Pfad & FFile", 
           
           
        End If
    End If
End Sub

LG UweD

Beiträge aus dem Excel-Forum zum Thema "Dateipfad mit Auswahl"