作者：乔山办公网日期：
返回目录：excel表格制作
1、如下图所示，我想将桌面上第一抄章中的每个工作簿名称放置到工作表中。
2、新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。
3、在VBA中，单击插入按钮，点击插入菜单下的模块，即可新建模块，系统默认为模块1，当然也可以根据需要重命名。
4、使用do~~loop循环语句，在VBA中输入如下图所示代码：
5、返回名为“第一章目录”的百工作簿中，按alt+f8组合键，弹出宏对话框。
6、点击宏对话框中的执行按钮，宏对话框自动关闭，代码自动执行，即第度一章中的每个文件夹名称全部显示在工作表sheet1中。最后根据自己的需要调整格式。
Excel 开发人员参考
Workbook.SaveAs
方法
在另一不同文件中保存对工作簿所做的更改。
语法
表达式.SaveAs(FileName, FileFormat,
Password, WriteResPassword, ReadOnlyRecommended,
CreateBackup, AccessMode, ConflictResolution,
AddToMru, TextCodepage, TextVisualLayout,
Local)
Filename
可选
Variant
一个表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，Microsoft Excel
将文件保存到当前文件夹中。
FileFormat
可选
Variant
保存文件时使用的文件格式。要查看有效的选项列表，请参阅 XlFileFormat
枚举。对于现有文件，默认采用上一次指定的文件格式；对于新文件，默认采用当前所用 Excel 版本的格式。
Password
可选
Variant
它是一个区分大小写的字符串（最长不超过 15 个字符），用于指定文件的保护密码e799bee5baa6e78988e69d83362。
WriteResPassword
可选
Variant
一个表示文件写保护密码的字符串。如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读方式打开。
ReadOnlyRecommended
可选
Variant
如果为 True，则在打开文件时显示一条消息，提示该文件以只读方式打开。
CreateBackup
可选
Variant
如果为 True，则创建备份文件。
AccessMode
可选
XlSaveAsAccessMode
工作簿的访问模式。
ConflictResolution
可选
XlSaveConflictResolution
一个 XlSaveConflictResolution
值，它确定该方法在保存工作簿时如何解决冲突。如果设为 xlUserResolution，则显示冲突解决对话框。如果设为
xlLocalSessionChanges，则自动接受本地用户的更改。如果设为
xlOtherSessionChanges，则自动接受来自其他会话的更改（而不是本地用户的更改）。如果省略此参数，则显示冲突处理对话框。
AddToMru
可选
Variant
如果为 True，则将该工作簿添加到最近使用的文件列表中。默认值为
False。
TextCodepage
可选
Variant
Microsoft Excel 中对于所有语言都忽略此参数。
注释
当 Excel 将工作簿保存为某种 CSV 或文本格式（使用 FileFormat 参数指定）时，Excel
使用对应于当前计算机上使用的系统区域设置语言的代码页。在“控制面板”中单击“区域和语言”，再单击“位置”选项卡，在“当前位置”下可获得此系统设置。
TextVisualLayout
可选
Variant
Microsoft Excel 中对于所有语言都忽略此参数。
注释
当 Excel 将工作簿保存为某种 CSV 或文本格式（使用 FileFormat 参数指定）时，它按逻辑布局保存这些格式。如果文件中左至右 (LTR)
文本嵌在右至左 (RTL) 文本中，或者相反，那么逻辑布局将把文件的内容，按照文件中所有语言的正确阅读顺序保存，而不考虑方向。当应用程序打开文件时，每串 LTR
或 RTL
字符将根据代码页中的字符值范围，按照正确的方向呈现。（除非用来打开文件的应用程序是为显示文件的确切内存布局而设计的应用程序，如调试器或编辑器）。
Local
可选
Variant
如果为 True，则以 Microsoft Excel（包括控制面板设置）的语言保存文件。如果为
False（默认值），则以 Visual Basic for Applications
(VBA) 的语言保存文件。VBA
通常为美国英语版本，除非从中运行 Workbooks.Open 的 VBA 项目是旧的国际化 XL5/95 VBA
项目。
说明
请使用同时包含大小写字母、数字和符号的强密码。弱密码不混合使用这些元素。强密码：Y6dh!et5。弱密码：House27。请使用您可以记住的强密码，这样就不必将它写下来。
示例
本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿。
Visual Basic for Applications
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
呵呵，这小白百需求，无语。
实现起来倒是度很容易：问
每个工作表下面写这个：
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Save
End Sub
只要有单元格答被改就自动保存专。
总体感觉这需求毫无意义也没有必要用属VBA实现。
1、在新工作表的Sheet1上点击右键
2、选择查看代码
3、点击倒三角，度选择Worksheet
4、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触版发
5、点击候出现如下代码框架
6、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并权放在C1单元格
7、点击保存，然后关闭VBA窗口
8、由于A1,B1没有数据，所以C1为0
9、输入数据后，会发现即使按了回车，C1也不变，因为设置的是双击鼠标左键触发。
10、就可以用EXCELVBA保存文件了。