Excel VBA AccessApplication.OpenCurrentDatabase无法正常工作

Question

这是我要使用Excel VBA进行的操作：

1. 在Excel中复制范围
2. 打开Access数据库
3. 从简历表中删除记录
4. 将Excel中的新记录粘贴到CV表中
5. 运行制作表查询
6. 关闭数据库

下面的代码有效-一次。成功运行一次后，它将不再运行。没有错误消息-Access DB永不打开，宏结束。幕后一无所有，Access DB从未动过。

我推测该错误可能与以下事实有关：应用程序已打开一次，可能未正确关闭，因此无法重新打开？ （不知道这是否正确/有意义）

Sheets("NAHVCV").Select
Range("A:C").Select
Selection.Copy

Dim appAccess As New Access.Application

Set appAccess = Access.Application

appAccess.OpenCurrentDatabase AccessDBPath
appAccess.Visible = True

appAccess.CurrentDb.Execute "DELETE * FROM [CV]"
appAccess.DoCmd.OpenTable "CV", acViewNormal, acEdit
appAccess.DoCmd.RunCommand acCmdPasteAppend

appAccess.DoCmd.Close acTable, "CV", acSaveYes

appAccess.DoCmd.OpenQuery "qryMakFutRetroVariance"

appAccess.CloseCurrentDatabase

appAccess.Quit acQuitSaveAll