Access应用程序的替代方法

Excel VBA中的子例程在Access数据库中运行macros。 这将数据库中的表导出到.csv文件。 我在我的电脑上安装了Access，但其他人也需要使用这个不这样做，所以看到一个错误信息。

有没有其他的方法可以用来从Access运行一个macros，除了在我的代码中创build一个对象，也许像ADODB？

我的Excel VBA代码：

Dim accApp As Object Set accApp = CreateObject("Access.Application") dbPath = ThisWorkbook.Path & "\Database\STORE_TOC_FRONTEND.accdb" accApp.OpenCurrentDatabase dbPath accApp.DoCmd.RunMacro "Create SS Upload" Set accApp = Nothing 

Answer 1

是做一个Adodb连接对象和一个Adodblogging集对象。 未经testing的代码如下。

 set conn = CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" 'Or Microsoft.ACE.OLEDB.12.0 for 2007+ version of access conn.Open "c:/webdata/northwind.mdb" 'path to your db set objRecordset=CreateObject("ADODB.Recordset") objRecordset.open("Select * from SomeTable",conn,0,3,1) 'do you work here, something like a loop for each field and for each row objRecordset.close conn.close