VBA中使用保存文件对话框并设置文件扩展名

最新推荐文章于 2023-12-19 14:52:46 发布

原创最新推荐文章于 2023-12-19 14:52:46 发布 · 2.9k 阅读

3 ·

CC 4.0 BY-SA版权

VB 专栏收录该内容

2 篇文章

订阅专栏

本示例展示了如何使用VBA代码在Excel中将当前工作簿另存为文本文件。通过调用Application.GetSaveAsFilename方法，用户可以选择保存位置及文件名，最后弹出消息框显示保存路径。

fileSaveName = Application.GetSaveAsFilename( _ 
 fileFilter:="Text Files (*.txt), *.txt") 
If fileSaveName <> False Then 
 MsgBox "Save as " & fileSaveName 
End If

参考链接

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

sdhongjun

关注关注

1
点赞
踩
3

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
打赏
打赏
打赏举报

举报

专栏目录

CorelDRAW VBA - 打开文件（另存为）对话框

Zebe

05-12

3618

本文介绍在 CorelDRAW VBA中使用官方原生工具 CorelScriptTools 调用文件对话框，选择文件并获得文件路径的VBA代码。其提供的 GetFileBox 方法可用来打开文件对话框（或者另存为对话框）。 CorelScriptTools CorelScriptTools 是Corel官方提供的一个脚本工具，可以用来执行很多有用的操作。比如 GetFileBox 方法就可以用来...

VBA读取不带后缀名文本文件的方法(解决Unix文本文件在Windows下变成一行的读取)

weixin_42255757的博客

07-29

784

Unix/Mac系统下的文件在Windows里打开的话，所有文字会变成一行，本文主要说明了这种文件的读取方法

参与评论您还未登录，请先登录后发表或查看评论

VBA保存Excel文件

daiswy的博客

12-22

7195

VBA保存Excel文件 Private SubCommandButton1_Click() Dim xFileName AsString Application.DisplayAlerts= False xFileName =Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook(*.xlsx),*.xls

vba另存为”对话框备份文件

05-27

vba另存为按钮，代码原件。可直接复制插入

VBA编写的小程序（修改指定文件夹内文件的后缀名）

09-27

在Excel表中通过VBA编码，制做了一个小程序，功能是"修改指定文件夹包括子文件中文件后缀名".说明：Excel表的sheel1列A中存放了后缀名，不能删除。否则窗口中的下拉框没有值。该程序的特点是用VBA调用外部批处理代码，并给bat传递了三个参数。这里要感谢北极狐工作室提供的FileAllArr函数。使用方法，双击打开Excel表就可以弹出窗口使用了。

常用的VBA代码参考

Smilecoc的博客

06-19

4623

一些日常经常用到的VBA代码汇总 VBA中调用SQL 在Excel中调用SQL进行数据处理 Sub Query() Dim Conn As Object, Rst As Object Dim strConn As String, strSQL As String Dim i As Integer, PathStr As String Set Conn = CreateObject("ADODB.Connection") Set Rst = CreateObject("ADODB.Recordse

VBA自定义函数-保存文件对话框

阿亮的专栏

12-07

4140

Function 保存文件(Optional Title As String = "保存文件") As Variant With Application.FileDialog(msoFileDialogSaveAs) '2 .Title = Title .InitialFileName = Environ("userprofile") & "\Desktop

Excel_VBA实现：fso弹出对话框进行打开另存（附FileDialog 属性）

12-19

2562

【代码】Excel_VBA实现：弹出对话框进行打开另存。

文件打开和保存对话框的练习

06-24

2. **保存文件对话框**：`CommonDialog1.ShowSave`方法则用于打开“保存文件”对话框，用户可以输入文件名并选择保存位置。同样，`DialogTitle`、`Filter`和`InitDir`属性同样适用于此对话框。 3. **属性设置**：...

使用VBA编写程序，运行时打开文件选择对话框，允许用户多选文件（主要是txt文件），将每个选中的txt文件转换为Excel数据（即分列），每个txt文件对应Excel工作簿中的一个工作表，工作表名称为该txt文件的文件名（不含扩展名）。转换完成后，弹出保存对话框让用户选择存放位置，保存为Excel文件。

最新发布

11-29

我们之前已经编写了一个VBA宏来实现将多个TXT文件转换为Excel工作簿，每个TXT文件对应一个工作表，工作表名为文件名（不含扩展名），转换后弹出保存对话框让用户选择保存位置。根据用户的问题，他要求的功能我们...

深入探索ExcelVBA：应用对象属性与文件对话框方法

### 深入探索Excel VBA：应用对象属性与文件对话框方法在Excel VBA编程中，合理运用应用对象的属性和方法能够显著提升代码的运行效率和用户体验。本文将详细介绍如何通过应用对象属性控制Excel界面行为，以及如何...

GetSaveAsFilename 方法的使用说明

05-31

GetOPenFIles 的使用说明非常有用

一个取得文件扩展名的函数

zgqtxwd的专栏

05-01

678

<script type="text/javascript"

他山之石——VBA文件操作对话框

预见未来to50的专栏

06-25

1287

这部分还是很实用的，曾经使用这些方法帮助客户实现过一个小工具，很大程度提升了工作效率。Option Explicit '一 FileDialog 对象简介 '提供文件对话框，功能与 Microsoft Office 应用程序中标准的“打开”和“保存”对话框类似。 '利用这些对话框，解决方案的用户可以简便地指定解决方案中应该使用的文件和文件夹。 ' '“打开”对话框：让用户选择一个或多个可以...

通用（32位、64位） CAD VBA(6.0、7.0)实现打开、另存、选择文件夹对话框

11-26

3387

vba可以调用windows API函数实现弹出打开文件、另存文件及选择文件夹对话框，然而低版本CAD（32位CAD，对应VBA6）写的代码到高版本CAD(64位，对应VBA7)往往运行不了，提示各种错误。不同版本的VBA写出的DVB文件不能通用往往令人懊恼，而网上给出的解决办法也是只言片语，很难彻底解决这一难题。不要灰心，这里给出终极代码。本人亲测，32位、64位CADVBA均可行，如有引用，请附上本文链接，注明出处，码字不易。版权所有qq:443440204,如有引用，请注明出处！

终于解决了：在vba中，使用api打开文件保存对话框

xubo8219的专栏

10-07

3260

苍天啊！不容易啊！几代人的心血，终于让我拼在一起了。以下代码，请写入标准模块中在aceess 2007中测试通过。希望，对大家有帮助 Option Explicit Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA

VBA自定义函数：获取路径、文件名、扩展名[20110228]