Thema Datum  Von Nutzer Rating
Antwort
10.07.2019 11:06:57 Gast10092
NotSolved
10.07.2019 11:55:09 Torsten
NotSolved
10.07.2019 12:24:33 Gast34631
NotSolved
Blau Workbook Aktivieren ohne Dateinamen
 10.07.2019 12:52:52 Gast84714
Solved
10.07.2019 13:05:56 Gast6341
Solved
10.07.2019 14:31:41 Gast28744
NotSolved
10.07.2019 15:52:13 Torsten
Solved

Ansicht des Beitrags:
Von:
Gast84714		 Datum:
10.07.2019 12:52:52		 Views:
455		 Rating:
     
Antwort:
 Nein
Thema:
Workbook Aktivieren ohne Dateinamen

Hallo,

also wenn das alles in einer Sub ist dann so:

Dim fd As FileDialog
  
'File Dialog erstellen
Set fd = Application.FileDialog(msoFileDialogOpen)
  
'Variable um den Pfad anzeigen zu können
Dim Dateipfad As Variant
Dim strDatei As String, strDatei2 As String
  
'With..End With für den Bezug zum File Dialog
With fd
  
'Anzeigen des Picker für alle ausgewählten Dateien
    If .Show = -1 Then
        For Each Dateipfad In .SelectedItems
            strDatei = .SelectedItems(1)   'hier steht der komplette Pfad mit Dateiname
            'hier wird nur der Dateiname extrahiert
            strDatei2 = Right(strDatei, Len(strDatei) - InStrRev(strDatei, "\", , vbTextCompare))
        
'Anzeigen des Pfades
            MsgBox "Der Pfad der gewählten Datei lautet: " & Dateipfad
         'Datei =
  
            Next Dateipfad
           
            .Execute

    End If
End With

Die Variable strDate2 kannst du dann in deinem weiteren Code benutzen, z.B. so:

Workbooks(strDatei2).Sheets("TabelleA").Range("U11").Copy

Somit bekommst du immer hier die oben geoeffnete Datei in Workbooks.

 

Gruss Torsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.07.2019 11:06:57 Gast10092
NotSolved
10.07.2019 11:55:09 Torsten
NotSolved
10.07.2019 12:24:33 Gast34631
NotSolved
Blau Workbook Aktivieren ohne Dateinamen
 10.07.2019 12:52:52 Gast84714
Solved
10.07.2019 13:05:56 Gast6341
Solved
10.07.2019 14:31:41 Gast28744
NotSolved
10.07.2019 15:52:13 Torsten
Solved