ADODC + Excel / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADODC + Excel

4 сообщений из 4, страница 1 из 1

ADODC + Excel

#32092285

Toper

Участник

Сообщения: 75

Рейтинг: 0 / 0

Хочу открыть Excel файл. Вот кусок кода:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    sFileName = CommonDialog1.FileName
    'Открываем выбранный файл
    Set Conn = CreateObject( "ADODB.Connection" )
    conStr =  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;Data Source=" & sFileName &  ";Extended Properties="  "Excel 8 . 0 " ""
    MsgBox (conStr)
    Adodc1.ConnectionString = conStr
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = " Премии"
    Adodc1.Enabled = True
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Enabled = True

End Sub

Вопрос: Adodc1.RecordSource - это ведь имя листа должно быть? Тогда почему прога работает только когда я пишу Adodc1.RecordSource = "Премии", в незавизисости от того, какое название у листа на самом деле? Может это у меня глюки какие-то? Никак не могу понять....

...

Рейтинг:

0 / 0

17.01.2003, 09:37

| Ответить | Цитировать | Написать

ADODC + Excel

#32092294

SCS

Гость

для объектов типа Recordset это выглядит так:

Код: plaintext

rs.Open  "[SHEET1$]" , cn, adOpenStatic, adLockOptimistic, adCmdTable

SHEET1 - имя листа в ёкселевском файле
для ADODC должно быть что-то подобное [Премии$] в RecordSource

...

Рейтинг:

0 / 0

17.01.2003, 09:56

| Ответить | Цитировать | Написать

ADODC + Excel

#32092297

Toper

Участник

Сообщения: 75

Рейтинг: 0 / 0

И так то же самое. Я переименовываю лист - и все равно программа работает, только если я обращаюсь к листу по имени Премии. И совершенно неважно, как он называется на самом деле...

...

Рейтинг:

0 / 0

17.01.2003, 10:02

| Ответить | Цитировать | Написать

ADODC + Excel

#32092303

Toper

Участник

Сообщения: 75

Рейтинг: 0 / 0

В общем это оказался глюк экселя. Если взять какую-то страницу, сделанную по шаблону и поменять в ней название листа, то обращаться к этому листу возможно только по старому имени. С новым документом работется нормально.

...

Рейтинг:

0 / 0

17.01.2003, 10:08

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADODC + Excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=32092285&tid=2171479]:	0ms
get settings:	9ms
get forum list:	10ms
check forum access:	10ms
check topic access:	10ms
track hit:	80ms
get topic data:	11ms
get forum data:	2ms
get page messages:	37ms
get tp. blocked users:	1ms
others:	7ms

total:	177ms