Frage zu Dialogfeld "Speichern unter"

[Yilva]

Hallo an alle,
habe mal eine Frage.

In meinem vba Programm soll ich es ermöglichen das bei einer bereits vorhandenen Datei der Speichern unter Dialog geöffnet wird und der Benutzer die Möglichkeit hat den Namen selbst einzutragen. Das Verzeichnis dabei ist vorgegeben.
Das funktioniert auch soweit, allerdings wird die Datei nach anklicken des Speichern Buttons nicht gespeichert.

Hier mal mein Versuch, hoffe das hilft das ganz ein wenig besser zu verstehen:

Private Sub Word_öffnen_Click()
    Dim d As Object
    Dim name As String
    Dim anzahl As Long
    Dim wert As Integer
    Dim dlgSaveAs As FileDialog
    
    anzahl = DCount("*", "TabXJ2006")
    wert = 0
    On Error Resume Next
    Do While anzahl > wert
        With Me!Dokument
            name = Me!CRM_Ansprechpartnernummer
            Set d = .Object
              If Dir("Q:\Team\blabla\" & name & ".doc") = "" Then
                d.SaveAs "Q:\Team\blabla\" & name
                Else
                    MsgBox "Datei schon vorhanden!"
                    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
                    dlgSaveAs.InitialFileName = "Q:\Team\blabla\"
                    dlgSaveAs.Show
                    
              End If
           Set d = Nothing
           DoCmd.GoToRecord , , acNext
           wert = wert + 1
       End With
    Loop
 End Sub

Nun meine eigentliche Frage:
Muss ich an dieser Stelle das Feld auslesen, in das der Benutzer den Namen eingetragen hat und diesen dann mit der SaveAs methode speichern? Falls ja, wie funktioniert das.
Oder gibt es noch andere Möglichkeiten?

Schon mal vielen Dank
Gruß Yilva

 

[Shakie]

Muss ich an dieser Stelle das Feld auslesen, in das der Benutzer den Namen eingetragen hat und diesen dann mit der SaveAs methode speichern?

Genau so ist es. Der vom Benutzer ausgewählte Dateipfad müsste in "dlgSaveAs.Filename" stehen.

 

[Yilva]

hallo,
sorry aber hatte erst heute wieder Gelegenheit dazu weiter zu machen.
Der Pfad ist glaube ich nicht das Problem, den geb ich doch mit

 dlgSaveAs.InitialFileName = "Q:\Team\blabla\"

vor, oder?
Oder ist es trotzdem sinnvoll den Pfad nocheinmal zu bekommen?

Aber ich weiß nicht wie ich den neuen Dateinamen, den der Benutzer eingeben hat, herausbekommen soll.


Gruß Yilva

 

[Nirraven]

Private Sub Word_öffnen_Click()
    Dim d As Object
    Dim name As String
    Dim anzahl As Long
    Dim wert As Integer
    Dim dlgSaveAs As FileDialog
    
    anzahl = DCount("*", "TabXJ2006")
    wert = 0
    On Error Resume Next
    Do While anzahl > wert
        With Me!Dokument
            name = Me!CRM_Ansprechpartnernummer
            Set d = .Object
              If Dir("Q:\Team\blabla\" & name & ".doc") = "" Then
                d.SaveAs "Q:\Team\blabla\" & name
                Else
                    MsgBox "Datei schon vorhanden!"
                    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
                    dlgSaveAs.InitialFileName = "Q:\Team\blabla\"
                    dlgSaveAs.Show
                    For Each vrtselecteditem In .SelectedItems
                        varDateiName = vrtselecteditem
                    Next
                    
              End If
           Set d = Nothing
           DoCmd.GoToRecord , , acNext
           wert = wert + 1
       End With
    Loop
 End Sub

So müsstest du den Dateinamen in die Variable "varDateiName" bekommen.

 

[Yilva]

Hallo
und danke für die Antworten.
Aber ich glaube manchmal sehe ich den Wald vor lauter Bäumen nicht.

Ich habe glaube ich habe eben verstanden warum es bei mir nicht funktioniert. Der speichern unter Dialog funktioniert nur mit einem geöffneten Dokument, allerdings öffne ich mein Dokumente nicht. So kann es also nicht funktionieren.

Trotzdem vielen Dank für die Mühe

Gruß Yilva