运行时错误'9‘vba代码；在不知道名称的情况下打开xlsx文件并对其进行更改

Sub ModifyExcelFile()
    Dim filePath As String
    Dim fileName As String
    Dim wb As Workbook
    
    ' 打开文件选择对话框，获取用户选择的文件路径和文件名
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择要打开的Excel文件"
        .Filters.Add "Excel文件", "*.xlsx"
        .AllowMultiSelect = False
        
        If .Show = -1 Then
            filePath = .SelectedItems(1)
            fileName = Dir(filePath)
        Else
            MsgBox "未选择任何文件。"
            Exit Sub
        End If
    End With
    
    ' 打开选定的xlsx文件
    On Error Resume Next
    Set wb = Workbooks.Open(filePath)
    On Error GoTo 0
    
    If wb Is Nothing Then
        MsgBox "无法打开文件 '" & fileName & "'。"
        Exit Sub
    End If
    
    ' 对打开的Workbook对象进行更改操作
    ' 例如：修改A1单元格的值为"Hello, World!"
    wb.Sheets(1).Range("A1").Value = "Hello, World!"
    
    ' 关闭并保存对xlsx文件的更改
    wb.Close SaveChanges:=True
    
    MsgBox "文件 '" & fileName & "' 已成功更改并保存。"
End Sub