VBA通过ADO连接传参查询遇1004错误求助

针对VBA代码的修复方案 #

• 先验证拼接后的SQL是否正确
  变量UserName可能为空、带非法字符，或者拼接后对应的数据库表不存在。先把最终生成的SQL打出来确认：

  Dim sqlStr As String
  sqlStr = "SELECT * FROM [DBO].[Refresh_" & UserName & "] ORDER BY [Item No];"
  MsgBox sqlStr '弹出窗口查看SQL语句是否符合预期
  

  复制弹窗里的SQL到数据库客户端（比如SSMS）执行，确认能正常返回数据。
• 修正adCmdText未定义问题
  如果你的VBA工程没引用ADO库，adCmdText这个常量会失效，直接用对应的数值代替：

  .CommandType = 1 '1对应adCmdText的常量值
  

• 确保连接对象有效
  检查Query1这个连接是否真的存在于当前工作簿，且连接配置正确（比如数据库地址、账号密码没问题）。可以先手动刷新一次该连接，确认能正常取数。
• 添加刷新触发代码
  修改完连接属性后，必须触发刷新才会生效，在代码末尾加上：

  ActiveWorkbook.Connections("Query1").Refresh
  

不用VBA，直接在连接属性框实现动态表名 #

如果不想写代码，可以用Excel单元格参数结合SQL动态查询（仅限支持动态SQL的数据库，比如SQL Server）：

1. 在Excel任意单元格（比如Sheet1的A1）输入要使用的用户名
2. 打开连接属性弹窗，把命令文本改成：

   DECLARE @UserName NVARCHAR(100) = ?
   EXEC('SELECT * FROM [DBO].[Refresh_' + @UserName + '] ORDER BY [Item No]')
   

3. 点击弹窗里的「参数」按钮，设置参数来源为刚才的A1单元格，选择「自动刷新」或者按需刷新即可。

内容的提问来源于stack exchange，提问作者image13