powered by simpleCommunicator - 2.0.19     © 2024 Programmizd 02
Map
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Загрузка из файла Excel
3 сообщений из 3, страница 1 из 1
Загрузка из файла Excel
    #40051783
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день!
делаю загрузку в проекте из 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
...
Рейтинг: 0 / 0
Загрузка из файла Excel
    #40051821
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
hum_i,
а "i" чему равно?
...
Рейтинг: 0 / 0
Загрузка из файла Excel
    #40051959
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо я поняла
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Загрузка из файла Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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