通过DAO的OpenDatabase方法,不打开XLS文件直接引用文件中指定范围数据
时 间:2011-12-21 12:39:46
作 者:叶海峰 ID:31 城市:广州
摘 要:通过DAO的OpenDatabase方法,不打开XLS文件直接引用文件中指定范围数据
正 文:
' Procedure : QueryDataFromXLS 不打开XLS文件直接引用文件中指定范围数据
' DateTime : 2009-10-21 15:02
' Author : 叶海峰
' 注意事项 : 需引用DAO3.6版本,在Access,Excel,Word等Office套件中通用
' 调用方法 :QueryDataFromXLS("c:\a.xls","sheet88$A1:G10"
Sub QueryDataFromXLS(xlsFileName As String, DataRange As String)
Dim db As Database
Dim rst As Recordset
Dim myfield As Field
Dim i As Long
Set db = OpenDatabase(xlsFileName, False, False, "excel 5.0;HDR=Yes") 'HDR=Yes显示标题
Set rst = db.OpenRecordset(DataRange) '"sheet88$A1:G10"如果引用命名范围:"名称",引用工作表:"工作表名$",当前工作表单元格范围:"A1:G10"
MsgBox rst.RecordCount
' Range("A1").CopyFromRecordset(rst)
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
End Sub
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 统计当月之前(不含当月)的记录...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)
- 【Access Dsum示例】...(02.07)
- Access对子窗体的数据进行...(02.05)
- 【Access高效办公】上月累...(01.09)
- 【Access高效办公】上月累...(01.06)

学习心得
最新文章
- 仓库管理实战课程(18)-设置日期...(05.19)
- 仓库管理实战课程(17)-库存明细...(05.13)
- 【Access高效办公】条件格式设...(05.12)
- 仓库管理实战课程(16)-联合查询...(05.07)
- 合并列数据到一个文本框的示例;输出...(05.06)
- 仓库管理实战课程(15)-月度库存...(04.30)
- Access选择打印机、横纵向、纸...(04.29)
- 仓库管理实战课程(14)-出库功能...(04.26)
- 通过命令按钮让Access列表框指...(04.24)
- 仓库管理实战课程(13)-入库功能...(04.21)