Может пригодиться при загрузке данных из Excel средствами OLE
Код
type-pools ole2.
start-of-selection.
data: curseparator.
*------------перформа для определения знака разделения дробной части
perform get_excel_decimal_separator using curseparator.
write curseparator.
*&---------------------------------------------------------------------*
*& Form get_excel_decimal_separator
*&---------------------------------------------------------------------*
form get_excel_decimal_separator
using result.
data:
app type ole2_object,
usesystemseparators(10).
create object app 'Excel.Application'.
if sy-subrc = 0.
get property of app
'UseSystemSeparators' = usesystemseparators.
call function 'FLUSH'.
if sy-subrc <> 0 or
( sy-subrc = 0 and usesystemseparators <> 0 ).
perform get_system_decimal_separator
using result.
else.
get property of app
'DecimalSeparator' = result.
call function 'FLUSH'.
endif.
free object app.
call function 'FLUSH'.
endif.
endform. "GET_EXCEL_DECIMAL_SEPARATOR
*&---------------------------------------------------------------------*
*& Form get_system_decimal_separator
*&---------------------------------------------------------------------*
form get_system_decimal_separator
using result.
data:
hkey_current_user type i value 1.
call function 'GUI_GET_REGVALUE'
exporting
root = hkey_current_user
key = 'Control Panel'
value_name = 'sDecimal'
changing
string = result
exceptions
registry_error = 1.
endform. "GET_SYSTEM_DECIMAL_SEPARATOR
