方法
Sheets表示工作表集合,主要方法有:
- Add
增加一个工作表。
新创建的工作簿,默认只有一个工作表,可以通过Add方法来增加工作表。
语法:
Add()
Add(Name)
Add(Sheet)
Name: 指定工作表的名称
Sheet:一个现有的工作表
例如:
Dim Book
As
New XLS.Book()
Dim
Sheet1 As
XLS.Sheet
= Book.Sheets(0)
Book.Sheets.Add()
'增加一个工作表
Dim
Sheet2 As
XLS.Sheet
= Book.Sheets(1)
'引用新增加的工作表
Add方法可以带一个参数,指定新增表的名称,例如:
Book.Sheets.Add("统计")
'增加一个名为“统计”的工作表。
同样我们可以通过名称来引用工作表,例如:
Dim
Sheet2
As XLS.Sheet
= Book.Sheets("统计")
- Insert
在指定位置插入一个工作表。
语法:
Insert(Index)
Insert(Index,Name)
Insert(Index,Sheet)
Index: 指定插入位置
Name: 指定工作表的名称
Sheet:一个现有的工作表
例如:
Dim
Book1 As
New
XLS.Book("C:\001.xls")
Book1.Sheets.Insert(0,"订单")
Book1.Save("C:\001.xls")
- Remove
删除工作表。
语法:
Remove(Name)
Add(Sheet)
例如:
Dim Book As
New
XLS.Book
Book.Sheets.Add("统计")
Book.Sheets.Remove("统计")
- RemoveAt
删除指定位置的工作表。
例如删除第一个工作表:Dim
Book
As New
XLS.Book("c:\reports\test.xls")
Book.Sheets.RemoveAt(0)
示例
Add、Insert和Remove方法也可以直接增加或删除一个现有的工作表,例如下面的代码,将订单工作表由文件001.xls移动到002.xls:
Dim
Book1
As New
XLS.Book("C:\001.xls")
Dim Book2 As
New
XLS.Book("C:\002.xls")
Dim Sheet =
Book1.Sheets("订单")
Book1.Sheets.Remove(Sheet)
Book2.Sheets.Add(Sheet)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")
本页地址:http://www.foxtable.com/webhelp/topics/1465.htm