使用ADO法提示字段无法识别

书中苹果

这个是论坛上的例子，我下载测试运行先发现驱动与我的office版本不同，就换成最新版的ace驱动代码："provider=microsoft.ace.oledb.12.0;extended properties='excel 8.0;HDR=NO;imex=3';data source=" & ThisWorkbook.FullName，测试就提示“部门字段”无法识别，图片所示位置提示异常；请问ADO方式使用SQL语句该怎么操作比较好呢，

LMY123

http://club.excelhome.net/tree/index-10.html

魂断蓝桥

excel 8.0;

应该是Properties='Excel 12.0

活在理想的世界

呵呵，这种情况十之八九是SQL语句写错了。

活在理想的世界

你先把SQL语句单独弄出来试试对不对，如果确认SQL语句无误才看哪里出错了。

书中苹果

魂断蓝桥 发表于 2018-7-20 09:32
excel 8.0;

应该是Properties='Excel 12.0

不是的，刚刚测试改成12.0也是没有用的。谢谢！

书中苹果

活在理想的世界 发表于 2018-7-20 09:34
呵呵，这种情况十之八九是SQL语句写错了。

你好，没有错误的，刚刚导入ACCESS中测试，语句是正确的

魂断蓝桥

Sub ADO法()
    Dim cnn As Object, rs As Object, SQL$, i&
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes;imex=3';data source=" & ThisWorkbook.FullName
    SQL = "TRANSFORM SUM(实际成本发生额) SELECT 成本要素,成本要素描述,SUM(实际成本发生额) AS 合计 FROM [Sheet1$a1:i] GROUP BY 成本要素,成本要素描述 PIVOT 部门"
    Set rs = cnn.Execute(SQL)
    With Sheets("结果")
        .Cells.ClearContents
        For i = 0 To rs.Fields.Count - 1
            .Cells(1, i + 1) = rs.Fields(i).Name
        Next
        .Range("A2").CopyFromRecordset rs
    End With
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

书中苹果

魂断蓝桥 发表于 2018-7-20 09:45
Sub ADO法()
    Dim cnn As Object, rs As Object, SQL$, i&
    Set cnn = CreateObject("ADODB.Connec ...

成了！真神了，谢谢老师，看来还是驱动参数的问题，非常感谢！