自动信任Access数据库

我创build了一个导入.txt的工具（通过Accessmacros），然后运行一些报告。

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

Answer 1

将一些文件夹添加到“受信任的位置”并将您的数据库放入此文件夹。

MS Access 2010

Answer 2

我发现这个问题的唯一解决scheme是将您的数据库代码移动到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