Dialog speichern unter aufrufen, mit Pfadsuche

Hallo zusammen.

Erst mal frohes neues Jahr.

Ich hab ein Problem. Und zwar hab ich eine Mappe mit Schaltflächen, über die ich unter anderem den Explorer mit einem bestimmten Verzeichnis öffne.
Da die Mappe von verschiedenen Personen mit verschiedenen Zugriffsberechtigungen benutzt wird, ist beim Betätigen der Schaltfläche eine Pfadsuche hinterlegt. Diese prüft über ein Hilfsblatt (help.expl) die Pfade durch, die ich dort aufgeführt habe. Des Weiteren ist in jedem Ordner den ich darüber öffne eine Start Datei (*.ini Datei) abgelegt. Diese Datei wird über die vorgegebenen Pfade gesucht. Ist sie in einem der Pfade gefunden worden, öffnet der Explorer.

Soweit, Sogut.

Jetzt möchte ich mit der gleichen Methode, also mit suchen über vorgegebene Pfade, Start Datei, den Dialog speichern unter aufrufen. Also diesen Dialog öffnen mit einem vorher festgelegten Ordner. Normal geht das ja über Application.Dialogs(xlDialogSaveAs).Show. Hinter Show könnte ich jetzt noch schreiben D:\Test\ damit der Ordner Test direkt geöffnet wird. Ich brauch aber die Suchfunktion über die Hilfspfade.

Kann mir eventuell jemand bei einer funktionstüchtigen Vervollständigung des Makros helfen. Ich schaff es zwar mit dem Öffnen des Dialoges und einer vorherigen Anzeige, dass die Datei da und dort gefunden wurde, bekomme aber das Dialogfeld immer mit dem Ordner geöffnet, aus dem ich die Mappe heraus geöffnet habe.
Ich habe zur Veranschaulichung eine Beispieldatei mit angehängt. Es müssen auf G: nur zwei Verzeichnisse angelegt und in eines der Beiden die Datei Start.ini abgelegt werden. Wechselt man die ini Datei in den Ordnern hin und her sieht man die Funktionsweise.

Danke für jede Hilfe

Gruß Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer

Das versteh ich schon. (Hoffe ich zumindest)
Aber den gleichen Effekt habe ich doch mit dem Code:


Sub test()
Application.Dialogs(xlDialogSaveAs).Show "E:\Test\"
End Sub

Darin kann ich ja auch festlegen mit welchen Laufwerk oder Ordner der Dialog öffnen soll.
Das hat aber doch nichts mit meiner Pfadabfrage zu tun. Von den Pfaden die ich auf dem Hilfsblatt vorgebe, funktioniert definitiv immer nur einer. Hängt mit dem Firmennetzwerk und den unterschiedlichen Pfadnamen zusammen. Im ersten Teil meines Makros wird doch erst mal geprüft welcher Pfad überhaupt existiert. Und erst dann kann der Dialog mit dem Laufwerk und dem entsprechenden Ordner öffnen. Wie gesagt, es hängt alles von der Abfrage vorher ab.

Gruss Jens

Sub Dialog_speichern_unter_öffnen() 'prüfen, welcher Pfad existiert: Dim VorlPfad As String, VorlVerzeichnis As String Dim FSo, sWb Dim i As Byte 'alle angegebenen Pfade durchlaufen For i = 1 To 200 'zu überprüfendes Hilfsblatt festlegen VorlPfad = Worksheets("help.expl").Cells(i, 1) 'zu öffnende Datei festlegen VorlVerzeichnis = VorlPfad & "Start.ini" 'überprüfen, ob die Datei existiert Set FSo = CreateObject("Scripting.FileSystemObject") If FSo.FileExists(VorlVerzeichnis) Then 'Meldung ausgeben 'If Bowert = True Then MsgBox _ "Ordner wurde unter folgendem Pfad gefunden und wird jetzt geöffnet. Pfad lautet: " & VorlPfad 'prüfen ob "Verzeichnis" schon offen, wenn nicht öffnen: On Error Resume Next 'Ab hier weiß ich leider nicht mehr weiter wie ich den Code vervollständigen soll 'damit mir der Dialog "speichern unter" mit dem gewünschten Verzeichnis öffnet Dim stAppName As String Dim gDir As String 'Pfad öffnen gDir = VorlPfad 'Dialog öffnen ChDrive Left(gDir, 2) ChDir gDir Application.Dialogs(xlDialogSaveAs).Show 'stAppName = Application.Dialogs(xlDialogSaveAs).Show & gDir Exit Sub End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Dialog speichern unter aufrufen, mit Pfadsuche

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread