VBA アプリケーション定義エラーについて

質問

初めて質問させていただきます。

Excelファイルを読み込む処理をAcsess2000を使用して作成しております。
下記、プログラムを実行すると「↓エラー発生個所」箇所にて、
「アプリケーション定義またはオブジェクト定義エラー」が発生します。

Acsessについて、まだ知識不足なため困っております。

どなたか、原因または改善方法について教えていただけないでしょうか？
宜しくお願い致します。

Public Function RoadExcelData(ByVal P_strSheetName As String, ByRef P_valDataArea As Variant)

Dim objExl2 As Object
Dim strSheetName As String
Dim strReadStart As String

Dim valDataArea As Variant

On Error GoTo Err_Handle

'シート名称取得する
strSheetName = m_rsCarrirData.Fields("SHEET_NAME_" & P_strSheetName)

'読み込み開始位置を取得する
strReadStart = m_rsCarrirData.Fields("READ_START_" & P_strSheetName)

　　'↓エラー発生個所
Set objExl2 = GetObject(m_rsCarrirData.Fields("FILENAME_PATH") & "\" & m_rsCarrirData.Fields("FILE_NAME_" & P_strSheetName))
objExl2.Worksheets(strSheetName).Activate

'Excelデータを読み込む
With objExl2.Worksheets(strSheetName)
P_valDataArea = .Range(strReadStart, .Range("A1").SpecialCells(11)).Value
End With

Exit Function

Err_Handle:
MsgBox Err.Description
End Function

回答No.1

yorozu_ya

GetObject の使い方を誤ってます。
ヘルプを読んで十分に理解しましょう。