| 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
|
|
objexcelfile.quit
set objworkbook = nothing
set objimportsheet = nothing
set objexcelfile = nothing |
