1. vba另存为对话框
我的做法是,新建一个模块,在这个模块里声明一个公有变量如:Public a As Integer然后,在sheet1的Worksheet_Activate()事件里写上代码:Private Sub Worksheet_Activate()a = InputBox("mmmm")Worksheets("sheet2").SelectEnd Sub然后在sheet2的Worksheet_Activate()事件里写上代码:Private Sub Worksheet_Activate()If InputBox("nnnnnn") = a Then Range("a1").Value = aEnd Sub你参考一下吧
2. vba另存excel文件
1、在新工作表的Sheet1上点击右键2、选择查看代码3、点击倒三角，选择Worksheet4、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发5、点击候出现如下代码框架6、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格7、点击保存，然后关闭VBA窗口8、由于A1,B1没有数据，所以C1为09、输入数据后，会发现即使按了回车，C1也不变，因为设置的是双击鼠标左键触发。
10、就可以用EXCELVBA保存文件了。
3. vba另存为xlsm格式
1.xls
xls是一个特有的二进制格式，核心结构属于复合型文档类型，是2003版本Office Microsoft Office Excel工作表保存的默认格式。新建Excel表格保存的后缀名为“.xls”。
2.xlsx
xlsx的核心结构是XML类型结构，采用了XML的压缩方式，使其占用的空间更小，xlsx中最后一个x的意义就在于此，它是Excel2007版本的文件。新建Excel表格默认保存的后缀名为“.xlsx”。
3.xlsm
xlsm同xlsx一样是属于07年版本的保存文件。一般情况下Excel不会自动启用“宏”，但是老师们在使用过程中可能会需要用到宏功能，在这个时候文件的格式就需要选择xlsm，这样才能够保存表格中的VBA代码，它的后缀名是“.xlsm”。
4.pdf
pdf是Portable Document Format的缩写，即可移植文档格式是一种用独立于应用程序、硬件、操作系统的方式呈现文档的文件格式。老师们在生成和输出图片时会保存该格式，其后缀名为“.pdf”。不过需要注意的是Excel导出的pdf文档仅用于阅读，并不可以直接修改。
5.et
et属于金山办公软件WPS Office中的电子表格文件，相当于微软办公软件的excel一样，可以用Excel打开，也可以下载安装WPS就能打开。
4. vba怎么另存为到指定文件夹
EXCEL汇总表格自动从本文件夹中指定excel表格提取数据
1 选中原表格的指定区域，按Ctrl C
2 按Ctrl N 新建一个EXCEL文件
3 选中A1右键，选择粘贴，如果原区域有公式，建议右键，选择粘贴为值，这样避免数据因为原区域的改变而改变。
4 保存新有EXCEL文件
如果是批量的，那最好用VBA实现，这个要有数据文件和说明要实现的效果
如何把文件夹里的文件名快速导出到excel表格里
1、打开员工信息表，要将员工姓名这一列排列整齐，可以设置为居中、左对齐、右对齐等。
2、在B1输入="md "
5. vba另存为手动选择的路径
移动光标至文档开始Selection.HomeKey unit:=wdStory下面的供参考:Sub MoveToCurrentLineStart()'移动光标至当前行首Selection.HomeKey unit:=wdLineEnd SubSub MoveToCurrentLineEnd()'移动光标至当前行尾Selection.EndKey unit:=wdLineEnd SubSub SelectToCurrentLineStart()'选择从光标至当前行首的内容Selection.HomeKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectToCurrentLineEnd()'选择从光标至当前行尾的内容Selection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectCurrentLine()'选择当前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub MoveToDocStart()'移动光标至文档开始Selection.HomeKey unit:=wdStoryEnd SubSub MoveToDocEnd()'移动光标至文档结尾Selection.EndKey unit:=wdStoryEnd SubSub SelectToDocStart()'选择从光标至文档开始的内容Selection.HomeKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectToDocEnd()'选择从光标至文档结尾的内容Selection.EndKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectDocAll()'选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思）Selection.WholeStoryEnd SubSub MoveToCurrentParagraphStart()'移动光标至当前段落的开始Selection.MoveUp unit:=wdParagraphEnd SubSub MoveToCurrentParagraphEnd()'移动光标至当前段落的结尾Selection.MoveDown unit:=wdParagraphEnd SubSub SelectToCurrentParagraphStart()'选择从光标至当前段落开始的内容Selection.MoveUp unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectToCurrentParagraphEnd()'选择从光标至当前段落结尾的内容Selection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectCurrentParagraph()'选择光标所在段落的内容Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub DisplaySelectionStartAndEnd()'显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0MsgBox ("第" & Selection.Start & "个字符至第" & Selection.End & "个字符")End SubSub DeleteCurrentLine()'删除当前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendSelection.DeleteEnd SubSub DeleteCurrentParagraph()'删除当前段落Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendSelection.DeleteEnd Sub
6. excel vba 另存为xlsx格式
方法如下：
1、鼠标右键新建文件，找不到excel；
2、win+R快捷键弹出命令运行框；
3、输入“regedit”,回车进入注册表编辑器；
4、单击是，进入注册表编辑器；
5、点开第一个文件夹（HKEY_CLASSES_ROOT)；
6、滚动鼠标，找到后缀为 .xlsx 文件夹；
7、点击后，在右面可以编辑它的“默认”属性，将他的值改成“Excel.Sheet.12” ；
8、单击确定按钮 ；
9、然后关掉就可以了，多刷新几次，右键就恢复正常了；
10、单击新建就能看到excel，可以新建excel了。
拓展资料
Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。
直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。
在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。
Office最初是一个推广名称，出现于1990年代早期，指一些以前曾单独发售的软件的合集。当时主要的推广重点是：购买合集比单独购买要省很多钱。最初的Office版本包含Word、Excel和PowerPoint。
“专业版”包含Microsoft Access，Microsoft Outlook 当时不存在。随着时间的改变，Office应用程序逐渐集成，共享特性，例如：拼写和语法检查、OLE数据集成和VBA脚本语言。微软将Office延伸作为一个开发平台，可以借由专用商店下载第三方软件搭配使用。
- 相关评论
- 我要评论
-