[已解决]关于adodb

Eric_Law

  Dim sql$, conn As Object
  Set conn = CreateObject("ADODB.connection")
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties=""Excel 12.0;HDR=YES"";data source=" & ThisWorkbook.FullName
    sql = "SELECT 大区,片区,办事处,产品名称,剂型,SUM(基础量（盒）) ,SUM(任务金额（元）) " & _
            "FROM [Details$B7:P5007] GROUP BY 大区,片区,办事处,产品名称,剂型 " & _
            "ORDER BY 片区 DESC;"
    Sheets("ConOfHos").Range("A2:I5002").ClearContents
    Sheets("ConOfHos").[A2].CopyFromRecordset conn.Execute(sql)
    conn.Close
    Set conn = Nothing


代码如上，运行的时候提示至少有一个参数没有被指定值，求高手帮忙看看是什么问题

最佳答案

月排行榜 / 总排行榜

xdragon

2014-6-12 11:50

可能是某个列字段名和表格中的不一致，语法看应该没问题啊。能否传个附件。。。？

跳转到最佳答案楼层

Eric_Law

错误提示在 Sheets("ConOfHos").[A2].CopyFromRecordset conn.Execute(sql) 这行

xdragon

可能是某个列字段名和表格中的不一致，语法看应该没问题啊。能否传个附件。。。？

Eric_Law

xdragon 发表于 2014-6-12 11:50
可能是某个列字段名和表格中的不一致，语法看应该没问题啊。能否传个附件。。。？

哈哈，看了你的答案，找到灵感了，原来是有一列之中用了强制换行显示，改完就好了，谢谢了

xdragon

Eric_Law 发表于 2014-6-13 09:38
哈哈，看了你的答案，找到灵感了，原来是有一列之中用了强制换行显示，改完就好了，谢谢了

不用客气