VBA选择数据库文件填充文本框列表框时运行报错求解决

错误1：Connection.Open触发「无效参数」的根因 #

• 原因1：fname变量作用域错误
  你在UserForm_Initialize过程中用Dim fname As String声明的是局部变量，仅在初始化过程中有效，Browse_Click中赋值的fname和RunQuery_Click中调用的fname都是未声明的变体变量，如果你没有先点浏览按钮直接点查询，或者变量未正确传递，fname为空值直接导致连接字符串无效。
• 原因2：连接字符串语法错误
  原代码连接字符串末尾多了一个多余的英文分号在引号外侧，同时Excel 12.0 Xml仅适配xlsx格式，兼容性差。
• 原因3：浏览按钮未处理取消操作
  如果用户在文件选择窗口点了取消，fd.SelectedItems(1)会直接抛出错误，且会给fname赋值异常值。

错误2：rs执行与列表框赋值报错根因 #

• 原因1：语法书写错误
  原代码把ListBox1.AddItem和rs.MoveNext写在同一行，用错误的\分隔，还把rs错写为srs，完全不符合VBA语法规则。
• 原因2：RecordCount判断无效
  ADODB默认使用仅向前游标，rs.RecordCount固定返回-1，判断<>0永远不成立，会导致查询结果无法写入列表框。
• 原因3：多余的变量声明错误
  Browse_Click开头的变量声明换行未加续行符，且声明了从未使用的result、it变量，会触发编译错误。

修正后完整代码 #

首先要在用户窗体模块的**最顶部（所有过程之前）**声明模块级的fname变量：

' 放在用户窗体代码最顶部，所有Sub之外
Dim fname As String

后续过程代码如下：

Private Sub Browse_Click()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogOpen)
    ' 配置文件选择窗口
    fd.Title = "Select a file"
    fd.InitialFileName = ThisWorkbook.Path
    fd.Filters.Clear
    fd.Filters.Add "Excel文件", "*.xls;*.xlsx;*.xlsm" ' 过滤仅显示Excel文件，避免选错
    If fd.Show = -1 Then
        fname = fd.SelectedItems.Item(1)
        TextBox1.Value = fname
    End If
    Set fd = Nothing
End Sub

Private Sub RunQuery_Click()
    ' 先判断是否已选择文件
    If Trim(fname) = "" Or Dir(fname) = "" Then
        MsgBox "请先选择有效的数据库文件"
        Exit Sub
    End If
    
    Dim cn As Object, rs As Object, sql As String
    Set cn = CreateObject("ADODB.Connection")
    ' 修复连接字符串语法
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & fname & ";" & "Extended Properties=""Excel 12.0;HDR=YES"";"
        .Open
    End With
    
    sql = "SELECT ProductName FROM Products where CategoryID=1"
    Set rs = cn.Execute(sql)
    
    ' 清空列表框原有内容
    ListBox1.Clear
    ' 移除无效的RecordCount判断，直接遍历结果集
    Do While Not rs.EOF
        ListBox1.AddItem rs.Fields(0).Value
        rs.MoveNext ' 修正拼写错误，单独成一行
    Loop
    
    ' 释放资源，避免内存泄漏
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

Private Sub UserForm_Click()
End Sub

Private Sub UserForm_Initialize()
    ' 移除这里的fname局部声明
    fname = "" ' 初始化清空路径
End Sub

额外注意事项 #

• 需确保你查询的Excel文件里确实存在名为Products的工作表，且工作表包含ProductName和CategoryID列，否则会触发SQL执行错误
• 如果是Access数据库文件，连接字符串需要完全改写，当前的连接字符串仅适配Excel作为数据源的场景

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