Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.GetOpenFilename mit Netzwerkpfad

Application.GetOpenFilename mit Netzwerkpfad
13.09.2005 10:19:20
Martin
Hallo!
Jetzt sitze ich schon Ewigkeiten an einem Problem, bei dem ich einfach keine Lösung finde: Wie kann ich ein Öffnen-Dialog erzeugen, in dem die Adresse der zu öffnenden Datei im Netzwerk schon vorgegeben ist?
So geht es leider nicht:
ChDir "\\Notebook-martin\Netzwerkordner Notebook
fileToOpen = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
Über Lösungsvorschläge wäre ich sehr dankbar!!!

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

Betreff
Datum
Anwender
Anzeige
AW: Application.GetOpenFilename mit Netzwerkpfad
13.09.2005 11:08:54
EtoPHG
Hallo Martin,
Gratis und Franko:
Probiers mal hiermit.
Tip: Du musst den Drive wechseln, bevor Du den Path wechseln kannst.

Sub openAlternativePath()
'   Copyright 2004 by EtoP Hansueli Göldi
'   Part of exBox (Excel utilities out of the box)
'   Open dialog for an alternative directory
'   Settings are saved in registry for second use of Routine
Dim sAppName, sSection As String
Dim sFileToOpen As Variant
Dim sFilesPath As String
Dim sSaveCurDir As String
Dim sSaveCurDrive As String
Dim ix As Integer
sAppName = "MartinsApp"
sSection = "DriveDir"
On Error Resume Next
sSaveCurDir = CurDir()
sSaveCurDrive = Left(CurDir(), 1)
If GetSetting(sAppName, sSection, "ThisPath") <> "" Then ChDrive GetSetting(sAppName, sSection, "ThisPath")
If GetSetting(sAppName, sSection, "ThisPath") <> "" Then ChDir (GetSetting(sAppName, sSection, "ThisPath"))
sFileToOpen = Application.GetOpenFilename("Exceldateien (*.xls), *.xls", , "Open a Excel")
If sFileToOpen <> False Then
Application.Workbooks.Open (sFileToOpen)
ActiveWorkbook.RunAutoMacros xlAutoOpen
ix = 1
sFilesPath = ""
Do While InStr(ix, sFileToOpen, "\") > 0
ix = InStr(ix, sFileToOpen, "\") + 1
Loop
sFilesPath = Left(sFileToOpen, ix - 1)
SaveSetting sAppName, sSection, "ThisPath", sFilesPath
SaveSetting sAppName, sSection, "ThisDrive", Left(sFilesPath, 1)
End If
ChDrive (sSaveCurDrive)
ChDir (sSaveCurDir)
On Error GoTo 0
End Sub

Gruss Hansueli
Anzeige
AW: Application.GetOpenFilename mit Netzwerkpfad
13.09.2005 11:13:18
Matthias
Hallo Martin,
ich habe nur diese, "unsabere" Lösung gefunden:

Sub Test()
Dim fileToOpen
Application.SendKeys "\\Notebook-martin\Netzwerkordner Notebook~"
fileToOpen = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
End Sub

GRuß Matthias
AW: Application.GetOpenFilename mit Netzwerkpfad
13.09.2005 12:16:04
Martin
Hallo Mathhias,
ob unsauber oder nicht, es funktioniert! Vielen Dank!
Beste Grüße,
Martin

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
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
Anzeige
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
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

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