Как выгрузить макросом в excel данные из БД?

badmint

Кароч, на работе стоит access.
Предположим есть некий файл db1.mdb в котором есть таблица Addresses
Мне нужно с помошью макроса, написанного в екселе выгрузить таблицу Addresses в екселевский файл.
Файл db1.mdb лежит в архиве вот здесь:
Напишите кому не сильно влом код макроса в екселе, а то чё-то вааще ни чё не получается =(
Ниже код, который у меня не пашет, хотя он как мне кажется просто должен делать запрос
Public Sub first
Dim dbMoscow As Database
Dim Path As String
Path = "C:\Baza\"
Set dbMoscow = DBEngine.Workspaces(0).OpenDatabase(Path & "db1.mdb")
dbMoscow.Execute " SELECT * FROM Addresses;"


End Sub
p.s. Сильно не кричите, я с БД вааще не дружу

Mixaz

Сделай в Excel запись макроса (Сервис->Макрос->Начать запись
Тебе нужно: данные->импорт внешних данных->импортировать данные
далее выбираешь базу и таблицу, как закончишь - останавливаешь запись макроса и смотришь что он там тебе создал, получается абракадабра подлиннее, чем ты написал

badmint

о, точно, надо попробовать вручную забацать и посмотреть чё там будет =)

verchik80

Используй DAO (tools -> references -> Microsoft DAO 3.6 Object Library)
dim db as database
dim rs as recordset
set db = opendatabase(Path)
set rs = db.tabledefs("Adresses").openrecordset
r = 1
do while not rs.eof
cells(r,1) = rs.fields("...")
...
r = r+1
rs.movenext
loop