VB6中Access调用Excel文件

博客展示了使用VB6进行编程的代码,通过创建ADODB连接对象,连接Excel文件,并使用SQL语句从Excel工作表中查询数据,涉及到ADODB.Recordset对象的使用。

Dim ConnExcel

Dim Rs1 As New ADODB.Recordset

Set ConnExcel = CreateObject("ADODB.Connection")

ConnExcel.Open                    "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & DesktopPath & NameNewList & ".xls" & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"

Rs3.Open "SELECT * FROM [" & NameNewList & "$]", ConnExcel, 3, 1

Rs1.Open "SELECT * FROM ['" & MyLoanDate & "w余额" & "$']", ConnExcel, 3, 1

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值