Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Макрос для Excel 2007 выгрузить таблицу из Access 2007 / 4 сообщений из 4, страница 1 из 1
23.01.2017, 18:09
    #39389742
p672
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для Excel 2007 выгрузить таблицу из Access 2007
Имеется база Access 2007 это файл baza.mdb
Полный путь к базе: \\serv\pod\baza.mdb (свободный доступ в сети)
В базе таблица "Контрагенты" в которой 2 поля: "Код" "Наименование"
Нужен макрос(в Excel файле) чтобы на лист Excel 2007 просто выгружалось содержимое таблицы "Контрагенты"
Про экспорт из Access в Excel файл я знаю, но так не нужно.

Заранее благодарен!
...
Рейтинг: 0 / 0
23.01.2017, 19:34
    #39389810
\\\\
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для Excel 2007 выгрузить таблицу из Access 2007
p672...Про экспорт из Access в Excel файл я знаю, но так не нужно...Практически всё то же, но на стороне Excel.
...
Рейтинг: 0 / 0
23.01.2017, 19:37
    #39389813
p672
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для Excel 2007 выгрузить таблицу из Access 2007
Пример макроса нужен
...
Рейтинг: 0 / 0
23.01.2017, 19:46
    #39389821
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для Excel 2007 выгрузить таблицу из Access 2007
p672,
на стороне Excel делаете макрос, в котором пишите примерно так -
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim db As Database, r As Recordset 
Set db = Workspaces(0).OpenDatabase("Полный путь к базе и ее имя") 
Set r = db.OpenRecordset("Имя загружаемой таблицы") 
Cells(i, j).CopyFromRecordset r 
r.Close 
db.Close 


Где i, j – строка и столбец, откуда начинаем загружать таблицу Б.Д.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Макрос для Excel 2007 выгрузить таблицу из Access 2007 / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]