Excel VBA中的“文件保存”对话框

此特定方法在Access VBA中不起作用。（VBA在Office产品之间不是100％可互换的。）

Access VBA中的示例：

Sub TestFileDialog()
'requires Reference to "Microsoft Office xx.x Object Library"
    Dim strFilename As String
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            strFilename = .SelectedItems(1)
        Else
            MsgBox "No filename specified!", vbExclamation
            Exit Sub
        End If
    End With

    'do something with strFilename

End Sub

这应该适合于从Access保存Excel对象。