Thema Datum  Von Nutzer Rating
Antwort
Rot Workbook Aktivieren ohne Dateinamen
10.07.2019 11:06:57 Gast10092
NotSolved
10.07.2019 11:55:09 Torsten
NotSolved
10.07.2019 12:24:33 Gast34631
NotSolved
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:
Gast10092
Datum:
10.07.2019 11:06:57
Views:
57
Rating: Antwort:
  Ja
Thema:
Workbook Aktivieren ohne Dateinamen

Guten Tag,

ich möchte eine geöffnete Datei aktivieren, ohne deren Dateinamen angeben zu müssen. 

Um die Datei zu öffnen, verwende ich einen FileDialog mit folgendem Code: 


'manuelle ausgewählte Datei öffnen
 
       Dim fd As FileDialog
 
        'File Dialog erstellen
        Set fd = Application.FileDialog(msoFileDialogOpen)
 
        'Variable um den Pfad anzeigen zu können
        Dim Dateipfad As Variant
 
        '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

         'Anzeigen des Pfades
         MsgBox "Der Pfad der gewählten Datei lautet: " & Dateipfad
 
          Next Dateipfad
          
          .Execute
          
 
          Else
          End If
          End With

 

Nachdem die Datei geöffnet wurde möchte ich mit folgendem Code, einzelne Zellen in die aktuelle Datei (DateiB) kopieren:

    Workbooks("DateiA").Activate
    Sheets("TabelleA").Range("U11").Copy
    
    Workbooks("DateiB").Activate
    Sheets("TabelleB").Range("D94").PasteSpecial xlPasteValues

Ist es möglich anstelle des Dateinamens von DateiA, einen bezug zum oben genannten Code herstzustellen, sodass der Dateiname nicht von vorn herein festgelegt sein muss, sondern sich anpasst, je nachdem welche DateiA geöffnet wird?

 

Vielen Dank für die Hilfe!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Workbook Aktivieren ohne Dateinamen
10.07.2019 11:06:57 Gast10092
NotSolved
10.07.2019 11:55:09 Torsten
NotSolved
10.07.2019 12:24:33 Gast34631
NotSolved
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