文件保存对话框 Excel VBA

Question

我正在尝试按照此处的教程进行操作 http://software-solutions-online.com/excel-vba-save-file-dialog-getsaveasfilename/ 并将我的代码输入为：

varResult = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx")

现在，当我编译语法时，出现以下错误：

Method or Data Membor Not Found

关于这个特定元素 GetSaveAsFilename

我 运行 在 Access 2013 中保存 Excel 2013 .xlsx - 我应该更改什么以便提示用户输入保存名称和位置？

Answer 1

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

A​​ccess 中的示例 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 对象。

Answer 2

另一个问题，本网站的 “Save as…” dialog box in MSAccess vba: how? 有一些有用的提示可以帮助您；我遇到了类似的问题，这为我解决了！正如 ashleedawg 所说，VBA 语法在不同的应用程序中并不完全相同。

您也可以尝试使用 Application.FileDialog msoFileDialogSaveAs，但请确保将包含这些符号的库包含到您的项目中。 Access 很可能会生成一个提示，通知您将库引用添加到项目中。 唯一的问题是您无法应用文件类型过滤器。如果这是重要的事情，请查看 Microsoft 论坛上的本指南。 Display Open and Save As Dialog Boxes in Access with API Functions。