在VBA中,如何修改保存EXCEL对话框中的文件名?

各位大侠!
小弟在编EXCEL的VBA中,在执行下句后,
OpenTxtMessage = Application.Dialogs(xlDialogSaveAs).Show
遇到这个问题,如何在程序中修改保存对话框中的文件名?
请大家帮忙!

就这么写就行了:

OpenTxtMessage = Application.Dialogs(xlDialogSaveAs).Show("aaa.txt")

如果想了解更详细的,请看微软的参考手册:
object.SaveAs 文件名, fileFormat、 密码、 writeResPassword、 readOnlyRecommended, createBackup)

参考资料:http://support.microsoft.com/?scid=kb%3Bzh-cn%3B110670&x=14&y=12

温馨提示:内容为网友见解,仅供参考
无其他回答

excel 中,怎么利用vba把文件另存为另一个文件名?
首先,确保工作簿中的每个工作簿标题已写入相应的工作表。找到工作簿,然后在每个标题所在的单元格中定位。接下来,创建一个新的工作簿,命名为“第一章目录”。通过按下“Alt + F11”组合键,打开VBA编辑器,这是编写宏的界面。在VBA中,点击“插入”选项,然后选择“模块”,以创建一个新模块,用于...

excel中用vba怎么另存对话框vba另存
1. 可以通过VBA代码实现在Excel中弹出另存对话框。2. 原因是VBA中提供了SaveAs方法,可以用于保存文件,而另存对话框可以让用户选择保存的路径和文件名,提供更灵活的保存方式。3. 在VBA中,可以使用以下代码实现另存对话框: ``` Sub SaveAsDialog() Dim filePath As Variant filePath = Applicatio...

excel表格如何保存到指定文件夹
要将Excel表格保存到指定文件夹,可以使用VBA代码实现自动化操作。在Excel中,首先按下Alt+F11组合键打开VBA编辑器。然后,在“插入”菜单中选择“模块”,并在新打开的模块窗口中粘贴以下代码:Sub 保存文件()'要另存的位置在上面 ActiveWorkbook.SaveAs Filename:="192.168.5.6备份"'下面这个是平时...

excel 中,怎么利用vba把文件另存为另一个文件名?
1、桌面上第一章中的每个工作簿名称放置到工作表中。2、新建一个工作簿,将其命名为“第一章目录”,按alt+f11组合键,打开宏界面。3、在VBA中,单击插入按钮,点击插入菜单下的模块,即可新建模块,系统默认为模块。4、使用do~~loop循环语句,在VBA中输入。5、返回名为“第一章目录”的工作簿中...

excel中怎么使用Vba批量删除指定文件夹下的所有文件?
1、首先新建一个excel文件并双击打开,打开后,按快捷键F12进行另存为,注意另存的格式要选择启用宏的工作簿,如下图所示:2、接着找到左上角的文件按钮,选择选项按钮,如下图所示:3、在弹出的对话框中选择信任中心,并选择信任中心设置,接着选择隐私选项,并把保存时删除个人信息的对号去掉,整体...

在EXCEL中如何用VBA另存工作铺中的其中一中文名工作表,另存为新路径...
Cells.Select ' 全选单元格 Selection.Copy ' 复制并选择性粘贴为数值,去除公式 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False new_Book.SaveAs "D:\\" & Range("D16") & ".xls" ' 以D16中的内容为文件名,保存至D盘根目录...

excel中如何批量修改文件名excel中如何批量修改文件名字
要批量修改Excel文件名,可以使用VBA宏来实现。首先,打开Excel文件,按下Alt+F11进入VBA编辑器。在项目资源管理器中,双击该工作簿,然后在代码窗口中插入以下代码:Sub RenameFiles()Dim MyPath As String Dim MyFile As String Dim NewName As String MyPath = "C:\\\\YourFolderPath\\\\" '替换为...

请问如何用VBA实现将EXCEL中的一个工作表保存在指定文件夹内?
ThisWorkbook.Path 改成你需要的路径就可以了,比如改成 “C:",就在C盘根目录下

在excel2003中,怎么将编辑的vba宏保存才能使以后打开的每一张表格都能...
在excel里操作。【工具】-【宏】-【录制新宏】在弹出的对话框里,为你的宏取个名字,设置一个快捷键,并选择保存位置为【个人宏工作薄】(这个是关键),确定后,立即结束录制。然后编辑你刚才录制的这个宏,把代码全部删除,把你需要保存的代码复制过来,保存就可以了。以后,不管你在哪个EXCEL表里,...

excel中当再次点击保存宏时不会重复保存,怎样修改vba?
在copy前用一个变量先把编号给加载到内存。然后再激活要粘贴数据的存储表,激活之后,用一个IF语句来判断这个表里边是否存在这个编号。例如引用一个工作表函数COUNTIF,表达式直接输入编号对应的变量就行,查找的区域是存储表的编号区域。如果统计数大于零的话, 那就是已有这个编号了,就弹出对话框,并且...

相似回答