Access应用程序的替代方案

Question

Excel VBA中的子例程在Access数据库中运行宏。这将数据库中的表导出到.csv文件。我在我的电脑上安装了Access，但其他人也需要使用它，因此请参阅错误消息。

是否有任何其他方法可以用来从Access运行宏，除了在我的代码中创建一个对象，也许像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连接对象，一个ADODB记录对象。未经测试的代码如下。

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