ADO连接后Excel崩溃

编程问答 2022-06-09

问题描述

我正在尝试在Excel中查询较大的命名范围

以下连接效果很好，但是当范围包含数千行时，连接速度非常慢。而且，记录的数量似乎受到限制。

    strCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=" & strFile & ";" & _
                     "Extended Properties=""Excel 8.0;"""

我正在尝试使用其他连接，但是VB6崩溃了！

myRangeName = "namedRangeWorksheet"
xlapp.Names.Add Name:=myRangeName,RefersTo:=TrueUsedRange
'**********************************
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
strFile = oWB.FullName
Set strCon = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

strCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source = " & strFile & ";" & _
            "Extended Properties = ""Excel 12.0 Xml;HDR=YES;IMEX=1"";"

strsql = "SELECT * from namedRangeWorksheet"    ''Named range
rs.Open strsql,strCon,adOpenKeyset,adLockOptimistic

Microsoft.ACE.OLEDB.12.0在应用于Access数据库时在我的计算机上运行良好

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

adoexcelexcelvb6vb6