Установить имя рабочего листа равным переменной - PullRequest
0 голосов
/ 26 мая 2020

Я хочу иметь возможность открыть второй источник данных (книгу) и выбрать лист во второй книге, который совпадает с именем в ячейке в моей первой книге.

Пока что у меня есть :

    Dim src As Workbook
    Dim src2 As Workbook
    Dim shtno As String
    Dim ws As Worksheet

    Set src = ActiveWorkbook
    shtno = Sheets("CONTROL").Range("G3").Value
    Set ws = Sheets(shtno)

    Workbooks.Open Filename:= 'file link
    Set src2 = ActiveWorkbook

    ws.Select

Где ws.Select должен выбрать мой лист. Где я ошибаюсь?

Спасибо.

1 Ответ

1 голос
/ 26 мая 2020

BigBen верен.

Вам нужно переместить оператор Set ws вниз ниже оператор Workbooks.Open, затем:

Set ws = src2.Sheets(shtno)
ws.Select

ПРИМЕЧАНИЕ :

  • как только вы Open новая книга, она становится Active книгой
  • вы можете только Select лист в Active книге
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...