Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei öffnen per Makro ???

Datei öffnen per Makro ?
ralle
Hallo zusammen!
Würde gerne folgendes machen:
Möchte per Makro eine bestimmte Datei aus einem Verzeichnis öffnen.
Gibt es irgendwie eine Möglichkeit dies so zu gestalten, das mir das der Inhalt des bestimmten Verzeichnis (was immer das selbe verzeichnis ist) angezeigt wird und ich die gwünschte Datei dann auswählen kann ?
Vielen Dank für Eure Mithilfe !!
Gruß
ralle

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei öffnen per Makro ?
Christian
Hi,
du nimmst einfach die Methode "getopenfilename" - damit erscheint das "Öffnen-Fenster"
- hier erhälst du den Dateinamen (Datei wird noch nicht geöffnet!!!)
DateiName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", Title:="Dateiöffnen")
dann öffnest du noch die ausgewählte Datei:
Application.Workbooks.Open Filename:=DateiName
Bei Fragen - Frag halt :o)
Christian
AW: Datei öffnen per Makro ?
22.03.2004 14:45:05
GraFri
Hallo
Noch eine Möglichkeit:


Sub Datei_öffnen_Dialog()
Dim Dialog As Object
Set Dialog = CreateObject("MSComDlg.CommonDialog")
On Error Resume Next
With Dialog
  .Filter = "alle Dateien (*.*)|*.*"
  .DialogTitel = "Datei öffnen"
  .MaxFileSize = 260
  .ShowOpen
  If Err = 0 Then
    MsgBox "Ausgewälte Datei: " & .Filename
  End If
End With
End Sub
mfg, GraFri
Anzeige
Danke funktioniert super !!!
22.03.2004 15:26:02
ralle
Danke, erstmal keine Frage, funktioniert super !!
Gruß
ralle

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige