设置工作簿对象时遇Runtime Error 424（对象必需）问题求助

首先，咱们来拆解你遇到的错误：Runtime Error 424 本质是因为你试图把一个字符串值（fpath & Me.ListBoxWbk.Value 拼接出来的路径+文件名）直接赋值给 Workbook 类型的对象变量 fwbk，但 Set 语句要求右侧必须是一个有效的对象引用，而不是普通文本。

错误代码的问题所在 #

Set fwbk = fpath & Me.ListBoxWbk.Value

这段代码里，fpath & Me.ListBoxWbk.Value 只是一段文本路径，它不是一个已经存在的 Workbook 对象实例，自然无法完成对象赋值。

正确的实现方式 #

既然你提到是已打开的文件，那我们可以直接通过Excel的 Workbooks 集合来引用这个已打开的工作簿。需要注意的是，Workbooks 集合是通过工作簿的显示名称（比如"Data.xlsx"）来索引的，不需要拼接完整路径（除非你的ListBox里存的是带路径的全名，但已打开的工作簿在集合里只用文件名即可）。

修正后的代码如下：

Public fpath As String, fwbk As Workbook
Private Sub BtnCloseWoSaving_Click()
    On Error Resume Next ' 先尝试获取已打开的工作簿
    Set fwbk = Workbooks(Me.ListBoxWbk.Value)
    On Error GoTo 0 ' 恢复错误捕获
    
    ' 验证是否成功获取到工作簿对象
    If Not fwbk Is Nothing Then
        fwbk.Close SaveChanges:=False ' 不保存关闭
        Set fwbk = Nothing ' 释放对象
    Else
        MsgBox "指定的工作簿未打开或不存在！", vbExclamation
    End If
End Sub

额外说明 #

1. 如果你的ListBox中存储的是完整文件路径而非仅文件名，那你需要先从路径中提取文件名，再用 Workbooks 集合引用：

   Dim wbkName As String
   wbkName = Dir(fpath & Me.ListBoxWbk.Value) ' 提取文件名
   Set fwbk = Workbooks(wbkName)
   

2. 加入错误处理是为了避免因工作簿未打开导致的二次报错，提升代码的健壮性。

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