Импорт дат из другой книги дает ошибку 9

Question

Я работал над файлом Excel с кучей макросов / формул, и самое важное - рассчитать NETWORKDAYS для каждого периода, но я не могу хранить праздники в книге Excel, потому что этот файл предназначен для загрузки в основной сервер, поэтому я создаю внешний лист в той же папке, где хранятся все праздники.

Итак, я попытался импортировать файл таким образом, но у меня появляется ошибка 9, даже с точным путем к файлу.

Option Explicit
Sub duplicadorVac()
'main file stored in the same folder
Dim planillaDestino As Worksheet
Set planillaDestino = ThisWorkbook.Worksheets("hojaDest")

Dim planillaFuente As Worksheet
Set planillaFuente = ThisWorkbook.Worksheets("hojaFuente")

'holidays worksheet stored in the same folder
Dim planillaFeriados As Workbook
Dim hojaFeriados As Worksheet
Set planillaFeriados = Workbooks("C:\...\arch_pba\planillaFeriados.xlsm")
Set hojaFeriados = planillaFeriados.Worksheets("hojaFeriados")

'AND FUNCTIONS AND CODE GO HERE

'MAIN TASK
planillaDestino.Range("F2:F" & filaIndiceDestino).Formula = "=NETWORKDAYS(D2,C2,[planillaFeriados.xlsm]hojaFeriados!$A$2:A)" ' total days

End Sub

Я надеюсь, что смогу установить надежный путь типа '... \ excel_pba \ planillaFormula.xlsm' (если он был перемещен из исходной папки) в сохраненные праздники, а затем запустить формулу как есть.

Answer 1

Вам нужно открыть рабочую книгу с помощью Workbooks.Open. Закрытая рабочая книга не является членом коллекции Workbooks, поэтому вы получаете ошибку Subscript out of range.

Set planillaFeriados = Workbooks.Open("C:\...\arch_pba\planillaFeriados.xlsm")