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

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 ein Dialogfeld "Speichern unter ..." anzeigen, indem der Benutzer die Datei auswählen kann, in die die Daten exportiert werden sollen.

Ist es möglich?