试试
这个功能比较强大,适合于复杂的access数据库
dim acapp as access.application
dim dbpath as string
dim xpath as string
dbpath=app.path & "\data.mdb"
xpath=app.path & "\data.xls"
set acapp=getobject(dbpath,"access.application")
acapp.docmd.transferspreadsheet acexport.acspreadsheettypeexcel9,"类别",xpath
温馨提示:答案为网友推荐,仅供参考