Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
09.03.2021, 10:00
|
|||
---|---|---|---|
Загрузка из файла Excel |
|||
#18+
Добрый день! делаю загрузку в проекте из Excel файла. Указываю путь, все нормально файл находит, открывает его но на строке loo_excel.Range( 'A' + String(i) ).Select виснет и дальше не идет (строка где идет чтение значения). Подскажите пожалуйста с чем это связано? OLEObject loo_excel SetNull( ll_f_objfusion ) s_path = 'C:\FOLDER' s_mask = 'FILE_NAME' + '*' s_file = f_find_file( s_path, s_mask ) s_path_name = s_path + '\' + s_file IF ( IsNull( s_file ) OR s_file = '' ) THEN RETURN 0 END IF loo_excel = CREATE OLEObject // Подключение к текущему экземпляру Excel l_error = loo_excel.ConnectToObject("","Excel.application") If l_error <> 0 Then l_error = loo_excel.ConnectToNewObject("Excel.application") End if IF l_error <> 0 Then // Новый не удалось запустить Messagebox("OLE Error","Не могу запустить Excel " + string(l_error) ) RETURN 0 ELSE loo_excel.WorkBooks.Open( s_path_name ) loo_excel.Range( 'A' + String(i) ).Select s_first_value = String( loo_excel.ActiveCell.value ) loo_excel.Range( 'B' + String(i) ).Select s_second_value = String( loo_excel.ActiveCell.value ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=15&mobile=1&tid=1334994]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
5ms |
check topic access: |
5ms |
track hit: |
30ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
others: | 13ms |
total: | 136ms |
0 / 0 |