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