VBA в Access

Ребят, нужна помощь следующего плана...
На MS Access нужно сделать форму, одну единственную, чтобы из нее можно было делать следующее:
По нажатию на кнопку "Импорт" выбиралась папка, в которой находится множество excel-файлов. Access должен из каждого Лист1 каждого файла excel брал все ячейки столбца B, добавлял их в таблицу access в первый столбец, а во второй столбец(т.е. напротив каждой добавленной ячейки) добавлял имя файла excel, из которого эта ячейка была скопирована...
Я что-то мудрил, мудрил... Не могу понять как это сделать...

0

emlonlife,
выложил, в предыдущем посту.

1

Сообщение от Busine2009 emlonlife, эта база данных у меня работает.

НАИОГРОМНЕЙШЕЕ СПАСИБО!!!
Низкий поклон!
Очень, очень, очень помогли!

0

emlonlife,
после 23 строки в моём коде надо вот это ещё добавить (не думаю, что серьёзная ошибка):

1

Сообщение от Busine2009 emlonlife, после 23 строки в моём коде надо вот это ещё добавить (не думаю, что серьёзная ошибка): Visual Basic 1 2 НаборЗаписей.Close Set НаборЗаписей = Nothing

а за что этот код отвечает?
Вчера вечером был проведен первый тест БД... Было добавлено одним махом около 500 файлов, общим числом строк на 968000... Все супер Никаких ошибок
Огромное спасибо!

0

Сообщение от emlonlife а за что этот код отвечает?

в 15 строке устанавливается подключение к Таблица 1 (я так понимаю неявное подключение) и в объект НаборЗаписей помещается Таблица1. Если логически подумать, то после окончания работы соединение надо отключить, а НаборЗаписей по идее и сам удалится после завершения процедуры, т.к. объявлен внутри процедуры. Если файлы выбираются в диалоговом окне, то разрыв соединения с Таблица1 происходит в строке 62. А если файлы не выбираются, то происходит выход из кода, но я забыл добавить разрыв соединения с Таблица1.

Вот этот код:
формальность в данном случае, т.к. НаборЗаписей объявлен внутри процедуры и сам удалится после завершения процедуры. Но лучше его всегда писать, чтобы потом не забыть сделать там, где это нужно.

Вообще в данном случае нужно использовать объект Command, а не RecordSet, чтобы изменения сразу вносить в Таблица1, но я им не умею пользоваться.
Используя Command, можно скорость выполнения кода увеличить.

1

Ок, все понял!
Еще раз огромное спасибо!

0

Что касается запроса в Access из Excel
Я давно небыл на форуме. Но у меня есть новый код, который решил прежние проблемы:
1. В Excel-е столбцы могут иметь имена с пробелами
2. Сокращена функция для извлечения имени
3. В книге Excel листы могут размещаться где угодно и иметь любые названия

Вложения

VBA в Access.rar (62.8 Кб, 33 просмотров)

1

Сообщение от Настаев Что касается запроса в Access из Excel Я давно небыл на форуме. Но у меня есть новый код, который решил прежние проблемы: 1. В Excel-е столбцы могут иметь имена с пробелами 2. Сокращена функция для извлечения имени 3. В книге Excel листы могут размещаться где угодно и иметь любые названия

Большое спасибо!

0

Что касается VBA (Access, Excel, Word) можешь спрашивать. Я отвечу. Правда, я редко бываю в Интернете

0

Сообщение от Настаев Что касается VBA (Access, Excel, Word) можешь спрашивать. Я отвечу. Правда, я редко бываю в Интернете

Окей, спасибо

0

Сообщение от Настаев Что касается VBA (Access, Excel, Word) можешь спрашивать. Я отвечу. Правда, я редко бываю в Интернете

Может тогда Вы сможете подсказать, или кто-то другой...
Если на машине, на которой создавалась база Access или книга Excel есть нужные библиотеки, а на другой, где эти база и книга должны использоваться, их нет, можно как-то запихнуть их в саму базу или книгу и при первом его открытии эта библиотека автоматически устанавливалась и регистрировалась?
Инсталяшку делать не вариант, установка ПО на машинах запрещена админом. Думал сделать архив самораспаковывающийся, в него библиотеку запихнуть и распаковывать прямо в систем32, там же книгу эксель и при ее открытии выполнить команду регистрации библиотеки. Но это на крайний случай... Может можно как-то по другому?
Еще вариант сделать скрытый лист(если эксель) и в него записывать имя пользователя в определенную ячейку. Если она пустая, то значит выполнитьь команду регистрации библиотеки, если этот пользователь открывал книгу, значит все ок. Но это тоже по-детски как-то...
Возможно это как-то упростить или вообще сделать идеально ?

0

Сообщение от emlonlife Еще вариант сделать скрытый лист

