我需要一个 VBA 脚本才能在 excel 上运行以复制 Excel 表中的所有访问表列

Question

我有大约 10 个 Office 版本 2003 的 *.mdb Access 文件。我正在使用仅安装 Excel 2003 但未安装 Access 的客户端计算机。

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

Answer 1

计划：

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

基于：IN CLAUSE

这种方法会将 .mdbs 表模式导出到 .xls 工作表不会对 ADOX 模式大惊小怪。

WRT cmets：

1. VBS Express 的程序记录表格和字段名称，我的策略复制表格（由于 WHERE 子句没有数据）到工作表
2. ADO 魔法在未安装 MS Office 的计算机上运行正常