编写第一个VBA程序

实现在活动工作簿中自动新建工作表并将其重命名为“工资汇总”。

（1）打开VBE窗口，点击菜单“插入”——“模块”，在模块中新建一个模块（若删除模块，可点击删除模块对象，右键选择移除模块，这时弹出一个框“移除模块前是否导出”据自己情况选择。），同时自动弹出其代码窗口，若不弹出则可双击该模块对象打开其代码窗口；将光标定于模块的代码窗口中，点击菜单“插入”——“过程”，弹出“添加过程”对话框，输入名称AddSheet，点击确定，在模块对应的代码窗口自动生成自定义过程框架；在AddSheet过程框架中输入代码，实现自动新建名为“工资汇总”，代码如下：

Public Sub AddSheet（）

’新建工作表，命名为“工资汇总”

Dim ws As Worksheet

Set ws = Worksheets.Add

ws.Name="工资汇总”

End Sub

点击工具栏中的三角形按钮，运行模块中的AddSheet过程，执行代码后，当前工作簿中新增一张名为“工资汇总”的工作表。

（2）若要再自动生成另一个工作表并命名为其他名称，可在上面的代码中第二个“工资汇总”改为另一个名称，再点击三角形运行即可在当前工作簿中生成一张新的工作表，比如：

（3）若要保存代码，将其所在工作簿保存类型为“Excel启用宏的工作簿”。