Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.GetOpenFilename

Application.GetOpenFilename
08.05.2009 19:14:17
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.GetOpenFilename
09.05.2009 00:26:53
Raist10
Denke schon.
Müsste - ungetestet - in etwa so gehen:

Sub XCDDFRER ()
Dim intZ As Integer
Dim varDatei As Variant
intZ = 0
varDatei = Application.GetOpenFilename(blabalbabla)
If IsArray(varDatei) Then
For intZ = LBound(varDatei) To UBound(varDatei)
Workbooks.Open varDatei(intZ)
Next
End If
End Sub


Zumindest mal so im groben. ;)
Gruß
Rainer

AW: Application.GetOpenFilename
09.05.2009 09:54:51
ioannis
Hallo Rainer,
Danke für die Antwort. Ich habe wahrscheinlich die Frage nicht so gut formuliert. Ich benutze folgenden Code:

Option Explicit
Option Base 1

Sub Syntax()
Dim varFile As Variant
Dim iFile As Integer
varFile = Application.GetOpenFilename("Text Files (*.txt), *.txt", MultiSelect:=True)
If TypeName(varFile) Like "Boolean" Then Exit Sub
For iFile = 1 To UBound(varFile)
Debug.Print varFile(iFile)
Next iFile
End Sub



... und Multiselect funktioniert solange die Dateien die ich auswähle, sich in einem Ordner befinden. Wenn ich aber z.B. eine Ebene nach oben gehe, um auf mehrere Dateien zu klicken, gehen die ersten Dateien verloren, die sind nicht mehr in der varFile.
mfg
ioannis

Anzeige
AW: Application.GetOpenFilename
09.05.2009 11:08:05
Raist10
Ich denke das lässt sich schlecht umgehen. Bau doch einfach eine Schleife mit Abfrage ein, also im Prinzip 4 Dateien aus dem ersten Ordner ins Array übernehmen und mit öffnen den GetOpenFilename-Dialog verlassen, danach MsgBox "Wollen Sie weitere Dateien ins Array einlesen?" und dann wieder das Ganze von vorne durchlaufen halt nur mit einem neuen Ordner.
Und erst wenn bei der Abfrage 'Nein' kommt, die Dateien verarbeiten.
Gruß
Rainer
AW: Application.GetOpenFilename
09.05.2009 14:29:37
ioannis
Hallo Rainer,
ja sieht so aus, es lässt sich nicht vermeiden. Trozdem lasse ich das Thread open, vielleicht weiß jemand einen geschickten Trick dazu. Trozdem danke...
mfg
ioannis
Anzeige

302 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
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
Anzeige
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 nach Dateiname Filtern
thomas

Hallo,
schon wieder eine Frage....
kann man mit der GetOpenFilename Methode auch gleich nach
Dateinamen sortieren und nicht nur nach Suffixen ?
Also das er nur z.B. die Datei "Name.xlsx" findet...?
Thomas
21.02.2011 16:46:19
Thread-ID: 1202112
4 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

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
8
10
2
2
12
3
5
1
5
2
1
2
2
4
2
1
2
1
3
3
2
4