用VB操作Excel的方法

用VB操作 Excel 的方法

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