rs.Fields运行时错误，自动化错误

azw80

哪位大神帮我看看，写字段到第6个的时候，就提示自动化错误了，实在找不到原因？

LMY123

Sub ADO_有字段名()
    Dim myb As Object: Dim s As Integer: Dim mycnt As Integer: Dim x As Integer
    [a1:Z65536] = Empty
    Set mycn = CreateObject("adodb.connection")
    Set myrs = CreateObject("adodb.recordset")
    mycn.Open "dsn=excel files;hdr=yes;dbq=" & ThisWorkbook.FullName
    Sql = "select * from[Report 1$A4:R]  "
    myrs.Open Sql, mycn, 1, 1
    a = myrs.RecordCount
    For Each Field In myrs.Fields
        aa = Field.Name
        [A1].Offset(0, i) = Field.Name
        i = i + 1
    Next
    Range("a2").CopyFromRecordset myrs
End Sub

LMY123

ADO_有字段名.rar (22.25 KB, 下载次数: 15)

2018-9-5 11:22 上传

点击文件名下载附件

fxl447098457

记录集转为数组用arr = rs.getrows()就完了。没那么多事。

azw80

fxl447098457 发表于 2018-9-5 11:26
记录集转为数组用arr = rs.getrows()就完了。没那么多事。

数据超过65536行这个就不顶用了

azw80

LMY123 发表于 2018-9-5 11:20
Sub ADO_有字段名()
    Dim myb As Object: Dim s As Integer: Dim mycnt As Integer: Dim x As Integer
...

我可能会在另一张表里面用ADO来连接这个表，所以不能用[a1:Z65536] = Empty这个代码