エクセル上でExcelシート上のすべてのアクセステーブルの列をコピーするためのVBAスクリプトが必要

Question

私は約10 * .mdbのオフィスバージョン2003のファイルにアクセスしています。Excel 2003のみをインストールしているクライアントマシンで作業していますアクセスはできません。

各データベースファイルには50~100個のテーブルがあり、各テーブルには20~30個のカラムがあります。 ExcelテーブルにすべてのAccessテーブルとその列をコピーできるように、VBAスクリプトまたはExcelでのインポートを実行する必要があります。 Accessテーブルのデータは必要ありません。テーブルとそのカラム名だけが必要です。

Answer 1

計画： ADOXスキーマを持つ任意の大騒ぎせず.XLSシートに.mdbsテーブルスキーマをエクスポートしますIN CLAUSE

このアプローチ：

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 

に基づきます。

WRTのコメント：

1. プログラムVBS Expressから（理由はWHERE句のデータなし）文書テーブルとフィールド名、私の戦略コピーテーブルシート
へ
2. ADOマジックは、MS Officeをインストールしていない状態でも正常にインストールされています。