尝试从XLA文件中的XLSX电子表格获取信息

Question

我有一个XLA文件，其中包含9个模块，每个模块都包含一个宏，数据在XLA文件中的工作表中。我已经成功使用了18年，但是XLA文件中的空间不足以存储更多数据。我尝试将数据移到XLSX文件中并从XLA文件链接到该文件，但是我一直收到“ Type Mismatch”错误，我认为这是我的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")