Ms access 有人能帮我吗？将带有密码的xlsx电子表格导入ACCESS/Vba。它看起来像Excel.xls格式，但.xlsx不'；行不通

早上好，我在Access/Vba中，需要将带有密码的xlsx电子表格导入Access表，我不能，xls电子表格工作，但xlsx不工作。有人能帮我吗

”此代码不起作用。
函数ImportProtected（strFile作为字符串_
strPassword（字符串形式）
dimexapp作为Excel.Application
Dim oExcel作为对象，oWb作为对象，wkb作为对象
设置oExcel=CreateObject（“Excel.Application”）
设置oWb=oExcel.Workbooks.Open（文件名：=strFile，密码：=strPassword）
DoCmd.TransferSpreadsheet transfertype:=A导入，电子表格类型：=5_
TableName:=“tmpTableName”，FileName:=strFile_
Hasfieldnames:=True，范围：=“Q1！C:G”
Set exApp=appExcel.Workbooks.Open（strFile）
exApp.Password=strPassword
exApp.Save
考试结束
oWb.Close SaveChanges:=False
oExcel，退出
设置oExcel=Nothing
端函数

您没有告诉我们错误是什么。说这是行不通的，实际上没有帮助。当我看你的代码时，我不明白你为什么要打开同一个文件两次。 此代码不应存在：

Set exApp=appExcel.Workbooks.Open（strFile）
exApp.Password=strPassword
exApp.Save
考试结束

您正试图打开一个已打开并锁定的文件。这可能就是错误所在。

您应该将您的问题添加到那里，并在那里添加格式良好的代码，而不是将其保存在一个混乱的文件中。