Импортирование нескольких .xls файлов в Access - Microsoft Office Access - Страница 2

alex77755 · 16.08.2012, 09:25

можно перебрать старой функцией Dir
кусок из примера

Код:

  'Начинаем читать файлы из папки 
  wb = Dir(Folder & Application.PathSeparator & "*.xls") 
  While Len(wb) > 0 
'''''''''''''''''''' код
    wb = Dir 'читаем следующий файл 
  Wend 
End Sub

gluk_fm · 16.08.2012, 10:24

Доброе утро.
3 - означает 3 знака
Ругается вероятнее всего из-за того что Вы пытаетесь все данные впихнуть в одну таблицу. Лучший вариант выложить пример сделанной Вами базы с Вашими екселевскими файлами.

Есть вариант попробовать изменять имена таблиц и сделать их такими же как имена фалов без расширения.

tibhar940 · 16.08.2012, 11:20

В общем заработало. Итоговый вариант выглядит так.

16.08.2012, 09:25	#11
alex77755 Форумчанин Регистрация: 14.02.2009 Сообщений: 753	можно перебрать старой функцией Dir кусок из примера Код: `'Начинаем читать файлы из папки wb = Dir(Folder & Application.PathSeparator & "*.xls") While Len(wb) > 0 '''''''''''''''''''' код wb = Dir 'читаем следующий файл Wend End Sub` помогу решить контрольные VB6, VBA (недорого) Alex77755@mail.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Обновление XLS файла из Access	artemavd	Общие вопросы Delphi	0	27.09.2011 18:45
Автоматическое копирование из Access в XLS	_Yan_	Microsoft Office Access	1	21.12.2010 16:34
Линкование двух xls файлов	the_moon	Microsoft Office Excel	3	15.03.2010 01:07
Как из нескольких файлов *.xls выбрать нужные данные суммировать их и скопировать в уже готовую форму	Иван123456	Microsoft Office Excel	2	07.08.2009 21:50
Поиск .csv и .xls файлов	Len@	Microsoft Office Excel	18	28.07.2008 22:31

16.08.2012, 10:24	#12
gluk_fm Форумчанин Регистрация: 09.06.2011 Сообщений: 515	Доброе утро. 3 - означает 3 знака Ругается вероятнее всего из-за того что Вы пытаетесь все данные впихнуть в одну таблицу. Лучший вариант выложить пример сделанной Вами базы с Вашими екселевскими файлами. Есть вариант попробовать изменять имена таблиц и сделать их такими же как имена фалов без расширения.

16.08.2012, 11:20	#13
tibhar940 Пользователь Регистрация: 31.07.2012 Сообщений: 79	В общем заработало. Итоговый вариант выглядит так.