SAP ABAP基础语法-Excel上传（十）
EXCEL BDS模板上传及赋值
上传模板事务代码：OAER
l 功能代码：向EXCEL模板中写入数据示例代码如下
REPORT ZEXCEL_DOI.
“doi type pools
TYPE-POOLS: soi.
*SAP Desktop Office Integration Interfaces
DATA: container TYPE REF TO cl_gui_custom_container,
control TYPE REF TO i_oi_container_control,
document TYPE REF TO i_oi_document_proxy,
spreadsheet TYPE REF TO i_oi_spreadsheet,
error TYPE REF TO i_oi_error,
errors TYPE REF TO i_oi_error OCCURS 0 WITH HEADER LINE.
*dynpro fields
CONTROLS: exceldata TYPE TABLEVIEW USING SCREEN 0100.
DATA: tablename(10),ok_code(15),
save_ok(15),
row(4),column(4),data(39).
*spreadsheet interface structures of the selected R/3 table
DATA: cellitem TYPE soi_generic_item,
rangeitem TYPE soi_range_item,
ranges TYPE soi_range_list,
excel_input TYPE soi_generic_table,
excel_input_wa TYPE soi_generic_item,
initialized(1),
retcode TYPE soi_ret_string.
*screen fields
SET SCREEN 100.
INCLUDE ZEXCEL_DOI_STATUS_0100O01.
*&———————————————————————*
*& Module USER_COMMAND_0100 INPUT
*&———————————————————————*
* text
*———————————————————————-*
MODULE USER_COMMAND_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN ‘BACK’.
SET SCREEN 0.
WHEN ‘OUTPUT’.
DATA: fields_table TYPE TABLE OF rfc_fields,
tabname TYPE x030l-tabname,
ret TYPE i VALUE 0.
CHECK NOT tablename IS INITIAL.
tabname = tablename.
DATA: dref TYPE REF TO data,
dref_it TYPE REF TO data,
len_table TYPE i,
len_excel_len TYPE i.
FIELD-SYMBOLS: TYPE any,
TYPE any table.
CATCH SYSTEM-EXCEPTIONS create_data_unknown_type = 1
OTHERS = 2.
CREATE DATA dref TYPE (tabname).
CREATE DATA dref_it TYPE TABLE OF (tabname).
ENDCATCH.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ASSIGN: dref->* TO ,
dref_it->* TO .
DATA: count TYPE i.
CLEAR count.
DATA: BEGIN OF la_row,
row TYPE c LENGTH 500,
END OF la_row,
excel_table LIKE TABLE OF la_row,
myrow TYPE c LENGTH 500.
REFRESH excel_table.
SELECT * INTO TABLE
FROM (tabname).
“create an excel range for data
DATA: rows_number TYPE i,
columns_number TYPE i.
CALL FUNCTION ‘RFC_GET_STRUCTURE_DEFINITION’
EXPORTING
tabname = tabname
TABLES
fields = fields_table
EXCEPTIONS
table_not_active = 1
OTHERS = 2.
DESCRIBE TABLE fields_table LINES columns_number.
DESCRIBE TABLE LINES rows_number.
CALL METHOD spreadsheet->insert_range_dim
EXPORTING name = ‘SAP_Table’
top = ‘2′
left = ‘2′
rows = rows_number
no_flush = ‘X’
columns = columns_number
IMPORTING error = errors.
APPEND errors.
CALL METHOD spreadsheet->set_color
EXPORTING rangename = ‘SAP_Table’
back = ‘50′
front = ‘2′
no_flush = ‘X’
IMPORTING error = errors.
APPEND errors.
“Create range for comments
CALL METHOD spreadsheet->insert_range_dim
EXPORTING name = ‘SAP_Comments’
top = ‘2′
left = ‘1′
rows = rows_number
no_flush = ‘X’
columns = 1
IMPORTING error = errors.
APPEND errors.
CALL METHOD spreadsheet->set_color
EXPORTING rangename = ‘SAP_Comments’
back = ‘25′
front = ‘2′
no_flush = ‘X’
IMPORTING error = errors.
APPEND errors.
DATA: title TYPE c LENGTH 30.
REFRESH:ranges,excel_input.
rangeitem-name = ‘SAP_Comments’.
rangeitem-columns = 1.
rangeitem-rows = 1.
APPEND rangeitem TO ranges.
excel_input_wa-column = 1.
excel_input_wa-row = 1.
CONCATENATE ‘R/3 table’ tabname ‘- comments’ INTO title
SEPARATED BY space.
excel_input_wa-value = title.
APPEND excel_input_wa TO excel_input.
CALL METHOD spreadsheet->set_ranges_data
EXPORTING ranges = ranges
contents = excel_input
IMPORTING error = errors.
APPEND errors.
“transfer R/3 table data into excel range
CALL METHOD spreadsheet->insert_one_table
EXPORTING data_table =
ddic_name = tabname
rangename = ‘SAP_Table’
no_flush = ‘X’
wholetable = ‘X’
IMPORTING error = errors.
APPEND errors.
“protect the R/3 data against input
CALL METHOD spreadsheet->fit_widest
EXPORTING name = space
no_flush = ‘X’.
CALL METHOD spreadsheet->protect_range
EXPORTING name = ‘SAP_Table’
protect = ‘X’
no_flush = ‘X’
IMPORTING error = errors.
APPEND errors.
“no flush automation queue
CALL METHOD control->set_focus
EXPORTING no_flush = ‘ ’
IMPORTING error = errors.
APPEND errors.
LOOP AT errors.
CALL METHOD errors->raise_message
EXPORTING type = ‘E’.
ENDLOOP.
FREE errors.
REFRESH:excel_input,ranges.
CLEAR :excel_input_wa,rangeitem.
ENDCASE.
ENDMODULE. “ USER_COMMAND_0100 INPUT
*&———————————————————————*
*& Module CREATE_BASIC_OBJECTS OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
MODULE CREATE_BASIC_OBJECTS OUTPUT.
CHECK initialized IS INITIAL.
“first get doi i_oi_container_control interface
CALL METHOD c_oi_container_control_creator=>get_container_control
IMPORTING control = control
error = error.
“check no errors occured
CALL METHOD error->raise_message EXPORTING type = ‘E’.
“create a control container as defined in dynpro 0100
CREATE OBJECT container
EXPORTING container_name = ‘CONTAINER’.
“initialize the SAP DOI container,tell it to run in the container
“specified above and tell it to run excel inplace
CALL METHOD control->init_control
EXPORTING r3_application_name = ‘R/3 Basis’
inplace_enabled = ”
inplace_scroll_documents = ”
parent = container
register_on_close_event = ‘X’
register_on_custom_event = ‘X’
no_flush = ‘X’
IMPORTING error = errors.
* save error object in collection
APPEND errors.
* ask the SAP DOI container for a i_oi_document_proxy for Exel
CALL METHOD control->get_document_proxy
EXPORTING document_type = ‘Excel.Sheet’
no_flush = ‘X’
IMPORTING document_proxy = document
error = errors.
*and then create a new Excel Sheet
CALL METHOD document->create_document
EXPORTING open_inplace = ”
document_title = ‘R/3 table contents in Excel’
no_flush = ‘X’
IMPORTING error = errors.
APPEND errors.
* check if our document proxy can serve a spread sheet interface
DATA: has TYPE i.
CALL METHOD document->has_spreadsheet_interface
EXPORTING no_flush = ‘X’
IMPORTING is_available = has
error = errors.
APPEND errors.
CALL METHOD document->get_spreadsheet_interface
EXPORTING no_flush = ‘ ’
IMPORTING sheet_interface = spreadsheet
error = errors.
APPEND errors.
* now loop through error collection because
* Get_spreadsheet_interface flushed and synchronized
* the automation queue !
LOOP AT errors.
CALL METHOD errors->raise_message
EXPORTING type = ‘E’.
ENDLOOP.
initialized = ‘X’.
ENDMODULE. “ CREATE_BASIC_OBJECTS OUTPUT
l 打开excel模板示例代码如下：
METHODS: open_excel_template IMPORTING im_clsnam TYPE sbdst_classname im_clstyp TYPE sbdst_classtype im_objkey TYPE sbdst_object_key im_desc TYPE char255, “打开报表模板
*———————————————-*
* METHOD open_excel_template *
* 打开excel模板
*———————————————-*
METHOD open_excel_template.
DATA: locint_signature TYPE sbdst_signature,
locint_uris TYPE sbdst_uri,
locwa_signature LIKE LINE OF locint_signature,
locwa_uris LIKE LINE OF locint_uris.
* Create object for cl_bds_document_set
CREATE OBJECT r_document.
* Get Document with URL
locwa_signature-prop_name = ‘DESCRIPTION’.
* Description of the table template in OAOR
locwa_signature-prop_value = im_desc.
APPEND locwa_signature TO locint_signature.
CALL METHOD r_document->get_with_url
EXPORTING
classname = im_clsnam
classtype = im_clstyp
object_key = im_objkey
CHANGING
uris = locint_uris
signature = locint_signature
EXCEPTIONS
nothing_found = 1
error_kpro = 2
internal_error = 3
parameter_error = 4
not_authorized = 5
not_allowed = 6.
IF sy-subrc NE 0.
MESSAGE ‘Error Retrieving Document’ TYPE ‘E’.
ENDIF.
* Create container control
CALL METHOD c_oi_container_control_creator=>get_container_control
IMPORTING
control = r_control
error = r_error.
IF r_error->has_failed = ‘X’.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = ‘E’.
ENDIF.
* Initialize Custom Control
CREATE OBJECT r_container
EXPORTING
container_name = ‘TAB_EXCEL’. “Custom Control Name
CALL METHOD r_control->init_control
EXPORTING
r3_application_name = ‘EXCEL INPLACE BDS’
inplace_enabled = abap_false
inplace_scroll_documents = abap_true
parent = r_container
IMPORTING
error = r_error.
IF r_error->has_failed = ‘X’.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = ‘E’.
ENDIF.
* Create object for cl_bds_document_set
CREATE OBJECT r_document.
READ TABLE locint_uris INTO locwa_uris INDEX 1.
CALL METHOD r_control->get_document_proxy
EXPORTING
document_type = ‘Excel.Sheet’
IMPORTING
document_proxy = r_proxy
error = r_error.
IF r_error->has_failed = ‘X’.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = ‘E’.
ENDIF.
* Open Document
CALL METHOD r_proxy->open_document
EXPORTING
document_url = locwa_uris-uri
open_inplace = abap_false
protect_document = abap_false “Protect Document initially
IMPORTING
error = r_error.
IF r_error->has_failed = ‘X’.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = ‘E’.
ENDIF.
* Get Excel Interface
CALL METHOD r_proxy->get_spreadsheet_interface
IMPORTING
sheet_interface = r_excel
error = r_error.
IF r_error->has_failed = ‘X’.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = ‘E’.
ENDIF.
CALL METHOD r_proxy->get_spreadsheet_interface
IMPORTING
sheet_interface = r_handle.
ENDMETHOD.
ENDCLASS.
l 逐个CELL输入数据的示例代码如下:
fill_cell IMPORTING im_x TYPE i
im_y TYPE i
im_value TYPE char255, “填充单元格
———————————————-*
* METHOD fill_cell *
* 向excel的单元格中插入数据
*———————————————-*
METHOD fill_cell.
DATA: lv_columns TYPE i,
lv_rows TYPE i.
lv_columns = 1.
lv_rows = 1.
CALL METHOD r_handle->insert_range_dim
EXPORTING
NAME = ‘cell’
NO_FLUSH = ‘X’
TOP = im_x
LEFT = im_y
ROWS = lv_rows
COLUMNS = lv_columns
IMPORTING
error = r_error.
DATA: lt_ran TYPE soi_range_list,
lt_cont TYPE soi_generic_table,
la_ran LIKE LINE OF lt_ran,
la_cont LIKE LINE OF lt_cont.
la_ran-name = ‘cell’.
la_ran-columns = lv_columns.
la_ran-rows = lv_rows.
APPEND la_ran TO lt_ran.
la_cont-column = 1.
la_cont-row = 1.
la_cont-value = im_value.
APPEND la_cont TO lt_cont.
CALL METHOD r_handle->set_ranges_data
EXPORTING ranges = lt_ran
contents = lt_cont
IMPORTING
error = r_error.
CALL METHOD r_handle->fit_widest
EXPORTING
name = space
no_flush = ‘X’.
ENDMETHOD.