用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 （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
