Question

vb给excel添加工作表

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = True
xlApp.Caption = "abc"
Set xlBook = xlApp.Workbooks.Add
xlBook.Worksheets(1).Name = "BOM"
请问怎么添加第二张工作表？

Answer 1

Excel中的VB语言叫做VBA，在VBE中使用代码新建即可。

Excel版本参考：2010

演示：新建一个表名为test的工作表。

1、ALT+F11，进入VBE窗口。

2、右击工作表标签-插入-模块。

3、输入代码：

Sub test()

Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "test"

End Sub

4、按下F5执行，查看工作表，新建的test表 已新建好。

Answer 2

Public Sub asasasa()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = True
xlApp.Caption = "abc"
Set xlbook = xlApp.Workbooks.Add
xlbook.Worksheets(1).Name = "BOM"
xlbook.Worksheets(2).Name = "BOM111111"
xlbook.Worksheets.Add(before:=xlbook.Worksheets("sheet3")).Name = "asasas"

End Sub

Answer 3

可以用：Set xlSheet=xlBook.worksheets.add
然后可以用xlsheet来操纵新加的这张表了。