Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

getopenfilename

Forumthread: getopenfilename

getopenfilename
15.06.2017 21:58:08
Pit
Hi Gemeinde,
Frage, mit getopenfilename kann man sehr einfach eine Dateiauswahl generieren,
leider kann man dann auch alles andere (Files löschen, unbenennen usw.), gibt
es eine Möglichkeit bei einer Dateiauswahl nur das Lesen zu ermöglichen?
Danke
Pit
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: getopenfilename
16.06.2017 08:27:17
Max2
Hallo,
ja das kann man machen.
Hier zwei Beispiele: 
Sub Beispiel()
Dim vDatei As Variant
vDatei = Application.GetOpenFilename("deine Dateien, *.xls")
If vDatei = False Then Exit Sub
Workbooks.Open vDatei, ReadOnly = True 
End Sub 


Sub Beispiel2()
Dim sOrdner As String
sOrdner = "Ein Ordner"
ChDir sOrdner
Application.Dialogs(xlDialogOpen).Show
End Sub

Anzeige
AW: getopenfilename
16.06.2017 08:56:23
EtoPHG
Hallo Pit,
Zitat: ...bei einer Dateiauswahl nur das Lesen zu ermöglichen?
Nein: Nicht mit der GetOpenFileName-Methode, da hier eine Explorer-Komponente beteiligt ist.
Ja: Programmatisch über eine selbstgebastelte Userform/ListBox und dem Auslesen der Dateien über die Dir[(Pfadname[, Attribute])]-Funktion!
Gruess Hansueli
Anzeige
AW: getopenfilename
16.06.2017 10:21:09
Pit
Vielen Dank für die schnellen Antworten!
Mache es gerade mit einer Listbox und habe gehofft es geht auch anders^^
Schönen Tag an Alle!
;

Forumthreads zu verwandten Themen

Application.GetOpenFilename+Dateiart
SteffenS

Hallo Zusammen,
ich möchte über
FName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", Title:="Import Datei öffnen", MultiSelect:=False)
eine ZipDatei weiterverarbeiten.
Leider kann ich diese über diesen Befehl unter Excel 2000 nicht auswählen.
Wenn ich...
18.08.2008 22:30:43
Thread-ID: 1002756
4 Beiträge
Application.GetOpenFilename+Dateiart
SteffenS

Hallo Zusammen,
ich möchte über
FName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", Title:="Import Datei öffnen", MultiSelect:=False)
eine ZipDatei weiterverarbeiten.
Leider kann ich diese über diesen Befehl unter Excel 2000 nicht auswählen.
Wenn ich...
18.08.2008 23:06:59
Thread-ID: 1002762
3 Beiträge
Anzeige
Application.GetOpenFilename
Jana

Hallo liebes Forum!
Aus einer bestehenden Datei heraus möchte ich eine zweite Excel-Datei ansprechen.
1. Diese zweite Datei wird geöffnet
2. Alle Daten werden ausgelesen und in meine bestehende Datei eingelesen
3. Diese zweite Datei wird wieder geschlossen.
Soweit. dank eure...
19.11.2008 10:43:23
Thread-ID: 1025916
3 Beiträge
Application.GetOpenFilename
ioannis

Hallo zusammen,
kann man mit Application.GetOpenFilename Dateien aus mehreren Ordner auswählen, und in eine Array schreiben? Strg+Datei funktioniert nur solange die Dateien sich im gleichen Ordner befinden...
Vielen Dank schon mal in Voraus.
Freundliche Grüße
ioannis
08.05.2009 19:14:17
Thread-ID: 1073993
5 Beiträge
GetOpenFilename
Peter/Berlin

Hi VBA-Fans,
zum Öffnen einer Datei möchte ich das Standarddialogfeld Öffnen aktivieren und nur die xls-Dateien zur Auswahl sehen, die mit einem 'D' beginnen.
Wo muss ich in unten angegebenem Code dieses 'D' unterbringen, damit es klappt?
fileToOpen = Application.GetOpenFilename("Ex...
10.09.2009 18:11:11
Thread-ID: 1101833
3 Beiträge
GetOpenFilename nicht nur xls-Mappen öffnen
Lutz

Hallo,
möchte gern mit dem Resultat von Dialog Application.GetOpenFilename nicht nur Excel-, sondern auch andere Dokumente, mit der jeweiligen Anwendung starten.
Wie kann ich das bewerkstelligen?
M.f.G.
Lutz
13.10.2010 17:54:50
Thread-ID: 1182301
3 Beiträge
Application.GetSaveAsFilename
Lutz

Hallo,
wenn ich
varPfad = Application.GetSaveAsFilename
aus einem Makro heraus starte, erhalte ich ja den Pfad zurück.
Wie kann ich die Rückmeldung abfragen, wenn der Dialog über die Excel-Schaltfläche gestartet wurde?
M.f.G.
Lutz
22.10.2010 07:13:25
Thread-ID: 1183442
13 Beiträge
GetOpenFileName Anzahl Filter
Heiko

Hi, zusammen,
ganz kurze Frage zur GetOpenFileName Methode:
Kann es sein, dass die Anzahl der moeglichen Filter auf 7 bzw die Anzahl der Zeichen fuer den Filterstring begrenzt ist? Sobald ich einen achten Flter hinzufuege, bekomme ich einen Laufzeitfehler 2015 "Typen unvertaeglich" fuer...
14.10.2011 00:03:45
Thread-ID: 1233761
6 Beiträge
Application.GetOpenFilename(multiselect:=true)
Salli

Hallo,wie kann ich automatisch einen Satz generierter Datein mit der Methode Application.GetOpenFilename(multiselect:=) auslesen, die numererisch geordnet sind ohne die Datei mit den Nummern am Ende
filname_2.* oder filename_3.* usw. erst nach Datei Nr. filname_19.* oder auch erst filname_19...
31.05.2002 13:59:05
Thread-ID: 125081
2 Beiträge
Anzeige
Getopen Filename?
Michael

Hallo Excelfreunde,
ich möchte nach der Betätigung einer Schaltfläche in einem Tabellenblatt, das automatisch die auf("C:\test.avi") gespeicherte Datei abgespielt wird.Ich habe es schon mit workbookopen "C:\test.avi" probiert leider ohne Erfolg.Ich bin für jeden Tip dankbar!!
04.06.2002 02:56:52
Thread-ID: 125637
6 Beiträge
Anzeige
Für Profis: Application.GetOpenFilename
Klaus

Hallo zusammen,Ich benutze folgendes VBA Konstrukt.
...
Application.GetOpenFilename("XLS Files (*.xls),*.xls", , , , True)
...
zum ermitteln von Dateien per Dialog.Leider schaffe ich es nicht die Dateinamen zu filtern.
Eigentlich möchte ich z.B nur die Dateien mit Namen "*blatt.x...
06.06.2002 16:48:11
Thread-ID: 126610
3 Beiträge
GetOpenFilename_MultiSelect
Andreas Richter

'Hi Freaks,
v = Application.GetOpenFilename("*.XLS Dateien (*.xls), *.xls", _
1, "Datei Einlesen", "", False)
'liefert den kmpl. Dateiname oder False.
'Weiss evtl. jemand, wie bei MultiSelect=True
v = Application.GetOpenFilename _
("*.XLS Dateien (*.xls), *.xls", 1, _<...
09.06.2002 19:52:14
Thread-ID: 127315
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige