VB中操作Excel的一般做法(读取)

王朝c#·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航