excel - Option Base 1 Sharepoint から Excel にエクスポートするときにエラーが発生する

Question

現在、Sharepoint リストを Excel 2013 にエクスポートしていますが、モジュールの上部で Option Base 1 を指定すると、エクスポートで「Subscript out of range」エラーがスローされることに気付きました。Option Base 1 を削除すると、マクロは正常に実行されます。私の推測では、これは、インポートされているリストの列挙と認識されていない 0 番目の要素に関係している可能性があります。私の質問は次のとおりです。b) インポート時にエラーをスローせずに Option Base 1 を保持する方法がある場合は? コード：

Option Base 1

Sub Sharepoint_Import()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim objMyList As ListObject
Dim objWksheet As Worksheet
Const SERVER As String = "https://xxxx/_vti_bin"

Const LISTNAME As String = "{xxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}"
Const VIEWNAME As String = "{xxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}"

Set objWksheet = ActiveWorkbook.Worksheets("Data")

'Clear older data on Sheet "Data"
objWksheet.UsedRange.ClearContents
objWksheet.UsedRange.ClearFormats

'Import data
Set objMyList = objWksheet.ListObjects.Add(xlSrcExternal, Array(SERVER, LISTNAME, VIEWNAME), True, , Range("A1"))

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub