求助：如何用excel的vba，打开某个access文件，并且更改某个查询的sql语句

jackiemu

如何用excel的vba，打开某个access文件，并且更改某个查询的sql语句？

我在excel做了一个查询语句的公式（用公式替换sql语句某些字段），每次都要打开然后把十几个公式分别贴到access里，相当麻烦，跪求用excel控制access的方法~~~~

marco

http://blog.sina.com.cn/s/blog_68a0b8fd01019db1.html
适用于库为access2003及以前版本.

marco

Sub ExcelCreateQuery()
    On Error Resume Next
    Dim db     As Database
    Dim qdf As DAO.QueryDef

    Filename = "e:\12.mdb"
    Set db = OpenDatabase(Filename)
    strSQL = "SELECT * from tblaa"
    db.QueryDefs.Delete ("创建的查询")
    Set qdf = db.CreateQueryDef("创建的查询", strSQL)
    db.Close

End Sub