excel vba 至少一个参数没有被指定值

Question

Sub 统计1()
'
' 统计1 Macro
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql$, x$
Set cn = New ADODB.Connection
Set sr = New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes'; " _
& "data source=" & ThisWorkbook.Path & "\成本项目汇总表.xls"
x = ActiveWorkbook.Worksheets("sheet1").[K1].Value
sql = "select 年月,科室代码,科室名称,成本项目名称,金额 from [sheet1$]"
sql = sql + "where 科室代码 like '" & x & "'"
sql = sql + "group by 年月,科室代码,科室名称,成本项目名称,金额;"

Set rs = cn.Execute(sql)
For i = 1 To rs.fields.Count
Sheet1.Cells(4, i) = rs.fields(i - 1).Name
Next i
Sheet1.[5:300].ClearContents
Sheet1.[a5].CopyFromRecordset rs
cn.Close
Set cn = Nothing
cn.Close
Set cn = Nothing
End Sub
运行至 Set rs = cn.Execute(sql) 时会提示错误：至少一个参数没有被指定值 请指导一下

Answer 1

1、报错原因：在VBA中，使用了函数，且函数的参数指定错误。
2、VBA函数和工作表函数类似，其参数分两类，一类是必须的一类是可选的，前者是不可省略的，如被省略或指定错误，则会报错，提示为“至少一个参数没有被指定值”。
3、解决办法：检查报错相应的代码，补其相应函数所需要的参数。

Answer 2

sql = "select 年月,科室代码,科室名称,成本项目名称,金额 from [sheet1$]"
sql = sql + "where 科室代码 like '" & x & "'"
sql = sql + "group by 年月,科室代码,科室名称,成本项目名称,金额;"

改为
sql = "select 年月,科室代码,科室名称,成本项目名称,金额 from [sheet1$]"+“ ”
sql = sql + "where 科室代码 like “ ” & x & “ ”
sql = sql + "group by 年月,科室代码,科室名称,成本项目名称,金额"
试试

Answer 3

注意SQL语句中的空格，比如你的[sheet1$]后面好象就少一个空格。
你可以在调试状态下将SQL输出出来，看一下哪个地方出错了。