我需要一个VBA脚本在excel上运行，以复制excel工作表中的所有access表列

我有大约10个office版本2003的*.mdb Access文件。我在客户机上工作，我只安装了Excel 2003，但没有Access

每个数据库文件中大约有50-100个表，每个表大约有20-30列。我需要在Excel上运行VBA脚本或任何导入，以便将所有Access表及其列复制到Excel工作表中。我不需要Access表的数据，只需要表及其列名。

计划：

For Each MDB In YourMdbs (file in folder, hard-coded list, ...)
    For Each TABLE In MDB (filtered, no MSys tables, ...)
        XLS = FSpec to non-existing .xls corresponding to MDB
        Execute on ADO connection to XLS:
          SELECT * INTO <TABLE> FROM <TABLE> IN "<FSpec to MDB>" WHERE 1=0

用于MDB中的每个MDB（文件夹中的文件、硬编码列表等）
对于MDB中的每个表（已筛选，无MSys表，…）
XLS=FSpec到不存在的.XLS对应于MDB
在与XLS的ADO连接上执行：
在“”中选择*INTO，其中1=0

基于：

这种方法将.mdbs表模式导出到.xls工作表，而不会对ADOX模式产生任何麻烦

WRT评论：

VBS Express中的程序记录了表和字段名，我的策略将表（由于WHERE子句而没有数据）复制到工作表中

ADO magic可以在没有安装MS Office的计算机上正常工作

---

你能推荐一些网站去哪里找吗。。我对这一切都是全新的。在谷歌中输入ado模式，看看你进展如何。谢谢。。我使用了这里提到的方法。。我在目录中循环查找mdb文件，然后使用上面的过程查找表和列。这很简单..我使用DAO.OpenDatabase在excel模块中打开access数据库。。因此，这解决了我没有安装ms access的问题。。