Sql 我如何才能正确地将数据粘贴到标签';测试';,同时启动B3单元?

Sql 我如何才能正确地将数据粘贴到标签';测试';,同时启动B3单元?,sql,vba,excel,Sql,Vba,Excel,我有一个数据,比如说10行,每行有10个单元格(列),我可以一次粘贴所有数据吗,从单元格C8开始,很好,每行。所以它是从C8到C18,然后 D8到D18。。。等等 这就是我目前使用的: With ActiveSheet.QueryTables.Add(Connection:=Array(lConnection), Destination:=Range("A5")) .CommandType = xlCmdSql .CommandText = lRequete .Refre

我有一个数据,比如说10行,每行有10个单元格(列),我可以一次粘贴所有数据吗,从单元格C8开始,很好,每行。所以它是从C8到C18,然后 D8到D18。。。等等

这就是我目前使用的:

With ActiveSheet.QueryTables.Add(Connection:=Array(lConnection), Destination:=Range("A5"))
    .CommandType = xlCmdSql
    .CommandText = lRequete
    .RefreshStyle = xlOverwriteCells
    .AdjustColumnWidth = True
    .FieldNames = False
    .BackgroundQuery = False
    .Refresh
    .MaintainConnection = False
    .Delete
End With
它在这一行出现错误,它说:
过程的参数或调用不正确

有更好的解决办法吗

更新: .刷新错误
错误“1004”

数据源不完整

连接字符串似乎有问题。
已替换此
“驱动程序={SQL Server};服务器=X;数据库=X;用户Id=sa;密码=*****;”

到此

“ODBC;服务器=X;DSN=X;数据库=X;可信连接=Yes”

是否尝试复制粘贴?是否有错误或警告?您尝试了什么代码?你有错误吗?还是你很懒,只是想要一个解决方案?笨蛋!使用ActiveSheet.QueryTables.Add(连接:=数组(lConnection),目标:=范围(“A5”)).CommandType=xlCmdSql.CommandText=lRequete.RefreshStyle=xlOverwriteCells.AdjustColumnWidth=True.FieldNames=False.BackgroundQuery=False.Refresh.MaintainConnection=False.Delete结束时,我已经尝试过这个,但是有一个错误。“xlCmdSql”有问题。为什么要使用查询表而不是复制/粘贴?@BobPhillips在注释中只能发布一行代码,并希望能够智能地显示它。您可以使用单个反勾号设置该行
ASCII代码96
。有关更多信息,请参阅上的这篇文章