Как называть рабочие тетради и рабочие листы строками - PullRequest
Новая
       51

Как называть рабочие тетради и рабочие листы строками

0 голосов
/ 19 октября 2018

Это пример кода.Но каждый раз, когда я пытаюсь выполнить это для последней строки, я получаю индекс ошибки вне диапазона.Я пытаюсь активировать книгу и рабочий лист на основе переменной.Эта переменная меняет каждую итерацию цикла for, поэтому я сделал переменную строкой, которая ссылается на имя книги и листа.Как мне структурировать мою последнюю строку для работы?Я перепробовал все, и я все еще получаю ошибку.

Dim A As Excel.Workbook
Dim B As Excel.Workbook
Dim C As Excel.Worksheet
Dim D As Excel.Worksheet

Set A = Excel.Workbooks("A1.xls")
Set B = Excel.Workbooks("B1.xls")
Set C = A.Worksheets("AA")
Set D = B.Worksheets("BB")

Dim FromBook As String
Dim FromSheet As String

A.Activate
FromBook = ActiveSheet.Range("A1")
FromSheet ActiveSheet.Range("B1")

Workbooks(FromBook).Sheets(FromSheet).Activate

Опять же, строка выше продолжает давать мне ошибку, потому что для каждой итерации цикла for я хочу, чтобы активированный лист менялся в зависимости от значения в другой ячейке.Но это не работает.

...