Мне нужен сценарий VBA для запуска в Excel, чтобы скопировать все мои столбцы таблиц доступа в таблице Excel

Question

У меня есть около 10 * .mdb файлов Access из офисной версии 2003. Я работаю на клиентских машинах, на которых у меня установлен только Excel 2003, но нет Access.

В каждом файле базы данных содержится около 50-100 таблиц, а в каждой таблице - около 20-30 столбцов.Мне нужно запустить скрипт VBA или любой импорт в Excel, чтобы я мог скопировать все таблицы 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:

1. Программа из VBS Express документы таблица и имена полейМоя стратегия копирует таблицы (без данных из-за предложения WHERE) на листы
2. Волшебство ADO работает на компьютерах без установленного MS Office просто отлично