access的VBA实现另存对话框

[白泽Lab]

// 创建另存为对话框对象定义
Dim Cdlg As Object
// 创建另存为对话框对象（实例化）
Set Cdlg = CreateObject("MSComDlg.CommonDialog")
// 被存储文件的类型
Cdlg.Filter = "*.csv"
// 被存储文件的默认名字
Cdlg.FileName = "aaa"
// 弹出另存为对话框
Cdlg.ShowSave

[needacoder]

没看懂,友情帮顶