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

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

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 年月,科室代码,科室名称,成本项目名称,金额"
试试

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