VB中操作Excel的一般做法（读取）-.NET教程,VB.Net语言-IDC资讯中心

1、定义excel操作变量

dim objexcelfile as excel.application

dim objworkbook as excel.workbook

dim objimportsheet as excel.worksheet

2、打开excel进程，并打开目标excel文件

set objexcelfile = new excel.application

objexcelfile.displayalerts = false

set objworkbook = objexcelfile.workbooks.open(strfilename)

set objimportsheet = objworkbook.sheets(1)

3、获取excel有效区域的行和列数

intlastcolnum = objimportsheet.usedrange.columns.count

intlastrownum = objimportsheet.usedrange.rows.count

4、逐行读取excel中数据

由于前两行为header部分，所以需要从第三行读取

如果第1到第10个单元格的值均为空或空格，则视为空行

for intcounti = 3 to intlastrownum

check if empty data row

blnnullrow = true

for inti = 1 to 10

if trim$(objimportsheet.cells(intcounti, inti).value) <> “” then

blnnullrow = false

end if

next inti

若不是空行，则进行读取动作，否则继续向后遍历excel中的行

if blnnullrow = false then

获取单元格中的数据，做有效性check，并将合法数据创建为实体存入对象数组中

objimportsheet.cells(intcounti, 1).value

……

end if

next intcounti

5、退出excel进程，并关闭excel相关操作对象

objexcelfile.quit

set objworkbook = nothing

set objimportsheet = nothing

set objexcelfile = nothing

VB中操作Excel的一般做法（读取）-.NET教程,VB.Net语言