将弹窗选择打开的Excel文件赋值为Workbook对象时遇类型不匹配错误求助

首先，咱们得先搞清楚你遇到这个错误的核心原因：类型不匹配——你试图把一个非Workbook对象的值（比如文件路径字符串）赋值给Workbook类型的变量，自然会报错。你说单独执行SelectWorkbook()能正常打开文档，大概率是这个函数只负责打开文件，或者返回的是文件路径而非Workbook对象。

下面给你两种直接可行的解决方案，按需选择：

方案1：修改SelectWorkbook()函数，让它直接返回Workbook对象 #

这是最直接的方式，让函数帮你完成"选文件+打开+返回对象"的全流程：

Function SelectWorkbook() As Workbook
    Dim filePath As Variant
    Dim openedWB As Workbook
    
    ' 弹出文件选择窗口，只显示Excel格式文件
    filePath = Application.GetOpenFilename( _
        FileFilter:="Excel 文件 (*.xlsx;*.xls;*.xlsm), *.xlsx;*.xls;*.xlsm", _
        Title:="请选择要打开的Excel文件")
    
    ' 处理用户取消选择的情况
    If filePath <> False Then
        ' 打开选中的文件，并将返回的Workbook对象赋值给函数
        Set openedWB = Workbooks.Open(Filename:=filePath)
        Set SelectWorkbook = openedWB
    Else
        ' 用户取消时返回空对象，避免后续报错
        Set SelectWorkbook = Nothing
    End If
End Function

然后你可以这样调用并赋值：

Sub AssignWorkbook()
    Dim myNewWB As Workbook
    ' 注意对象变量赋值必须用Set关键字！
    Set myNewWB = SelectWorkbook()
    
    ' 验证是否成功赋值
    If Not myNewWB Is Nothing Then
        MsgBox "已成功赋值工作簿：" & myNewWB.Name
        ' 这里可以添加对myNewWB的操作代码
    Else
        MsgBox "你取消了文件选择"
    End If
End Sub

方案2：保持原函数返回路径，手动打开并赋值 #

如果不想修改原SelectWorkbook()函数（假设它返回的是选中的文件路径字符串），那你需要在调用时手动打开文件并赋值：

' 假设你的原函数是这样的（返回文件路径）
Function SelectWorkbook() As String
    Dim filePath As Variant
    filePath = Application.GetOpenFilename( _
        FileFilter:="Excel 文件 (*.xlsx;*.xls), *.xlsx;*.xls")
    
    If filePath <> False Then
        SelectWorkbook = CStr(filePath)
    Else
        SelectWorkbook = ""
    End If
End Function

' 调用并赋值的代码
Sub AssignWorkbook()
    Dim selectedPath As String
    Dim myNewWB As Workbook
    
    selectedPath = SelectWorkbook()
    
    ' 确保用户选择了有效路径
    If selectedPath <> "" Then
        ' 打开文件并赋值给Workbook变量
        Set myNewWB = Workbooks.Open(Filename:=selectedPath)
        MsgBox "已成功赋值工作簿：" & myNewWB.Name
    Else
        MsgBox "你取消了文件选择"
    End If
End Sub

关键注意事项 #

1. 必须用Set关键字给对象变量赋值：Workbook是对象类型，不能像普通字符串/数字那样直接用=，必须用Set，这是新手常犯的错误。
2. 处理用户取消选择的情况：当用户点击文件选择窗口的"取消"时，GetOpenFilename会返回False，如果不处理这个情况，后续代码可能会报错。
3. 限制文件格式：在GetOpenFilename的FileFilter参数里明确指定Excel格式，避免用户选中非Excel文件导致打开失败。

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