excel使用vba创建新的工作薄并另存为
时间:2023-10-24 20:06:09
今天小编为大家分享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、运行以上的代码,会出现错误提示,大家可以找一下为什么会出错,该如何修正,我提示一下错误的位置在于某个符号。
以上就是excel使用vba创建新的工作薄并另存为方法介绍,操作很简单的,大家学会了吗?希望这篇文章能对大家有所帮助!
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
wps表格如何更换样式
Win10系统开始菜菜单的关机按钮中没有注销怎么办
![](https://img.aspxhome.com/file/2023/29/a253399_0s.png)
Win10 20H1慢速预览版19033怎么手动更新升级?
![](https://img.aspxhome.com/file/2023/28/a241057_0s.png)
WPS excel如何将数字转换成泰文显示
![](https://img.aspxhome.com/file/2023/0/a186890_0s.jpg)
Win10系统提示GeForce Experience遇到错误且必须关闭的解决方案
![](https://img.aspxhome.com/file/2023/30/a263765_0s.jpg)
坑爹!win7系统重装后没宽带连接?怎么上网?
![](https://img.aspxhome.com/file/2023/4/a312068_0s.png)
Win10如何使用cleartype?如何禁用cleartype?
![](https://img.aspxhome.com/file/2023/26/a227258_0s.jpg)
谷歌工程师确认:Win10平台Chrome黑暗模式正在开发中
![](https://img.aspxhome.com/file/2023/4/a311694_0s.jpg)
Win10输入法没了打不了字怎么办?
![](https://img.aspxhome.com/file/2023/25/a218276_0s.png)
Apple Care+ 服务计划进行了哪些调整?年度 AC+ 订阅如何订购?
![](https://img.aspxhome.com/file/2023/1/a194231_0s.png)
YY进不去频道怎么解决?YY进不去频道的解决办法
![](https://img.aspxhome.com/file/2023/2/a290980_0s.jpg)
美颜相机怎么关闭自动添加水印 美颜相机关闭自动添加水印教程
![](https://img.aspxhome.com/file/2023/8/a339298_0s.jpg)
wtta.exe wtta是什么进程
win8点击高对比度主题后如何恢复?win8点击高对比度主题后恢复的方法
![](https://img.aspxhome.com/file/2023/28/a242954_0s.jpg)
Win7系统弹出“存储空间不足,无法处理此命令”
![](https://img.aspxhome.com/file/2023/3/a296261_0s.jpg)
WPS空心字体如何填充颜色?WPS空心字体填充颜色方法
![](https://img.aspxhome.com/file/2023/7/a182237_0s.png)
电脑键盘字母乱了怎么恢复图文教程
![](https://img.aspxhome.com/file/2023/3/a294323_0s.png)
Win10的蓝牙鼠标出现抖动的情况怎么办?
![](https://img.aspxhome.com/file/2023/1/a278162_0s.jpg)
Win10一周年更新任务栏图标新技能
![](https://img.aspxhome.com/file/2023/4/a311727_0s.jpg)
Word软件中空白处添加下横线怎么操作教学
![](https://img.aspxhome.com/file/2023/3/31013_0s.png)