ACCESS VBAでのインポート

質問

アクセスでエクセルのファイルをインポートするＶＢＡを書いています。
まず、フォルダ内のファイル名を全て取得してコンボボックスで表示します。
そのコンボボックスからインポートするファイルを選択し、インポートします。
ところが、インポートしようとすると「実行時エラー'3011'」となり、オブジェクトが見つかりませんとなってしまいます。

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "氏名順_仮", Me.shimei_folder.Value & "\06.6.1氏名順.xls", True
このように記述するとキチンとインポートするのですが、
path = Me.shimei_folder.Value & "\" & CStr(Me.shimei_combo.Value)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "氏名順_仮", path, True
これだと3011エラーになってしまうのです。
エラー表示が「オブジェクト"06.6.16氏名順$"が見つかりません」となるのですが、.xlsが$になってしまうのが原因？？とも思います。
コンボボックス上は「06.6.16氏名順.xls」と表示されているし、デバッグしてみてもMe.shimei_combo.Valueは「06.6.16氏名順.xls」なのですが・・・。
どなたか、解決方法がわかれば教えて下さい。

ちなみにACCESS、EXCELともに2000です。

回答No.1

O_cyan

path = Me.shimei_folder.Value & "\" & CStr(Me.shimei_combo.Value)
ではなく例えば
Dim strFilename As String
strFilename = Me.shimei_combo.Value
として
path = Me.shimei_folder.Value & "\" & strFilename
ではどうでしょうか。これでいけると思いますが

お礼

ご回答ありがとうございます。
頂いた方法で試してみたところ、一部のファイルはインポートできました。
よく調べてみると、インポートできないのはExcel 4.0ファイルのようです。
上記で言うと、「06.6.16氏名順.xls」は4.0で、「06.6.1氏名順.xls」は2000でした。
Dim AppExcel As Object
Dim Wb As Object
Set AppExcel = CreateObject("Excel.Application")
Set Wb = AppExcel.Workbooks.Open(path)
Wb.SaveAs Filename:= _
Me.shimei_folder.Value & "\" & Me.shimei_combo.Value, FileFormat:=-4143
Wb.Close
Set oExcel = Nothing
というようにファイルのバージョンを変えてみたらインポートできました。
質問に誤りがあって大変申し訳ありませんでした。
でも、時間がかかってしまうのでなんだか不便です。
4.0はインポートできないんでしょうか？？不思議です・・・。