"Speichern unter..." - dialog in MSAccess vba: wie?

In MSAccess ich habe eine Maske mit einem button. Wenn der Benutzer auf die Schaltfläche klickt, werden die Daten in eine Tabelle exportiert werden und auf einem .txt-Datei:

Private Sub Command_Click()
Dim Rst As DAO.Recordset
Dim AField As DAO.Field
Dim TempStr As String
Dim FileNumber
FileNumber = FreeFile
Open "c:\table.txt" For Output As #FileNumber
Set Rst = CurrentDb.OpenRecordset("Tabella1", dbOpenForwardOnly)
Do While Not Rst.EOF
    For Each AField In Rst.Fields
        If (AField.Name <> "ID") Then
            TempStr = TempStr & AField.value & "    "
        End If
    Next
    Print #FileNumber, Left(TempStr, Len(TempStr) - 1)
    TempStr = ""
    Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
Close #FileNumber
End Sub

Es funktioniert, aber ich würde eine Meldung "Speichern unter..." - dialog, indem der Benutzer wählen Sie die Datei auf, die Daten zu exportieren.

Ist es möglich?

InformationsquelleAutor Sefran2 | 2012-07-31
  1. 6

    Können Sie einen Verweis auf die Microsoft Office x.x Object Library und verwenden FileDialog.

    FileDialog-Eigenschaften

    Sub ShowFileDialog()
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogSaveAs)
    With dlgOpen
        .InitialFileName = "Z:\docs\"
        .Show
    End With
End Sub

    Auch: Wie bekomme ich eine einzelne Datei-Namen aus einer Datei Dialog-Objekt in VBA (MS Access 2007)?

    • Gibt es eine andere Möglichkeit (ohne Verwendung der Objekt-Bibliothek)?
    • Sie können Sie mit einem Formular (am besten) oder InputBox und dann alles tun, die überprüfung selbst, ob eine bereits bestehende Datei mit diesem Namen hat oder nicht und ob der name legal und geeignet.
    • msoFileDialogSaveAs wird nicht unterstützt, Zugriff. Die Filter-Eigenschaften also, die nicht arbeiten - die ist ruhig wesentlichen für die SaveAs-Dialog.
    InformationsquelleAutor Fionnuala
  2. 1

    Für eine API-Lösung finden Sie hier :
    http://access.mvps.org/access/api/api0001.htm

    Funktioniert gut für mich.
    Einfach Kopie und paste in ein neues Modul.

    • Nebenbei, die code in der link funktioniert nicht mit 64 bit MS Access.
    InformationsquelleAutor Xilmiki
Schreibe einen Kommentar