Задать вопрос

Как правильно дописать путь в VLOOKUP?

Все привет.
Как переписать код, что бы не вызывалось окно open каждый раз для vslookup:
Set wb2 = Workbooks.Open("C:\******\Выгрузки\отчет.xlsm")
MsgBox wb2.FullName
fullPath = wb2.FullName
Set ws2 = wb2.Sheets("Sheet1")
lLastRowb2 = ws2.Cells(ws2.Rows.Count, "H").End(xlUp).Row      ' последняя заполенная строка в книге с курсами

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

ws2.Columns("X").Insert

For i = 14 To lLastRowb2
    Cells(i, 24) = Cells(i, 8).Value & Cells(i, 23).Value
Next i


Set formulaRange142 = ActiveWs.Range("EL4:EL" & lLastRowb1)
formulaRange142.formula = "=VLOOKUP($K4&$EL$3,'[wb2]ws2'!$X:$Z,3,FALSE)"
  • Вопрос задан
  • 51 просмотр
Подписаться 1 Простой Комментировать
Пригласить эксперта
Ответы на вопрос 1
@artnib
Книгу открывать всё равно придётся, поэтому для формулы хватит имени книги, а не полного пути.
formulaRange142.formula = _
  "=VLOOKUP($K4&$EL$3,'[" & wb2.Name & "]" & ws2.Name &"'!$X:$Z,3,FALSE)"
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы