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

最新文章

Visual Studio 十个有用的小插件[05-23]

VB.NET中读取INI文件设置信息函数sdGetIniIn..[05-23]

一个好用的 VB 注册表操作类模块[05-23]

Autodesk官方最新的.NET教程（七）（vb.net版..[05-23]

Autodesk官方最新的.NET教程（六）（vb.net版..[05-23]

Vb中控件的自动排列[05-23]

相关文章

VB 实现 数据快速导入EXCEL[05-23]

在.NET环境下将报表数据导出EXCEL和WORD[05-22]

數據庫從VB導入到Excel[05-22]

用VB.NET和Excel排生产计划[05-22]

使用VB.NET编写控制excel的程序[05-22]

VB与Excel在乘幂运算时的结果差异及其不合理性[05-22]