VB中操作Excel的一般做法（读取）
- 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/)
--- VB中操作Excel的一般做法（读取） (http://www.webasp.net/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) <> \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源码】vb6.0中读取excel中的数据
来源：初月岛 发布时间：2010-03-08 查看次数：326
vb6.0中读取excel中的数据，并把数据填写到vb中的textbox上实例： Private Sub Command3_Click() Dim Conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i As Integer Dim sql As String
'On Error Resume Next
strName = App.Path & \文件名 strSheetName = \表名
Conn.Open \Security Info=False;Data Source=\& strName & \连接EXCEL文件 sql = \打开EXCEL表
rs.Open sql, Conn, 3, 3
MsgBox rs.RecordCount '显示表里的记录数 Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1 '读一行数据
List1.AddItem rs.Fields.Item(i).Name '读出数据,添加到list1里 If Not IsNull(rs.Fields.Item(i).Value) Then List2.AddItem rs.Fields.Item(i).Value Else rs.Update
rs.Fields.Item(i).Value = i ' \rs.Update End If Next i rs.MoveNext Loop
rs.Close '关闭数据集 Conn.Close '关闭对象 End Sub
VBA数据类型概述
以下表格显示所支持的数据类型，以及存储空间大小与范围。 数据类型 Byte Boolean Integer Long (长整型) Single (单精度浮点型) Double (双精度浮点型) 1 个字节 0 到 255 存储空间大小 范围 2 个字True 或 False 节 2 个字-32,768 到 32,767 节 4 个字-2,147,483,648 到 2,147,483,647 节 4 个字负数时从 -3.402823E38 到 -1.401298E-45；正数节 时从 1.401298E-45 到 3.402823E38 8 个字负数时从 -1.79769313486232E308 到 节 -4.94065645841247E-324；正数时从4.94065645841247E-324 到 1.79769313486232E308 8 个字从 -922,337,203,685,477.5808 到 节 922,337,203,685,477.5807 14 个字节 没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335，而小数点右边有 28 位数时为 +/-7.9228162514264337593543950335；最小的非零值为 +/-0.0000000000000000000000000001 Currency (变比整型) Decimal Date Object String (变长) 8 个字100 年 1 月 1 日 到 9999 年 12 月 31 日 节 4 个字任何 Object 引用 节 10 字0 到大约 20 亿 节加字符串长度 String (定长) Variant (数字) Variant (字符) 字符串1 到大约 65,400 长度 16 个字节 任何数字值，最大可达 Double 的范围 22 个与变长 String 有相同的范围 字节加字符串长度 所有元每个元素的范围与它本身的数据类型的范围相同。 素所需数目 用户自定义 （利用 Type） 注意 任何数据类型的数组都需要 20 个字节的内存空间，加上每一数组维数占 4 个字节，再加上数据本身所占用的空间。数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。例如，以 4 个 2 字节之 Integer 数据元所组成的一维数组中的数据，占 8 个字节。这 8 个字节加上额外的 24 个字节，使得这个数组所需总内存空间为 32 个字节。
包含一数组的 Variant 比单独的一个数组需要多 12 个字节
如何在Excel里使用定时器
如何在Excel里使用定时器
用过 Excel 97 里的加载宏 \定时保存\吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。
在 Office 里有个方法是 application.ontime ，具体函数如下：
expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) 如果想进一步了解，请参阅 Excel 的帮助。
这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。下面就举两个例子来说明它。 1.在下午 17:00:00 的时候显示一个对话框。 Sub Run_it()
Application.OnTime TimeValue(\'设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。 End Sub
Sub Show_my_msg()
msg = MsgBox(\现在是 17:00:00 ！\自定义信息\End Sub
2.模仿 Excel 97 里的 \自动保存宏\在这里定时 5 秒出现一次