ActiveWorkbook.SaveAs Filename 如何使用
ActiveWorkbook.SaveAs Filename使用技巧
Load_file函数的功能是读取文件并返回文件内容为字符串。要使用此函数，文件必须位于服务器主机上，必须指定完整路径的文件，而且必须有FILE权限。 该文件所有字节可读，但文件内容必须小于max_allowed_packet。
如果该文件不存在或无法读取，因为前面的条件之一不满足，函数返回 NULL。在MySQL5.0.19，character系统变量控制文件名的解释，即仅作文字字符串。
注意技巧
1、打开原来的工作薄，按ALT+F11，打开VBA代码窗口。
2、选菜单-插入-模块，得到1个“模块1”模块。
3、在模块1中输入sub MySaveAsFile()ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls"end sub。
4、保存文件。
5、关闭VBA窗口。
ActiveWorkbook.SaveAs Filename 如何使用，保存对不同文件中的工作表的更改。语法expression.SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage, TextVisualLayout,Local)expression必需。该表达式返回上述对象中一个对象。
CreateBackup 逻辑型，可选。如果该值为.T.，则创建备份文件。AccessMode 数值型，可选。可为以下XlSaveAsAccessMode常量之一。
XlSaveAsAccessMode 枚举常量值描述xlExclusive3不含方式xlNoChange1不更改访问方式xlShared2共享列表，如果省略此参数，则不会更改访问方式。
如果在没有改变文件名的情况下保存共享列表，则可以忽略参数。若要改变访问方式，请使用ExclusiveAccess方法。ConflictResolution 整型，可选。可为以下XlSaveConflictResolution常量之一。XlSaveConflictResolution 枚举指定每当共享工作簿被更新时要解决冲突的方式。
常量值描述xlLocalSessionChanges2自动接受本地用户的修改xlOtherSessionChanges3接受除本地用户之外的其他用户的更改xlUserResolution1显示冲突解决方案对话框如果忽略本参数，则显示冲突处理对话框。AddToMru 逻辑型，可选。如果该值为.T.，则将该工作簿添加到最近使用的文件列表中。默认值为.F.。
TextCodePage Variant类型，可选。不在美国英语版的MicrosoftExcel中使用。TextVisualLayout Variant类型，可选。不在美国英语版的MicrosoftExcel中使用。
Local 逻辑型，可选。如果该值为.T.，则以MicrosoftExcel（包括控制面板设置）的语言保存文件。
如果该值为.F.（默认值），则以VisualBasicforApplications(VBA)（VBA：MicrosoftVisualBasic的宏语言版本，用于编写Windows应用程序，已被收入到了几个Microsoft应用程序中。）的语言保存文件，其中VisualBasicforApplications(VBA)为典型安装的美国英语版本，除非VBA项目中的Workbooks.Open来自旧的国际化的XL5/95VBA项目。
1、打开原来的工作薄，按ALT+F11，打开VBA代码窗口。
2、选菜单-插入-模块，得到1个“模块1”模块
3、在模块1中输入
sub MySaveAsFile()
ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls"
end sub
4.保存文件。
5、关闭VBA窗口。
使用方法：
打开菜单-工具-宏-宏...-，打开宏对话框，选择MySaveAsFile，单击执行按钮。
