Question

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）'：至少一个参数没有被指定值

Answer 1

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