Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
176to180
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
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.GetOpenFilename

Application.GetOpenFilename
05.11.2002 08:41:47
Steffen D
Hallo,

Kann man irgendwie diese Zeile so ausbauen, dass der Benutzer nur eine Datei(z.B. Mappe.xls) mit bestimmten Namen auswählen kann? (ohne einer if-Abfrage):

vFile = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xls), *.xls", , "Bitte wählen Sie die Datei Mappe.xls aus")

thx
Gruss
Steffen D

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

Betreff
Datum
Anwender
Anzeige
Re: Application.GetOpenFilename
05.11.2002 08:45:32
Hajo_Zi
Hallo Steffen

sehe ich was falsch???

Wennn nur eine bestimmte Datei geöffnet werden soll, warum öffnets Du Sie nicht gleich??

Gruß Hajo

Re: Application.GetOpenFilename
05.11.2002 08:57:43
Steffen D
Ich tue diese Datei vorher öffnen, und wenn das nicht klappt (Datei verschoben) dann muß der Benutzer die Datei selber auswählen.
hier mein größerer Ausschnitt:

vFile = "C:\Temp\Mappe.xls"
Datei1 = Dir(vFile)
If Datei1 = "" Then
MsgBox ("Prüfen Sie bitte diesen Pfad, od die Datei existiert:" & vbNewLine & vFile)
vFile = Application.GetOpenFilename("Microsoft Excel-Dateien (*.txt), *.xls", , "Bitte wählen Sie die Datei Mappe.xls aus")
End If
Workbooks.Open Filename:=vFile, ReadOnly:=True

Danke schon mal,

weiß du zufällig auch wie das mit dem chdir funktioniert, ich möchte das GetOpenFilename standardmäßig auf den Pfad "//Ntserver" geht, wie geht das?

thx

Steffen

Anzeige
Re: Application.GetOpenFilename
05.11.2002 09:14:16
Hajo_Zi
Hallo Steffen

zum zweiten Teil folgender Ansatz
Dim strVerzeichnis$
strVerzeichnis = "E:\eigene Dateien"
' Überprüfen ob Verzeichnis vorhanden
If Dir(strVerzeichnis, vbDirectory) <> "" Then ChDir strVerzeichnis Else Exit Sub


mit Deinem Dialog hat er doch jetzt die möglich keit eine Datei auzuwählen. Ansonsten suche doch per VBA nach der Datei. Folgender Ansatz

das bedeutet natürlich die Datei gibt es nur einmal.

Gruß Hajo

133 Forumthreads zu ähnlichen 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
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
GetSaveAsFilename
Frank68

Halle Gemeinde,
eine Frage: Kann ich die Methode GetSaveAsFilename so modifizieren, dass im Dialogfeld ein bestimmter Dateiname (= Vorschlag) steht, der beispielsweise aus einer Zelle dieser Tabelle "gezogen" wird?
Dank!
20.01.2009 00:49:10
Thread-ID: 1041695
4 Beiträge
Anzeige
GetOpenFilename-Methode, best. Dateien
Werner

Hallo Zusammen,
ist es möglich, sich bei der GetOpenFilename-Methode bestimmte Dateien anzeigen zu lassen?
Im nachfolgendem Beispiel werden alle Excel-Dateien des aktuellen Pfades aufgelistet:
ChDrive ThisWorkbook.Path CHDir ThisWorkbook.Path fileToOpen = Application.GetOpenFilen...
26.05.2009 10:50:27
Thread-ID: 1077296
9 Beiträge
GetSaveAsFilename - mögliche Dateiendungen ermitt.
Norman

Hallo alle,
habe mal wieder ein komisches Problem :) Ich will GetSaveAsFilename nutzen. Klappt auch bestens. Jetzt möchte ich aber auch genau die Dateitypen als Filter anbieten, die Excel selbst anbietet. Normalerweise gibt es da, je nach Installation von Excel, unterschiedliche Endung von...
07.06.2009 21:35:16
Thread-ID: 1079758
7 Beiträge
GetOpenFileName und Multiselect
Jogy

Hi.
Einfach mal folgender Codeschnipsel: Sub test() Dim daTei daTei = Application.GetOpenFilename(, , , , True) Debug.Print (IsArray(daTei)) End Sub Der funktioniert so weit einwandfrei und gibt True aus, sobald ich etwas auswähle.
Nur sobald ich eine bestimmte Arbeitsmappe lade (natür...
06.07.2009 12:39:24
Thread-ID: 1086609
11 Beiträge
Typenfehler bei MulktiSelect mit openFileName
susanne

Hallo,
ich habe mal ver sucht im OppenFileName Dialog die Multiselect -option zu aktivieren.
Funktioniert auch auf Anhieb,
aber wenn ich jetzt auf "abbrechen " klicke gibt es einen Typfehler
und das Script bricht ab.
Vorher mit MultiSelect=false war alles ok.
Bei "abbrec...
14.07.2009 14:25:59
Thread-ID: 1088498
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
3
4
8
6
10
4
2
2
5
4
2
12
3
5
1
5
2
1
2
2
4
2