powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Считать данные с листа xls
8 сообщений из 8, страница 1 из 1
Считать данные с листа xls
    #35899837
32sasha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть на севере файл xls, в нем есть листы с названием к примеру «Лист1», «Лист2» и т.д.
Вопрос: как считать данные (только чтение, без записи) с листа к примеру «Лист2», не втягивая весь файл и не открывая?
Что для этого необходимо?
...
Рейтинг: 0 / 0
Считать данные с листа xls
    #35899876
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Открыть Excel через ADO.
...
Рейтинг: 0 / 0
Считать данные с листа xls
    #35899892
32sasha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А по подробнее можно, если не тяжело.
...
Рейтинг: 0 / 0
Считать данные с листа xls
    #35899908
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот строка подключения. C ADO умеете работать ?
...
Рейтинг: 0 / 0
Считать данные с листа xls
    #35900649
32sasha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если используется первый 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
Считать данные с листа xls
    #35902643
32sasha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите пожалуйста! :-(
...
Рейтинг: 0 / 0
Считать данные с листа xls
    #35902712
DeViLsssss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а ты попробуй adOpenDynamic вместо adOpenStatic
...
Рейтинг: 0 / 0
Считать данные с листа xls
    #35902865
32sasha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проверил, не работает.
Это связано с доступом к файлу. Прописывая свой логин пароль оно выдает ошибки те что я писал выше. На сервере, в безопасности никаких попыток соединения нет.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Считать данные с листа xls
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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