Question

Excel VBA中的子例程在Access数据库中运行宏。这会将db中的表导出为.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

Access app的替代方案

1 个答案: