信任Access数据库自动

Question

我创建了一个导入.txt的工具（通过Access宏）然后在其上运行一些报告。

现在的想法是用户将excel工具与空模板数据库一起复制，然后将自己的数据导入其中。 我遇到的问题是新数据库不受信任，因此宏被禁用。

Answer 1

将某个文件夹添加到“受信任位置”并将数据库放入此文件夹中。

MS Access 2010

Answer 2

我发现此问题的唯一解决方案是将您的数据库代码移动到Excel电子表格，这样您的数据库就不需要信任了。

从表面上看，您可以通过Excel的访问对象中的数据库vba模块执行您想要执行的所有操作。

访问代码：

Application.DoCmd.OpenQuery "DelData"
Application.DoCmd.TransferText acImportDelim, "DataImport", "StoreGroupingDrop", ActiveWorkbook.Path & "\StoreGrouping.txt", True
Applicaiton.DoCmd.OpenQuery "DelExtraWeekData"

Excel代码：

Dim db As Object
Set db = CreateObject("Access.Application")

db.OpenCurrentDatabase (ActiveWorkbook.Path & "\StoreGrouping.accdb")
Application.DisplayAlerts = False
'db.Run "DoImports"

' Implement "DoImports" from excel, because the Access VBA is not inherently trusted
db.DoCmd.OpenQuery "DelData"
db.DoCmd.TransferText acImportDelim, "DataImport", "StoreGroupingDrop", ActiveWorkbook.Path & "\StoreGrouping.txt", True
db.DoCmd.OpenQuery "DelExtraWeekData"
db.Application.Quit