|
Загрузка из файла 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 ... |
|||
:
Нравится:
Не нравится:
|
|||
09.03.2021, 10:00 |
|
|
Start [/forum/topic.php?fid=15&fpage=1&tid=1334994]: |
0ms |
get settings: |
16ms |
get forum list: |
9ms |
check forum access: |
1ms |
check topic access: |
1ms |
track hit: |
84ms |
get topic data: |
4ms |
get forum data: |
1ms |
get page messages: |
72ms |
get tp. blocked users: |
1ms |
others: | 309ms |
total: | 498ms |
0 / 0 |