vlookup跨表名称定义不对

Peny2020

请教各们，我录制了一个宏，然后在这基础上改了以下。
因为工作薄名称是Pull_list 0111.xlsx，有个日期在后面，所以这个名称是每天都变的。
我就用了“Like"，但在下面的vlookup里要引用这个工作薄时，结果是老是弹出对话框让我重新选上这个工作薄（如下图）。
我想请问，我要怎么把这个工作簿的名称定义对呢？谢谢了。


For Each wo In Workbooks
    If wo.Name Like "Pull*" Then
        P = wo.Name
        Exit For
    End If
Next


Range("C2").Resize(Range("D65536").End(3).Row - 1, 1).SpecialCells(xlCellTypeVisible) = "=VLOOKUP(RC[2],'[P]Sheet1'!C5:C9,5,0)"

ykcbf1100

都用VBA了，为啥还要用vlookup函数呢?
数据源文件可以用VBA动态选择的，你现在这样搞复杂了。

半百

是不是要这样？

Peny2020

半百 发表于 2023-1-11 16:21
是不是要这样？

是的，是的。就是这样，谢谢了。