VB中操作Excel般法.docVIP

VB中操作Excel的一般做法（读取） - 中国WEB开发者网络 ()-- 技术教程 (/article/)--- VB中操作Excel的一般做法（读取） (/article/28/27242.htm) -- 作者：未知-- 发布日期： 2006-02-07 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 VBA数据类型概述以下表格显示所支持的数据类型，以及存储空间大小与范围。 数据类型 存储空间大小 范围 Byte 1 个字节 0 到 255 Boolean 2 个字节 True 或 False Integer 2 个字节 -32,768 到 32,767 Long(长整型) 4 个字节 -2,147,483,648 到 2,147,483,647 Single (单精度浮点型) 4 个字节 负数时从 -3.402823E38 到 -1.401298E-45；正数时从 1.401298E-45 到 3.402823E38 Double (双精度浮点型) 8 个字节 负数时从 -1.79769313486232E308 到 -4.94065645841247E-324；正数时从4.94065645841247E-324 到 1.79769313486232E308 Currency (变比整型) 8 个字节 从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807 Decimal 14 个字节 没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335，而小数点右边有 28 位数时为 +/-7.9228162514264337593543950335；最小的非零值为 +/-0.0000000000000000000000000001 Date 8 个字节 100 年 1 月 1 日 到 9999 年 12 月 31 日 Object 4 个字节 任何 Object 引用 String (变长) 10 字节加字符串长度 0 到大约 20 亿 String(定长) 字符串长度 1 到大约 65,400 Variant(数字) 16 个字节 任何数字值，最大可达 Double 的范围 V