Псевдоним WB имя для vlookup

Question

Мне нужно назначить псевдоним WB из-за его изменяющегося имени, и мне нужно использовать этот псевдоним в vlookup. Я использовал несколько примеров, найденных в сети, но безуспешно.

Вот что у меня есть на данный момент:

' assigns an alias to the workbook since the file name changes
Set AllAcctsWB = ThisWorkbook
AllAcctsWB.Activate

' switches to the correct WB for the vlookup to occur
InfluencerWB.Activate

' counts the number of used rows in this sheet
LastRowA = Range("A1").End(xlDown).Row

' selects the starting point for the vlokup
Range("F2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5], '[" & AllAcctsWB & "]Filtered _
    data'!C1:C31,31,0)"

' fills the column to the length of column A
Selection.AutoFill Destination:=Range("F2:F" & LastRowA)

Любые полезные советы или рекомендации, безусловно, приветствуются.
Заранее спасибо за помощь.

Answer 1

ThisWorkbook возвращает объект Workbook, соответствующий текущей книге, а не имя текущей книги.

Чтобы сослаться на имя текущей рабочей книги, используйте ThisWorkbook.Name