excel 报错 至少有一个参数的值没有被指定

Dim intRow As Integer, sql As String
Sheets("出库查询").Range("B6:M10000").Clear
Set cx = CreateObject("adodb.connection")
intRow = Sheets("出库").Range("C65536").End(xlUp).Row
i = Sheets("出库查询").Range("C65536").End(xlUp).Row
cx.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
sql = "select*from [出库$A2:L" & intRow & "] where 客户名称 like '%" & Range("C3").Value & "%'and 业务员 like '%" & Range("M3").Value & "%'and 颜色 like '%" & Range("H3").Value & "%'and 产品编号 like '%" & Range("D3").Value & "%'and 出货时间 between #" & Range("T3").Value & "#and#" & Range("U3").Value & "#"
Sheets("出库查询").Range("B6").CopyFromRecordset cx.Execute(sql)
cx.Close
代码是相同的，为什么在不同的工作簿中使用的时候，一个成功，另一个却报错。运行是错误 '-2147217904 （80040e10）'：只是一个参数没有被指定值

运行是错误 '-2147217904 （80040e10）'：至少一个参数没有被指定值

照你的情况，你在段首添加：
dim i as integer

activechart.seriescollection(1).values = "='" & tttt & "'!$a$6:$f$6"     activechart.seriescollection(1).xvalues = "='" & tttt & "'!$a$5:$f$5"在工作表两边加单引号即可。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息