快速入门

一、测试快速入门代码

将下面的代码复制到命令窗口执行,你现在无需理解这些代码,接下来我们会逐行分析。

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim
Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For
i As Integer = 0 To 9 '向工作表的单元格中设置值
    Sheet(i,
0).Value = (i + 1) * 10
    Sheet(i,
1).Value = (i + 1) * 100
    Sheet(i,
2).Value = (i + 1) * 1000
Next

Book.Save(
"c:\reports\test.xls") '保存工作簿
Dim
Proc As New Process '打开工作簿
Proc.File =
"c:\reports\test.xls"
Proc.Start()

二、定义一个新的工作簿

工作簿的类型为XLS.Book,定义一个新工作簿的代码为:

Dim Book As New XLS.Book

也可以根据现有的文件生成一个工作簿:

Dim Book As New XLS.Book("c:\reports\test.xls")

三、获得指定位置的工作表

工作表的类型为XLS.Sheet,工作簿有一个属性Sheets,返回该工作簿所有工作表的集合,例如:

Dim Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)

变量Sheet引用的是第一个工作表。

每一个工作簿默认包括一个工作表,可以通过Sheets的Add方法来增加工作表。

例如:

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方法增加一个工作表,下面的代码会报错:

Dim Sheet2 As XLS.Sheet = Book.Sheets(1) '引用新增加的工作表

Add方法可以带一个参数,指定新增表的名称,例如:

Book.Sheets.Add("统计") '增加一个名为“统计”的工作表。

同样我们可以通过名称来引用工作表,例如:

Dim Sheet2 As XLS.Sheet = Book.Sheets("统计")

四、获得指定位置的单元格

单元格的类型为XLS.Cell,通过行号和列号可以获得指定位置的单元格,例如

Dim Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Dim Cell As XLS.CEll = Sheet(1,2)

变量Cell引用的是第二行第三列位置的单元格。

单元格会自动创建,例如:

Dim Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Dim Cell As XLS.CEll = Sheet(99,99)

变量Cell引用的是第100行第100列位置的单元格,如果不存在该单元格,则工作表自动扩展到100行100列

五、为单元格指定值

单元格有一个Value属性,用于获得或设置单元格的值。

例如:

Dim Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
For
i As Integer = 0 To 9
    Sheet(i,
0).Value = (i + 1) * 10
    Sheet(i,
1).Value = (i + 1) * 100
    Sheet(i,
2).Value = (i + 1) * 1000
Next

、保存工作簿

XLS.Book有一个方法Save,可以将工作簿保存为指定的文件。

将下面的代码复制到命令窗口执行:

Dim Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
For
i As Integer = 0 To 9
   
Sheet(i, 0).Value = (i + 1) * 10
   
Sheet(i, 1).Value = (i + 1) * 100
   
Sheet(i, 2).Value = (i + 1) * 1000
Next

Book.Save(
"c:\reports\test.xls")

执行后,将在C盘的reports目录下生成一个Excel文件:test.xls

七、打开工作簿

我们利用Process类来打开工作簿:

Dim Proc As New Process '打开工作簿
Proc.File =
"c:\reports\test.xls"
Proc.Start()

请参考: Process


本页地址:http://www.foxtable.com/webhelp/topics/1144.htm