Vba 访问应用程序的替代方案

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

除了在下面的代码中创建一个对象（比如ADODB），我还可以使用其他方法从Access运行宏吗

我的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

---

是的，创建一个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

---

是的，创建一个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