excel如何使用vba创建新的工作薄并另存为
excel中使用vba来创建新的工作薄并另存为的方法,有需要的朋友可以参考本文,来看看吧!
步骤
1、首先我们打开一个工作样表作为例子。
2、我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Sub AddSaveAsNewWorkbook()
Dim Wk As Workbook
Set Wk = Workbooks.Add
Application.DisplayAlerts = False
Wk.SaveAs Filename:="D:/SalesData.xls"
End Sub
3、工作薄是workbook是一个对象,所以我们定义一个变量wk为对象使用set语句,add新建方法是workbooks对象中的方法,Set Wk = Workbooks.Add即是新建一个工作薄。
4、这里我们禁止excel弹出警告对话框,目的是在运行vba的过程中不会弹出中止过程运行的需要人工去干预的一个警告对话框。大家可以理解一下当你在另存为时,excel会弹出的那个对话框去点击“确定”过程。
5、另存为方法会让你选择存储文件的路径和名字,这里我们直接用函数来给其赋值wk是对象,saveas是方法,filename是参数,直接输入路径和文件名即可。
6、参数的输入使用的是:=而不是直接使用=,这点大家要记住。另外因为前面使用过禁止显示信息提示,在使用完这个过程后,excel会处在不提示状态,所以我们应该加一句Application.DisplayAlerts = True来恢复设置。
7、运行以上的代码,会出现错误提示,大家可以找一下为什么会出错,该如何修正,提示一下错误的位置在于某个符号。
最新科技数码科普
excel2013定位方法?
excel2013定位怎么做?第一种方法:步骤1:开始—查找和选择—定位条件步骤2:快捷键CTRL+G第二种方法:1、首先,我们启动Excel 2013工作表...
展开详情穿越火线REZ文件报错怎么办
穿越火线REZ文件报错怎么办1、尝试删除报错文件,完全修复游戏,但要注意节点同步2、在无盘系统管理端上重置缓存文件,并且删除报错后修复3、遇到极端情况的分析方...
展开详情冷门却很有趣的手机小游戏有哪些 冷门却很有趣的手机小游戏
摆脱榜首!一大波冷游戏来袭!冷门却很有趣的手机小游戏分享给大家!那些火爆的热门游戏你还没有玩腻吗?不过你还能玩多久呢?1个星期?2个星期?1个月?2个月?别逗...
展开详情能在MacOSX或者Linux上安装360手机助手吗
360(91)手机助手目前只能在Windows系统的电脑上使用,其他桌面操作系统暂时不支持。360手机助手是一款智能手机的资源获取平台。可以给用户提供海量的游...
展开详情GTA5 PC版错误代码1005解决方法 SocialClub错误怎么办
GTA5 PC版错误代码1005解决方法 GTA5SocialClub错误怎么办心仪已久的《GTA5》下好了,但是很多玩家进游戏时出现1005代码文图,别急,...
展开详情长焦相机和单反区别有哪些 长焦相机和单反区别详解
相机,可以帮我们记录生活中的各类美好瞬间。因此我们无论是工作还是生活都需要这类工具,不过各种形式的相机让人眼花缭乱。我们在众多的产品分类中,应该选择哪种呢?许...
展开详情