Попытка получить информацию из электронной таблицы XLSX в файле XLA

Question

У меня есть файл XLA с 9 модулями, каждый из которых содержит макрос, с данными в листах в файле XLA. Я успешно использовал это в течение 18 лет, но мне не хватило места в файле XLA для хранения дополнительных данных. Я пытался переместить данные в файл XLSX и связать их с файлом XLA, но продолжаю получать ошибки «Несоответствие типов», которые, как мне кажется, происходят из моего утверждения Workbooks.Open. Я не понимаю почему; это кажется правильным из любого другого примера, который я видел. Мне нужно сохранить файл XLA, поскольку на него ссылаются десятки тысяч других файлов Excel. Любые мысли о том, как это исправить, будут оценены.

Function Mortality(TableNum As Integer, Optional SetChange As Integer, _
 Optional TableLoad As Double, Optional ScaleNum As Integer, _
 Optional ScaleSetChange As Integer, Optional ScaleLoad As Double, _
 Optional StartYear As Integer, Optional EndYear As Integer, _
 Optional YOB As Integer, Optional CurrentYear As Integer) As Variant
'
' Dimension Variables
'
Dim NumberofTables As Integer, I As Integer, NumberofScales As Integer, ProjMax As Integer
Dim ProjStart As Integer
Dim StartPoint As Range, StartScalePoint As Range
Dim MortTable As Variant, ScaleTable As Variant
Dim ScaleTable2D As Variant
Dim Start2D As Integer, End2D As Integer, J As Integer
Dim ScaleBook As String, ScaleColumns As Integer, Scale1stCol As Integer
Dim StartLoop As Integer, EndLoop As Integer
Dim ActuarialDataFile As Workbook
Set ActuarialDataFile = Workbooks.Open(Filename:="Z:\Computer Related\Installation Files\Annuity Factor Program\Annuity.xlsx", ReadOnly:=True)
'
' Set Basic Mortality Table before revision
'
Set StartPoint = ActuarialDataFile.Worksheets("Mortality Tables").Range("A1")