vba - MSAccess vba中的“另存为...”对话框：如何？

Question

在 MSAccess 中，我有一个带有按钮的掩码。当用户点击按钮时，表格中的数据将导出到 .txt 文件中：

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

它可以工作，但我会通过允许用户选择导出数据的文件来显示“另存为...”对话框。

是否可以？

Answer 1

您可以设置对 Microsoft Office xx 对象库的引用并使用 FileDialog。

文件对话框属性

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

另外：如何从 VBA 中的文件对话框对象中获取单个文件名（对于 MS Access 2007）？

Answer 2

有关 API 解决方案，请参见此处： http ://access.mvps.org/access/api/api0001.htm

对我来说效果很好。只需复制并粘贴到新模块中。