手机
当前位置:查字典教程网 >软件教程 >办公软件 >excel使用vba创建新的工作薄并另存为
excel使用vba创建新的工作薄并另存为
摘要:excel中使用vba来创建新的工作薄并另存为的方法,有需要的朋友可以参考本文,来看看吧!步骤1、首先我们打开一个工作样表作为例子。2、我们...

excel中使用vba来创建新的工作薄并另存为的方法,有需要的朋友可以参考本文,来看看吧!

步骤

1、首先我们打开一个工作样表作为例子。

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

excel使用vba创建新的工作薄并另存为2

3、工作薄是workbook是一个对象,所以我们定义一个变量wk为对象使用set语句,add新建方法是workbooks对象中的方法,Set Wk = Workbooks.Add即是新建一个工作薄。

excel使用vba创建新的工作薄并另存为3

4、这里我们禁止excel弹出警告对话框,目的是在运行vba的过程中不会弹出中止过程运行的需要人工去干预的一个警告对话框。大家可以理解一下当你在另存为时,excel会弹出的那个对话框去点击“确定”过程。

excel使用vba创建新的工作薄并另存为4

5、另存为方法会让你选择存储文件的路径和名字,这里我们直接用函数来给其赋值wk是对象,saveas是方法,filename是参数,直接输入路径和文件名即可。

excel使用vba创建新的工作薄并另存为5

6、参数的输入使用的是:=而不是直接使用=,这点大家要记住。另外因为前面使用过禁止显示信息提示,在使用完这个过程后,excel会处在不提示状态,所以我们应该加一句Application.DisplayAlerts = True来恢复设置。

excel使用vba创建新的工作薄并另存为6

7、运行以上的代码,会出现错误提示,大家可以找一下为什么会出错,该如何修正,我提示一下错误的位置在于某个符号。

excel使用vba创建新的工作薄并另存为7

以上就是excel使用vba创建新的工作薄并另存为方法介绍,操作很简单的,大家学会了吗?希望这篇文章能对大家有所帮助!

【excel使用vba创建新的工作薄并另存为】相关文章:

Excel如何利用Get.Cell函数完成单元格颜色求和

在Excel表格中如何使用数据有效性判断输入的身份证号码是否正确

excel中统计关键词的个数的实例及应用

如何在Word2010中创建分数公式

Excel 复制原汁原味的图表

Excel中让网格线显示和打印的方法

如何用Excel快速批量创建人名的文件夹

Excel表格使用公式批量得出结果的图文介绍

Excel如何自动求平均值的方法

excel表格列查重复与不重复的方法

精品推荐
分类导航