快速入门
一、测试快速入门代码
将下面的代码复制到命令窗口执行,你现在无需理解这些代码,接下来我们会逐行分析。
Dim
Book As New XLS.Book '定义一个Excel工作簿二、定义一个新的工作簿
工作簿的类型为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()如果没有事先用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执行后,将在C盘的reports目录下生成一个Excel文件:test.xls
七、打开工作簿
我们利用Process类来打开工作簿:
Dim Proc
As New Process
'打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()
请参考: Process