Импортирование нескольких .xls файлов в Access

[tibhar940]

Есть несколько однотипных .xls файлов. Муторно импортировать по одному.
Есть ли возможность?:
1)Импортировать сразу несколько файлов, не изменяя их.
или
2)Импортировать сразу несколько файлов, оставив общую для всех шапку и последовательно (не важно в каком порядке) скопировав данные под шапкой в одну таблицу Access.

Спасибо.

[papirys]

Файлы складываются в папку.
В vba перебираются все файлы из этой папки с расширением *.xls и добавляются в таблицу Access.

[tibhar940]

Сообщение от papirys

Файлы складываются в папку.
В vba перебираются все файлы из этой папки с расширением *.xls и добавляются в таблицу Access.

Спасибо за абстрактную подсказку, а можно подробнее? Если можно кроссссылку или же пример кода.
Можно ли это реализовать через макрос аксесса кстати?

Вот исходя из этого, можно как то указать, чтобы макрос перебрал и импортировал все файлы типа Табличка (#) из папки? (В принципе для меня макрос это решение оказалось нормальное, и временных затрат особых нет, но если вдруг большое количество файлов навалится, то будет проблемматичнее).

[gluk_fm]

Добрый день.
Можно попробовать как-то так:

Dim MyFolder As Folder, MyFile As File
Set db = CurrentDb
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFolder = fso.GetFolder("\\tsclient\C\Otchety\temp\")


For Each MyFile In MyFolder.Files

DoCmd.TransferSpreadsheet acImport, 8, "имя таблицы", MyFile, True
Next

Да если я не ошибаюсь при этом необходимо подключить библиотеку scriptingRuntime

[tibhar940]

Сообщение от gluk_fm

Добрый день.
Можно попробовать как-то так:

Dim MyFolder As Folder, MyFile As File
Set db = CurrentDb
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFolder = fso.GetFolder("\\tsclient\C\Otchety\temp\")


For Each MyFile In MyFolder.Files

DoCmd.TransferSpreadsheet acImport, 8, "имя таблицы", MyFile, True
Next

Да если я не ошибаюсь при этом необходимо подключить библиотеку scriptingRuntime

Извините за глупый вопрос, а куда это вставлять в Аксессе? Я только в Экселе с Макросами работал.

Понял как запускать..но что-то он теперь не хочет работать корректно.

[gluk_fm]

Вариантов вставки множество:
- модуль
- кнопка
- события форм
- события других действий

Но если я правильно понял то Вам подойдёт модуль. Только не забудьте перед модулем написать "sub t" а после модуля "End sub"

[tibhar940]

Сообщение от gluk_fm

Вариантов вставки множество:
- модуль
- кнопка
- события форм
- события других действий

Но если я правильно понял то Вам подойдёт модуль. Только не забудьте перед модулем написать "sub t" а после модуля "End sub"

Да это я понял уже. пробую. Но дебаггер ругается.

[gluk_fm]

На чём ругается?
Если в начале то вспомните моё примечание

Да если я не ошибаюсь при этом необходимо подключить библиотеку scriptingRuntime

[Myhaylo]

А ещё добавить одно объявление:

Dim fso As Object

[tibhar940]

Сообщение от gluk_fm

На чём ругается?
Если в начале то вспомните моё примечание

Да если я не ошибаюсь при этом необходимо подключить библиотеку scriptingRuntime

Так, ну я разобрался как подключить библиотеку, подключил. Запускаю макрос, первый раз он работает, потом дебагер выделяет строку.


Однако он импортирует только один файл из папки, а не все XLSы.

Я немного полуркал и видоизменил код. Теперь он импортирует сразу несколько файлов. Но также нестабильно и дебаггер ругается.

Что я делаю не так?

И да, кстати.
If UCase(Right(MyFile, 3)) = "XLS" Then
Что значит тройка в этой строке?

Очередная правка - попробовал на больших XLSах, их вообще не подхыватывает, просто вылетает таже ошибка дебаггера и подсвечивается строка.