VBA按部分名称匹配设置Workbook对象时出现类型不匹配错误的解决请求

嗨，我来帮你搞定这个VBA里的类型不匹配问题～

你遇到的错误根源其实很明确：你定义的pwkt是Workbook对象类型，但pwkt.Name返回的是字符串（工作簿的名称文本），用Set关键字去把字符串赋值给Workbook对象，类型完全不兼容，自然就会触发“类型不匹配”的错误。

我给你调整下代码，同时讲清楚每一步的逻辑：

修正后的基础版本（取第一个匹配的工作簿） #

Dim mwkt As Workbook, pwkt As Workbook
Dim wbName As String
wbName = "Book"

' 先初始化对象为Nothing，避免残留的旧引用干扰
Set pwkt = Nothing

For Each pwkt In Application.Workbooks
    If pwkt.Name Like wbName & "*" Then
        ' 匹配成功后，pwkt已经是对应的Workbook对象了，不需要再赋值Name
        Debug.Print "找到目标工作簿：" & pwkt.Name
        Exit For ' 如果只需要第一个匹配的工作簿，直接退出循环即可
    End If
Next pwkt

' 后续可以判断是否找到工作簿，再执行操作
If Not pwkt Is Nothing Then
    MsgBox "成功定位到工作簿：" & pwkt.Name
    ' 这里写你要对pwkt执行的后续代码
Else
    MsgBox "没有找到以" & wbName & "开头的工作簿哦"
End If

更严谨的版本（避免遍历变量与结果变量混淆） #

如果担心循环里的变量覆盖问题，可以用单独的遍历变量，逻辑更清晰：

Dim mwkt As Workbook, pwkt As Workbook
Dim wbName As String
Dim tempWb As Workbook ' 用这个变量来遍历所有工作簿
wbName = "Book"

Set pwkt = Nothing

For Each tempWb In Application.Workbooks
    If tempWb.Name Like wbName & "*" Then
        Set pwkt = tempWb ' 把匹配到的对象赋值给pwkt
        Debug.Print "找到匹配的工作簿：" & pwkt.Name
        Exit For ' 只取第一个匹配项，不需要的话可以删掉这行
    End If
Next tempWb

' 检查是否找到目标工作簿
If Not pwkt Is Nothing Then
    ' 这里写你后续的业务逻辑
Else
    MsgBox "未找到符合条件的工作簿"
End If

额外提醒 #

如果你的场景中可能同时打开多个以Book开头的工作簿（比如Book1、Book2同时存在），你可以去掉Exit For，然后在循环里逐个处理这些匹配的工作簿；或者加个条件判断，比如取最新创建的那个（可以通过pwkt.CreationTime来比较）。

备注：内容来源于stack exchange，提问作者Geographos