Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Считать данные с листа xls / 8 сообщений из 8, страница 1 из 1
30.03.2009, 10:58
    #35899837
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
Есть на севере файл xls, в нем есть листы с названием к примеру «Лист1», «Лист2» и т.д.
Вопрос: как считать данные (только чтение, без записи) с листа к примеру «Лист2», не втягивая весь файл и не открывая?
Что для этого необходимо?
...
Рейтинг: 0 / 0
30.03.2009, 11:12
    #35899876
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
Открыть Excel через ADO.
...
Рейтинг: 0 / 0
30.03.2009, 11:18
    #35899892
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
А по подробнее можно, если не тяжело.
...
Рейтинг: 0 / 0
30.03.2009, 11:26
    #35899908
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
Вот строка подключения. C ADO умеете работать ?
...
Рейтинг: 0 / 0
30.03.2009, 15:09
    #35900649
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
Если используется первый ResSQL то данные достаю(на фирме аутентификация Windows)
А если второе подключение (в данный момент закоментировано)
1. с доменном "firma\" выдает ошибку -
run-time error '-2147217543 (80040e4d)':
Недоступное имя учетной записи или пароль.
2. без домена выдает ошибку -
run-time error '-2147217843 (80040e4d)':
Не удаеться запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем.

Файл находиться в розшариной папке на сервере SP.

Посмотрите пож. может синтаксис не правельный или я что-то не так делаю?
Спасибо.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub Проект()
Dim Рес, ResSQL, ПроектыВехи, f
Dim rs As New ADODB.Recordset

ResSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\projectsrv\sites\MS_ProjectServer_PublicDocuments\Shared Documents\01.XLS" _
& ";Extended Properties=Excel 8.0" 'Подключение есть

'ResSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\projectsrv\sites\MS_ProjectServer_PublicDocuments\Shared Documents\01.XLS" _
& ";User ID=firma\Alexandr;Password=pas;Extended Properties=Excel 8.0" 'Нет подключения

Рес = "SELECT * FROM [RESERVED_DATA1$]"

rs.Open Рес, ResSQL, adOpenStatic
While (Not rs.EOF)
ПроектыВехи = rs.GetString(adClipString)
Wend
rs.Close

End Sub
...
Рейтинг: 0 / 0
31.03.2009, 12:07
    #35902643
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
Помогите пожалуйста! :-(
...
Рейтинг: 0 / 0
31.03.2009, 12:23
    #35902712
DeViLsssss
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
а ты попробуй adOpenDynamic вместо adOpenStatic
...
Рейтинг: 0 / 0
31.03.2009, 12:49
    #35902865
32sasha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Считать данные с листа xls
Проверил, не работает.
Это связано с доступом к файлу. Прописывая свой логин пароль оно выдает ошибки те что я писал выше. На сервере, в безопасности никаких попыток соединения нет.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Считать данные с листа xls / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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