Access app的替代方案

时间:2015-11-04 14:20:11

标签: excel vba excel-vba

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

1 个答案:

答案 0 :(得分:0)

是的,制作一个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