Office: xlDialogSaveAs LW und Ordner vorgeben

1u1 · 11. Februar 2008

Hallo,

Ich bitte Euch bei folgendem Problem um Hilfe.

Ich habe ein Musterformular. Der Dateiname wird aus mehreren Zellen gebildet.
Der Speicherort ist abhängig von einem Zelleintrag.

Das mit dem Dateinamen läuft bisher so:

Code:

Sub speichern_unter()
Dim Pfad As String
Dim Name As String

Pfad = "N:\Test\P1"
Name = Cells(1, 1) & "_" & Cells(1, 2) & "_" & "test.xls"

Application.Dialogs(xlDialogSaveAs).Show Name

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann ich den Speicherort (Pfad) an den SaveAs Dialog übergeben ?

Noch eine kurze Frage?
Kann ich in diesem Fall das "Workbook_BeforeSave()" Ereigniss nutzen?

Ich hoffe Ihr könnt mir weiterhelfen.

Micha

:)

Path · 13. Februar 2008

Hallo.

Mit ChDrive + ChDir

Gruß

Code:

Sub speichern_unter()
Dim Pfad$
Dim Name$
On Error GoTo msg
Pfad = "N:\Test\P1"
Name = Cells(1, 1) & "_" & Cells(1, 2) & "_" & "test.xls"
ChDrive "N"
ChDir Pfad

Application.Dialogs(xlDialogSaveAs).Show Name
Exit Sub
msg:
MsgBox Err.Number & " : " & Err.Description, vbOKOnly + vbExclamation, "Fehlermeldung"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

1u1 · 13. Februar 2008

Hallo,

Danke für Deine Antwort.
Der Dialog wird weithin in dem Ordner in dem sich die Ursprungsdatei befindet geöffnet.
Die Vorlagedatei befindet sich in meinem Beispiel zum testen auf C:\Test
Die einzelnen Formulare sollen auf diesem Weg auf N:\Test\P1 gespeichert werden.

Mit ChDrive und ChDir hatte ich auch schon ohne Erfolg gespielt.

Gibt es noch eine andere Lösung.

Micha

Path · 13. Februar 2008

Hilft dir dieses dann weiter?

Code:

Sub speichern_unter()
Dim Pfad$
Dim Name$
Dim VorgeschlagenerName$
Dim AusgewählterName$
On Error Resume Next
Name = Cells(1, 1) & "_" & Cells(1, 2) & "_" & "test.xls"

VorgeschlagenerName = "N:\Test\P1\" & Name
AusgewählterName = Application.GetSaveAsFilename(VorgeschlagenerName)

AuswahlAbgebrochen = (AusgewählterName = False)
On Error GoTo 0

If Not AuswahlAbgebrochen Then ThisWorkbook.SaveAs AusgewählterName
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

1u1 · 14. Februar 2008

Hallo Path,

Danke für Deine Hilfe zu später Stunde.
Es funktioniert so wie ich es mir vorgestellt habe.
Die Variable "AuswahlAbgebrochen" habe ich noch als "Boolean" deklariert .
Falls andere ein ähnliches Problem haben sollten.

Danke, ich habe wiedermal was gelernt.

Micha

Office: xlDialogSaveAs LW und Ordner vorgeben

xlDialogSaveAs LW und Ordner vorgeben

xlDialogSaveAs LW und Ordner vorgeben

xlDialogSaveAs LW und Ordner vorgeben

xlDialogSaveAs LW und Ordner vorgeben - Similar Threads - xlDialogSaveAs Ordner vorgeben

Outlook - Ordner gesendete Elemente wechseln

Öffentlicher Ordner Kontakte aktualisieren

Nach einer Datei suchen in mehreren Ordnern?

Ordner: Synchronisierungsprobleme

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Outlook 2019: Schriftart der Ordner/Posteingang ändern

Spam Ordner lässt sich nicht leeren