Тогда придётся сохранять книгу после изменения в скрытом листе.
Для хранения таких данных лучше использовать реестр.

'сохранение данных в реестре
SaveSetting "MyApp", "МояПрограмма", "установлена", true

'доступ к данным реестра
GetSetting ("MyApp", "МояПрограмма", "установлена")

1

Сообщение от Настаев Тогда придётся сохранять книгу после изменения в скрытом листе. Для хранения таких данных лучше использовать реестр. 'сохранение данных в реестре SaveSetting "MyApp", "МояПрограмма", "установлена", true 'доступ к данным реестра GetSetting ("MyApp", "МояПрограмма", "установлена")

Я не понял
Что касается реестра - я вообще ноль...
Может поможете конкретный пример сделать? С библиотекой mscal.ocx?

0

Что касается библиотеки, может кто другой поможет. Я в этом не силён. Обычно стараюсь использовать существующие библиотеки.

А мой пример показывает как сохранить данные (любого типа) в реестр, а потом их получить.

Напишите SaveSetting в VBA и он сам подскажет, какие атрибуты туда вставлять
То же самое и с GetSetting.

1

Сообщение от Настаев Что касается библиотеки, может кто другой поможет. Я в этом не силён. Обычно стараюсь использовать существующие библиотеки. А мой пример показывает как сохранить данные (любого типа) в реестр, а потом их получить. Напишите SaveSetting в VBA и он сам подскажет, какие атрибуты туда вставлять То же самое и с GetSetting.

Спасибо!
А может еще подскажете...
Задача следующая:
Выполнить импорт ексель файла с одним столбцом, находищимся на лист1. Затем по этим данным нужно отобрать все строки в таблице БД, где есть эти данные и выполнить их экспорт в книгу эксель.
Т.е. имеется БД с большим набором строк. Выполняется импорт той самой книги эксель и сравниваются данные из него и первого столбца таблицы БД. Для всех, которые совпадают нужно выполнить экспорт со всеми данными из таблицы БД (всего 2 поля). Поможете?

0

Могу помочь, но придётся сделать несколько уточнений:

1. Как называется таблица в Access и столбец для импорта?
2. Как называется книга Excel и всегда ли данные находятся в одном и том же месте?
3. Какой тип импортируемых данных (текстовый или числовой)
4. Откуда должна запускаться команда на выполнение (из Excel или Access)?
5. Должен ли результат экспортироваться в новую книгу?
6. Есть ли время подождать?

0

Сообщение от Настаев Могу помочь, но придётся сделать несколько уточнений: 1. Как называется таблица в Access и столбец для импорта? 2. Как называется книга Excel и всегда ли данные находятся в одном и том же месте? 3. Какой тип импортируемых данных (текстовый или числовой) 4. Откуда должна запускаться команда на выполнение (из Excel или Access)? 5. Должен ли результат экспортироваться в новую книгу? 6. Есть ли время подождать?

Я уже сам сделал
Остался только один вопрос
У меня есть форма и в ней подчиненная форма. Данные в подчиненной форме берутся из запроса.
Так вот, при загрузке формы автоматически выполняется запрос и из-за этого форма открывается долго. Затем есть кнопочка, по которой обновляется подчиненная форма, т.к. в текстовое поле уже ввели критерий(т.е. запрос берет именно значение поля1 и сравнивает в Таблице1).
Как сделать, чтобы запрос выполнялся только по кнопке, а не при открытии формы, чтобы при пустом поле1 он не выполнялся?

0

Может я не очень себе представляю структуру созданной Вами программы, но мне кажется, что будет правильным сделать следующее:

Запрос на получение данных должен создавать мёртвую (ни с чем не связанную) таблицу в Access. Эти данные должны залетать в подчинённую форму. Загрузка будет происходить быстро, поскольку данные уже есть. А в момент нажатия кнопки для обновленя данных, статическая таблица должна переписываться заново (полностью удаляться и создаваться заново). После этого можно обновить форму.

0

Сообщение от Настаев Может я не очень себе представляю структуру созданной Вами программы, но мне кажется, что будет правильным сделать следующее: Запрос на получение данных должен создавать мёртвую (ни с чем не связанную) таблицу в Access. Эти данные должны залетать в подчинённую форму. Загрузка будет происходить быстро, поскольку данные уже есть. А в момент нажатия кнопки для обновленя данных, статическая таблица должна переписываться заново (полностью удаляться и создаваться заново). После этого можно обновить форму.

Нет-нет, я уже сделал массовый экспорт..
Сейчас я про другой запрос. Когда нужно найти одну единственную запись, вводимую в текстовое поле.
Из-за нее не стоит создавать таблицу я думаю. Или я Вас не понял?

0

А почему бы просто не повешать на текстове поле событие при изменении приблизительно с таким текстом:
То есть данные в подчинённой форме будут фильтроваться в зависимости от вводимого текста.

0