powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с OLE-подключением к Excel
2 сообщений из 2, страница 1 из 1
Проблема с OLE-подключением к Excel
    #32728975
EvgeniyM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Доброго времени суток!
Подскажите, плз, что-нибудь по такой проблеме: закачиваются данные из Excel по OLE. Файл открывается и считывается стандартно: ObjExcel.Workbooks.Open(...)
ObjExcel.Workbook(имя).Worksheet(1).Cells(...)
Если в процессе загрузки открыть любой другой файл excel, то вместе с ним открывается окно с тем файлом, из которого грузятся данные, что уже не очень гуд. А если потом закрыть excel, то приложение загрузки теряет файл, что совсем уже плохо. Можно ли как-то открыть файл по OLE так, чтобы это соединение вообще не имело отношения к тому, что открывается параллельно? Спасибо.
...
Рейтинг: 0 / 0
Проблема с OLE-подключением к Excel
    #32729218
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
A зачем вообще понадобился OLE
- справиться с ним задача не лёгкая (т.к. его реализация в VB кривая и горбатая)
1. если надо считать данные, то:
Код: plaintext
1.
2.
3.
4.
Dim XlsApp As Excel.Application
Dim InpXlsBook As Excel.Workbook
Set XlsApp = CreateObject("Excel.Application")
Set InpXlsBook = XlsApp.Workbooks.Open(FilePath, False, True)
'и.т.д.
2. если надо еще и посмотреть на них, то я просто сделал список листов книги и в зависимости от выбранного листа - загружаю первые 100 строк в vsFlexGrid
3. можно ещё попробовать использовать вместо Ole контейнера - элемент управления WebBrowser
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с OLE-подключением к Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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