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
作者：shaniushamao
来源：CSDN
原文：https://blog.csdn.net/shaniushamao/article/details/55509576
版权声明：本文为博主原创vb.net教程文章，转载请附上博文链接！
