我需要一个VBA脚本在Excel中运行,以复制Excel工作表中的所有访问表列

我有大约10 * .mdb办公室版本2003的Access文件。我正在客户端机器上,我只有Excel 2003安装,但不是访问。

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

计划:

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 

基于: 在条款

这种方法可以将.mdbs表格模式导出为.xls表格, 而无需使用ADOX架构。

WRT评论:

  1. 来自VBS Express的程序logging了表格和字段名称,我的策略将这些表格(由于WHERE子句而没有数据) 复制到表格
  2. ADO魔术在没有安装MS Office的电脑上工作得很好