Запросы в Excel

[clbman]

Здравствуйте. Можете пожалуйста проверить правильно ли написан запрос? Выдает ошибку "Невозможен запуск запроса на выборку". Суть запроса чтобы установить связь таблиц при помощи JOIN и вывести таблицу в Экселе.


Dim db As DAO.Database
Dim sSQL As String
Set db = DAO.OpenDatabase("C:\Editor\databas e.mdb")
Set RS = db.OpenRecordset("select * from Товары, Склады, Категории")
sSQL = "select Товары.ID, Товары.[Наименование продукта], Склады.Склад, Категории.Категория
from Товары, Склады, Категории,
Товары inner join Склады on Склады.ID=Товары.Склад,
Товары inner join Категории on Категории.ID=Товары.Категория"

db.Execute sSQL
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
End Sub

[Teslenko_EA]

Здравствуйте clbman.
если Вы выложите архив с образцом БД, в котором установлены связи, помощь может прийти быстрее, а пока могу высказать большие сомнения на счет жизнеспособности запроса.
Но даже не вдаваясь в "верность" SQL, вопрос и вся конструкция вызывает вопросы:
зачем устанавливать связь с внешней БД,
открывать рекордсет с бесполезным источником ("select * from Товары, Склады, Категории"),
выполнять запрос на выборку (который ничего не выполняет)
и при этом спрашивать о выводе в Excel

Если будет верно "построен" Ваш запрос на выборку, задача (..в Excel) может решаться гораздо проще:

...
sSQL = "SELECT * INTO Лист1 IN 'C:\Temp.xls'[Excel 8.0;HDR=YES;IMEX=2] " + _
" FROM (SELECT * FROM ВашИсточник....)"
db.Execute sSQL
db.Close
Set db = Nothing
...

Евгений.