用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