ADO引擎地址问题报错

hw124739523

我在VBA里建了一个类模块，类模块命名为“单元格记录集”，并存放以下代码。

1. Public WithEvents rs As ADODB.Recordset
   
2. Private Sub Class_Initialize()
   
3.     ' 创建记录集对象
   
4.     Set rs = New ADODB.Recordset
   
5. End Sub
   
6. Private Sub Class_Terminate()
   
7.     ' 销毁记录集对象
   
8.     Set rs = Nothing
   
9. End Sub
   
10. Public Sub OpenRecordset(CellRange As Range)
    
11.     ' 打开记录集
    
12.     rs.Open "SELECT * FROM [" & CellRange.Worksheet.Name & "$" & CellRange.Address & "]", _
    
13.             "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";", _
    
14.             adOpenStatic, adLockReadOnly, adCmdText
    
15. End Sub

复制代码

已经引用了如下对象：

在另一窗体事件中，想调用类模块，报错的代码在第5行

1. Private Sub TreeView2_NodeClick(ByVal Node As MSComctlLib.Node)
   
2. Dim rs As New 单元格记录集
   
3. endrow = Worksheets("②计划管理").Range("a65536").End(3).Row
   
4. 
   
5. rs.OpenRecordset Worksheets("②计划管理").Range("A3:U" & endrow) ' 打开表格区域作为记录集的数据源
   
6. 
   
7. ' 遍历记录集并输出数据
   
8. Do While Not rs.rs.EOF
   
9.     Debug.Print rs.rs.Fields(0).Value, rs.rs.Fields(1).Value
   
10.     rs.rs.MoveNext
    
11. Loop
    
12. rs.rs.Close ' 关闭记录集
    
13. End Sub

复制代码

最后在测试的时候报错如下：

tanglf188

这个直接把SQL语句写成函数也行啊，写类模块是为了调用方便吗？

hw124739523

tanglf188 发表于 2024-5-22 10:35
这个直接把SQL语句写成函数也行啊，写类模块是为了调用方便吗？

是的，后面有很多类似的调用

hw124739523

我新建了一张表单，同样的在表头上面加空行，在新表单上引用记录集却又提示“系统错误 &H80040E37(-2147217865)”

tanglf188

你这是连接Access数据库的接口，连接Excel工作表不是这样写的
    Dim Conn_object, Reco_object As Object
    Dim Conn_str As String
    Set Conn_object = CreateObject("ADODB.Connection") '新建数据库连接对象
    Set Reco_object = CreateObject("ADODB.Recordset") '新建记录集对象
    PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
    Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
        Case Is <= 11
            Conn_str = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
        Case Is >= 12
            Conn_str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End Select
    Conn_object.Open Conn_str    '打开数据库链接

    '执行代码

    Conn_object.Close '关闭数据库连接
    Set Conn_object = Nothing
    Set Reco_object = Nothing

tanglf188

hw124739523 发表于 2024-5-22 10:47
我新建了一张表单，同样的在表头上面加空行，在新表单上引用记录集却又提示“系统错误 &H80040E37(-2147217 ...

你这是连接Access的写法，连Excel的我发了在审核

WANT-T

问题这不是很明显嘛？SQL语法错误，把多余的$去掉试试

micch

address返回的格式不正确