Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Открытие *.mdb файла в Excel / 4 сообщений из 4, страница 1 из 1
14.10.2004, 16:16:41
    #32738832
incm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие *.mdb файла в Excel
Нужно открыть *.mdb файла в Excel.

Пишу
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Set ses = CreateObject("ADODB.Connection")
ses.Provider = "Microsoft.Jet.OLEDB.4.0"
ses.Open "MyPath\File.mdb"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = ses

sql = "SELECT * FROM File.Table"
rs.Open sql, ses,  1 ,  3 

Все работает, пока не открою в Excel какую либо книгу, лежащую в другой папке. После этого когда выполняется rs.Open sql, ses, 1, 3 , таблица почему то ищется не в файле "MyPath\File.mdb", а "Путь где лежит последняя открытая книга\File.mdb", но там то его нет.

Может нужно еще чего указывать в rs.Open sql, ses, 1, 3 ?
...
Рейтинг: 0 / 0
14.10.2004, 23:24:09
    #32739469
Темный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие *.mdb файла в Excel
А прописать сразу полный путь? С указанием диска и папок с подпапками?
...
Рейтинг: 0 / 0
14.10.2004, 23:35:29
    #32739472
Гео
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие *.mdb файла в Excel
private offtopic
'Тёмная ночь, только пули свистят где-то там
'Там-тарам-там пам-пам-пам-парам.
'Тусклo звёзды мeрца-ают. :)
end offtopic
...
Рейтинг: 0 / 0
15.10.2004, 11:39:24
    #32740021
incm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие *.mdb файла в Excel
ТемныйА прописать сразу полный путь? С указанием диска и папок с подпапками?
Что значит сразу полный путь? MyPath - это и есть полный путь.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Открытие *.mdb файла в Excel / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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