COPY FROM http://www.west263.com/www/info/34730-1.htm 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的一般做法(读取)
最新推荐文章于 2019-02-13 09:50:17 发布