沈阳市副市长马占春:VB中操作Excel的一般做法（读取）

来源：百度文库 编辑：中财网 时间：2024/04/29 08:30:47
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
如何用vb实现从excel文档中读取对应格子的数据??? VB中如何读取excel表中的数据 VB程序，关于EXCEL文件的操作 如何用VB读取Excel的单元格的批注 请问，Excel文件在SQL SERVER2000里的存储和读取问题！（用VB实现） VB中如何读取网上的图片 excel中" 九九乘法表 "的做法? 用VB读取Excel问题求助~~~~~ VB里怎样从数据库中读取数据并保存到EXCEL 如何在VB中读取或调用EXCEL文件中的数据 VB中如何操作 excel的单元格更快，比如5000个以上，用offset还是直接指定cells（R,C）,或者别的方法？ vb中怎样编写对调制解调器（猫）的操作 请教：VB操作EXCEL怎么设置一行的背景色？ VB中读取指定行 介绍一个excel中VB的视频教程 EXCEL中VB编辑器的问题 ASP如何读取出Excel中单元格内的超链接？ vb中excel问题！！！！ 请问VB中如何读取txt文件的数据 如何编写在VB中读取TXT文件的语句？ VB中LISTBOX读取文本的一个小问题 在vb中如何实现串口数据的读取 vb中有关文件操作的问题 vb 读取文本文件的问题