ActiveWorkbook.SaveAs Filename 如何使用

ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls"用电子表格a1中的数值做为文件名,这个怎么用,一步一步的说清楚

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窗口。

温馨提示:内容为网友见解,仅供参考
第1个回答  2021-09-29

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项目。

本回答被网友采纳
第2个回答  推荐于2019-02-20
ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls",这是在MS EXCEL电子表格中使用的VBA代码,作用是将当前活动工作薄以A1单元格中的值做为文件名,另外保存在活动工作薄所在的位置。
1、打开原来的工作薄,按ALT+F11,打开VBA代码窗口。
2、选菜单-插入-模块,得到1个“模块1”模块
3、在模块1中输入
sub MySaveAsFile()
ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls"
end sub
4.保存文件。
5、关闭VBA窗口。
使用方法:
打开菜单-工具-宏-宏...-,打开宏对话框,选择MySaveAsFile,单击执行按钮。本回答被提问者和网友采纳
相似回答