Использование содержимого ячейки для открытия файла

Question

Я борюсь с диапазоном ввода и именами файлов.У меня есть несколько рабочих листов 2014 ... 2018.Я извлекаю год из сегодняшней даты и хочу использовать год, чтобы затем установить inputRange, из какой таблицы я хочу извлечь данные.Я поместил год в ячейку F1, но я получаю сообщения об ошибках.Кто-нибудь может мне помочь?

Ниже мой код:

Set InputRange = Worksheets(Chr(34) & F1.Value & Chr(34)).Range("a4:a418")

Answer 1

Во-первых, ваш заголовок не соответствует предоставленной вами информации.Являются ли эти отдельные рабочие книги, которые вы пытаетесь открыть, или просто рабочими листами в одной рабочей книге?Если это последнее, см. Ниже.В противном случае вам нужно будет отредактировать вопрос, который вы задали, чтобы сделать его более понятным.

Я бы предположил, что две функции chr (34) не нужны, поскольку значение ячейки F1 в любом случае, вероятно, является строкой.Кроме того, если где-то выше вы не установите F1 равным Worksheet.Range ("F1"), вы не будете ссылаться на ячейку F1.Ниже приведен краткий пример, вам, скорее всего, нужно будет немного его отредактировать, чтобы он действительно заработал.

Dim F1 As Range
Dim ws as Worksheet
Dim InputRange As Range

Set ws = ThisWorkbook.Worksheets("base worksheet name")
Set F1 = ws.Range("F1")

Set InputRange = ThisWorkbook.Worksheets(F1.Value).Range("A4:A418")