用VB操作Excel的方法

前端之家收集整理的这篇文章主要介绍了用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

原文链接:https://www.f2er.com/vb/262831.html

猜你在找的VB相关文章