Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка в связывании с файлом Екселя / 6 сообщений из 6, страница 1 из 1
20.08.2004, 13:47:29
    #32658949
tim2
tim2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в связывании с файлом Екселя
Связываю с базой файл Екселя:
Код: plaintext
1.
2.
3.
Dim tdf As TableDef
Set tdf = CurrentDb.CreateTableDef("Таблица")
tdf.Connect = "Excel 10.0;DATABASE=C:\temp\Book1.xls"
 CurrentDb.TableDefs.Append tdf
сообщение об ошибке: "поля не определены..."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 14:11:09
    #32659053
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в связывании с файлом Екселя
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim mydb As DAO.Database
Dim myq As DAO.TableDef
Set mydb = CurrentDb
For Each myq In mydb.TableDefs
 If Not IsNull(myq.Connect) Then Debug.Print myq.Name; "   "; myq.Connect; "   "; myq.SourceTableName
Next myq
SourceTableName - хорошо видно ?
автор
Лист1 Excel 5.0;HDR=YES;IMEX=2;DATABASE=I:\INSTALL\dannie.xls Лист1$
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 14:31:47
    #32659135
tim2
tim2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в связывании с файлом Екселя
Да, св-во SourceTableName я что-то упустил... Спасибо!
Тогда еще вопросы:
-привязал Ексель вручную, в св-ве Connect читаю: Excel 5.0;..., привязываю кодом, пишу: Excel 8.0;... и так работает. У меня установлен Eксел2002, как правильно указывать _ 5 или 8?
-можно ли как-то прочесть названия листа Екселя(он всегда один), чтобы потом указать его для SourceTableName?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 14:45:04
    #32659179
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в связывании с файлом Екселя
1 версии важны при сохранении файлов xls
2 посмотреть листы - можно,не забудь через ссылки(references) прицепить Excel Object Library
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("d:\tula.xls")
For Each mysheet In MyWo.Worksheets
   Debug.Print mysheet.Name
Next mysheet
MyWo.Close
Set MyWo = Nothing
Set myOlApp = Nothing
выдача debug
автор
Лист1
Лист2
Лист3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 16:01:42
    #32659452
tim2
tim2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в связывании с файлом Екселя
И вдруг перестало работать:
Код: plaintext
1.
2.
3.
4.
Dim tdf As TableDef
Set tdf = CurrentDb.CreateTableDef("Таблица")
tdf.Connect = "Excel 5.0;DATABASE=C:\temp\Book1.xls"
tdf.SourceTableName = "таблица$"
 CurrentDb.TableDefs.Append tdf
пишет "ошибка в создании файла". Если руками связывать, все работает.
Комп перезапускал, базу восстанавливал - не помогает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 16:03:06
    #32659457
tim2
tim2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в связывании с файлом Екселя
Отбой! У меня в адресе подключения оказался пробел перед буквой диска...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка в связывании с файлом Екселя / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 324ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1672298]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 190ms
total:  324ms
x
x
Закрыть


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