ACCESSのVBAを利用して、Excelのファイルをインポートする

ACCESS2016,Windows10を利用しています。

PW付のExcelの内容を、ACCESSからインポートしたいと考えています。
下記にコードを作成しました。

Private Sub コマンド10_Click()

Dim strDocName As Variant
Dim oApp As Object

strDocName = "C:\Users\Desktop\aaaa"

Set oApp = CreateObject("Excel.Application")

'Excelファイルオープン
With oApp
.Visible = True
.Workbooks.Open FileName:=strDocName, _
Password:="abcd"

'Excelインポート
DoCmd.TransferSpreadsheet acImport, "MT_test",strDocName , True, "Sheet1!W4:AF200"

.ActiveWorkbook.Close False
.Quit
End With
Set oApp = Nothing

End Sub

なにも起こらず、編集が可能になりましたとメッセージが出ます。

テーブルの型に関しては下記のコードでACCESSへ書き込みできていますので、問題ないと思います。

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "MTtest",
"C:\Users\Desktop\aaaa", True, "Sheet1!W4:AF200"
End Sub

どこを修正していいのかわからず困っています。
お手数ですが、ご教示をお願いします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2021/01/17 19:08

こんばんは

アクセスのVBAはまったく存じませんが…

＞DoCmd.TransferSpreadsheet～～
の引数の内容や順序等が間違っているのでは？？
https://docs.microsoft.com/ja-jp/office/vba/api/ …