1
方法用例
*&---------------------------------------------------------------------*
*&
本程序总结了常用的
ABAP
对
EXCEL
的操作，包括如下子例程
*&
方法名
方法说明
*& (1) create_excel
创建
excel
*& (2) insert_row
插入行
*& (3) fill_cell
填充单元格
*& (4) columnwidth
调整列宽
*& (5) create_sheet
创建
sheet
*& (6) copy_sheet_all sheet
复制
*& (7) copy_sheet_area sheet
区域复制
*& (8) copy_cells
复制单元格
*& (9) range_borders
边框粗细
*& (10) row_color
行颜色
*& (11) preview_excel
预览
*& (12) free_object
释放对象
*& (13) close_excel
关闭
excel
*& (14) download_excel_fromserver
从服务器下载
excel
模板（进入模板事务代码
SMW0
）
*& (15) open_excel_hide
隐蔽打开
excel
*& (16) open_excel
打开
excel
*& (17) open_excel_sheet
打开指定的
excel
的
sheet
*& (18) open_excel_by_sheet
打开
sheet
*& (19) select_range
选择范围
*& (20) clear_data
清除数据
*& (21) merge_cells
合并单元格
*& (22) process_indcator
进度指示
*& (23) delete_row
删除行
*& (24) add_comment
添加注释
*& (25) hide_columns
隐藏列
*& (26) delete_columns
删除列
*& (27) hide_row
隐藏行
*
保护工作区
lock_unlock_excel
：未完成
*
保护整个工作表
lock_sheet
：
未完成
*&
本示例程序作为
ABAP
对
EXCEL
操作的参考
,
可以根据需要做适当的调整
*&---------------------------------------------------------------------
*
REPORT zdealexcel.
TYPE-POOLS ole2.
TABLES sscrfields.
DEFINE m_
m
essage.
case sy-subrc.
when '0'.
when others.
message e000(zmeg)
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. endcase.
END-OF-DEFINITION.
DATA: application TYPE ole2_object, "excel object
workbook TYPE ole2_object, "excel workbook objcet sheet TYPE ole2_object, "workbook sheet object columns TYPE ole2_object, "sheet col objcet rows TYPE ole2_object, "sheet row objcet range TYPE ole2_object, "range
range1 TYPE ole2_object, "range1 font TYPE ole2_object, "font cell TYPE ole2_object, "cell
cell1 TYPE ole2_object, "cell1 sheet1 TYPE ole2_object, "workbook sheet object borders TYPE ole2_object. "borders
DATA: index TYPE i VALUE 0.
*定义模板下载到本地保存的全名称
DATA: p_down_file LIKE sapb-sappfad. "定义模板下载到本地保存的全名称
*演示excel操作
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON 01(12) but0 USER-COMMAND cli0, PUSHBUTTON 20(15) but2 USER-COMMAND cli2. SELECTION-SCREEN END OF LINE.
*导入数据块
SELECTION-SCREEN BEGIN OF BLOCK status2 WITH FRAME TITLE text-f02. SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-002. PARAMETERS: p_file LIKE rlgrap-filename. SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK status2.
*导出数据块
SELECTION-SCREEN BEGIN OF BLOCK status3 WITH FRAME TITLE text-f03 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-003.
PARAMETERS: p_down LIKE rlgrap-filename.
SELECTION-SCREEN:
PUSHBUTTON 75(20) but1 USER-COMMAND cli1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK status3.
INITIALIZATION.
CREATE OBJECT application 'excel.APPLICATION'.
but0 =
'
演示
excel
操作
'. "
初始化导出
button
显示名称
but1 =
'
导出
'. "
初始化导出
button
显示名称
but2 =
'
从模板导出
excel'. "
从模板导出
excel
*-------------------------
设置文件上载
-------------------------
AT SELECTION-SCREEN ON VALUE-
REQUEST FOR p_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_path =
p_file
m
ask =
',*.*.'
m
ode =
'O'
title =
text-f01
IMPORTING
filenam
e =
p_file
EXCEPTIONS
inv_winsys =
1
no_batch =
2
selection_cancel =
3
selection_error =
4
OTHERS =
5.
CHECK sy-subrc =
0 AND NOT p_file IS INITIAL.
*-------------------------
设置文件下载
-------------------------
AT SELECTION-SCREEN ON VALUE-
REQUEST FOR p_down.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_path =
p_down
m
ask =
',*.xls,*.xls.'
m
ode =
'S'
title =
text-f02
IMPORTING
filenam
e =
p_down
EXCEPTIONS
inv_winsys =
1
no_batch =
2
selection_cancel =
3
selection_error =
4
OTHERS =
5.
CHECK sy-subrc =
0 AND NOT p_down IS INITIAL.
*--------------------------------------------------------------
AT SELECTION-SCREEN.
IF sscrfields-ucomm EQ 'CLI1'.
IF p_down IS INITIAL.
MESSAGE e804(zdev).
ELSE.
p_down_file =
p_down.
PERFORM download_excel_fromserver USING 'ZHRI0004' p_down_file .
"
下载模板到本地
MESSAGE i600(zdev) WITH '
模板导出成功
'.
ENDIF.
ELSEIF sscrfields-ucomm EQ 'ONLI'.
IF p_file IS INITIAL.
MESSAGE e803(zdev).
ENDIF.
ELSEIF sscrfields-ucomm EQ 'CLI0'.
PERFORM demo_forms.
ELSEIF sscrfields-ucomm EQ 'CLI2'.
PERFORM demo_forms_server USING p_file.
ENDIF.
START-OF-SELECTION.
PERFORM open_excel_hide USING p_file.
PERFORM close_excel.
PERFORM open_excel USING p_file.
PERFORM close_excel.
PERFORM open_excel_sheet USING 'sheet2' p_file.
DO 10 TIMES.
PERFORM insert_row USING 1.
PERFORM fill_cell USING 1 1 0 'e'.
PERFORM fill_cell USING 1 2 0 'f'.
PERFORM fill_cell USING 1 3 0 'g'.
index =
index +
1.
ENDDO.
PERFORM close_excel.
PERFORM free_object.
*&---------------------------------------------------------------------* *& Form demo_forms_server
*&---------------------------------------------------------------------* * 从SMW0下载excel模板
*----------------------------------------------------------------------* * -->P_FILE excel本地路径
*----------------------------------------------------------------------* FORM demo_forms_server USING p_file. p_down_file = p_file.
PERFORM process_indcator USING '程序正在下载模板' 0 .
PERFORM download_excel_fromserver USING 'ZHRI0004' p_down_file .
PERFORM process_indcator USING '程序正在初始化OLE控件' 0 .
PERFORM process_indcator USING '程序正在打开excel文档' 0 .
PERFORM open_excel_sheet USING '处分处罚信息批导入' p_file.
DO 10 TIMES.
PERFORM insert_row USING 5. PERFORM fill_cell USING 5 1 0 'e'. PERFORM fill_cell USING 5 2 0 'f'. PERFORM fill_cell USING 5 3 0 'g'. index = index + 1. ENDDO.
PERFORM clear_data USING 1 6 2 7. PERFORM merge_cells USING 1 6 2 7. PERFORM add_comment USING 8 1 'OK'. PERFORM close_excel. PERFORM free_object.
ENDFORM. "demo_forms_server
*&---------------------------------------------------------------------* *& Form demo_forms
*&---------------------------------------------------------------------* * 演示用form
*----------------------------------------------------------------------* FORM demo_forms
DO 10 TIMES.
PERFORM insert_row USING 1.
PERFORM fill_cell USING 1 1 0 'a'.
PERFORM fill_cell USING 1 2 0 'b'.
PERFORM fill_cell USING 1 3 0 'c'.
index =
index +
1.
ENDDO.
PERFORM columnwidth USING 'A:C' '' .
PERFORM create_sheet.
PERFORM create_sheet.
PERFORM copy_sheet_all.
PERFORM copy_sheet_area.
PERFORM copy_cells.
PERFORM range_borders.
PERFORM row_color USING 1.
PERFORM preview_excel.
PERFORM del_sheet USING 'sheet2'.
PERFORM free_object.
ENDFORM. "dem
o_forms
*&---------------------------------------------------------------------
*
*& (1) Form create_excel
*&---------------------------------------------------------------------
*
*
创建
excel
*----------------------------------------------------------------------*
FORM create_excel.
IF sy-subrc <> 0.
MESSAGE 'EXCEL ERROR' TYPE 'S' DISPLAY LIKE 'E'.
STOP.
ENDIF.
CALL METHOD OF application 'WORKBOOKS' =
workbook.
SET PROPERTY OF application 'VISIBLE' =
1.
SET PROPERTY OF application 'SHEETSINNEWWORKBOOK' =
1.
CALL METHOD OF workbook 'ADD' =
sheet.
CALL METHOD OF sheet 'ACTIVE'.
ENDFORM. "create_excel
*&---------------------------------------------------------------------
*
*& (2) Form
insert_row
*&---------------------------------------------------------------------
*
*
根据行号插入一行
*----------------------------------------------------------------------*
* -->
I_ROW
行号
*----------------------------------------------------------------------*
FORM insert_row USING i_row.
CALL METHOD OF application 'ROWS' =
rows
EXPORTING
#1 =
i_row.
CALL METHOD OF rows 'INSERT'.
ENDFORM. "insert_row
*&---------------------------------------------------------------------
*
*& (3) Form
fill_cell
*&---------------------------------------------------------------------
*
*
填充单元格
*----------------------------------------------------------------------*
* -->
I_ROW
行号
* -->
I_COL
列号
* -->BOLD
是否加粗
* -->
P_VALUE
值
*----------------------------------------------------------------------*
FORM fill_cell USING i_row i_col bold p_value.
CALL METHOD OF application 'CELLS' =
cell
EXPORTING
#1 =
i_row
#2 =
i_col.
SET PROPERTY OF cell 'VALUE' = p_value.
SET PROPERTY OF cell 'HORIZONTALALIGNMENT' =
2.
GET PROPERTY OF cell 'FONT' =
font.
SET PROPERTY OF font 'BOLD' =
bold.
SET PROPERTY OF font 'COLORINDEX' =
41.
CALL METHOD OF cell 'BORDERS' =
borders
EXPORTING
#1 =
'2'.
SET PROPERTY OF borders 'LINESTYLE' =
'0'.
SET PROPERTY OF borders 'WEIGHT' =
0.
ENDFORM. "fill_cell
*&---------------------------------------------------------------------
*
*& (4) Form
columnwidth
*&---------------------------------------------------------------------*
*
设置列宽为自动或是固定值
*----------------------------------------------------------------------*
* -->
COLNUM
列号
,
可以为单个列或是多个列
* -->
WIDT
H
列宽值
*----------------------------------------------------------------------*
FORM columnwidth USING colnum width.
CALL METHOD OF application 'COLUMNS' =
columns
EXPORTING
#1 =
colnum.
IF width =
''.
CALL METHOD OF columns 'AutoFit'.
ELSE.
SET PROPERTY OF colum
ns 'COLUMNWIDTH' =
width.
ENDIF.
ENDFORM. "columnwidth
*&---------------------------------------------------------------------
*
*& (5) Form
create_sheet
*&---------------------------------------------------------------------
*
*
创建
sheet
*----------------------------------------------------------------------*
FORM create_sheet.
CALL METHOD OF application 'sheets' =
sheet.
CALL METHOD OF sheet 'ADD'.
ENDFORM. "create_sheet
*&---------------------------------------------------------------------
*
*& (6) Form
copy_sheet_all
*&---------------------------------------------------------------------
*
*
复制
sheet
全部内容到另一个
sheet
*----------------------------------------------------------------------*
FORM copy_sheet_all.
CALL METHOD OF application 'Sheets' =
sheet
EXPORTING
#1 =
'Sheet1'.
CALL METHOD OF sheet 'Cells' =
cell.
CALL METHOD OF cell 'copy'.
CALL METHOD OF application 'Sheets' =
sheet
EXPORTING
#1 =
'Sheet3'.
CALL METHOD OF application 'Range' =
range
EXPORTING
#1 =
'A1'.
CALL METHOD OF range 'PasteSpecial'.
ENDFORM. "copy_sheet_all
*&---------------------------------------------------------------------
*
*& (7) Form
copy_sheet_area
*&---------------------------------------------------------
------------*
*
复制
sheet
部分内容到另一个
sheet
*----------------------------------------------------------------------*
FORM copy_sheet_area.
CALL METHOD OF application 'Sheets' =
sheet
EXPORTING
#1 =
'Sheet1'.
CALL METHOD OF sheet 'Range' =
range
EXPORTING
#1 =
'A1'
#2 =
'B10'.
CALL METHOD OF range 'copy'.
CALL METHOD OF application 'Sheets' =
sheet1
EXPORTING
#1 =
'Sheet2'.
CALL METHOD OF sheet1 'Range' = range1
EXPORTING
#1 =
'A1'
#2 =
'B10'.
CALL METHOD OF range1 'PasteSpecial'.
ENDFORM. "copy_sheet_area
*&---------------------------------------------------------------------
*
*& (8) Form
copy_cells
*&---------------------------------------------------------------------*
*
在一个
sheet
内复制单元格
*----------------------------------------------------------------------*
FORM copy_cells.
CALL METHOD OF application 'Sheets' =
sheet
EXPORTING
#1 =
'Sheet1'.
CALL METHOD OF sheet 'Range' =
range
EXPORTING
#1 =
'A1'
#2 =
'B10'.
CALL METHOD OF range 'copy'.
CALL METHOD OF sheet 'Range' =
range1
EXPORTING
#1 =
'A12'
#2 =
'B22'.
CALL METHOD OF range1 'PasteSpecial'.
ENDFORM. "copy_cells
*&---------------------------------------------------------------------*
*& (9) Form
range_borders
*&---------------------------------------------------------------------
*
*
指定
range
加边框
*----------------------------------------------------------------------*
FORM range_borders.
CALL METHOD OF application 'Range' =
range
EXPORTING
#1 =
'A1'
#2 =
'B10'.
CALL METHOD OF range 'BORDERS' =
borders.
SET PROPERTY OF borders 'LINESTYLE' =
1.
SET PROPERTY OF borders 'WEIGHT' =
10.
ENDFORM. "range_borders
*&---------------------------------------------------------------------
*
*& (10) Form row_color
*&---------------------------------------------------------------------
*
*
设定行背景色
*----------------------------------------------------------------------*
* -->
I_ROW
行号
*----------------------------------------------------------------------*
FORM row_color USING i_row.
CALL METHOD OF application 'ROWS' =
rows
EXPORTING
#1 =
i_row.
GET PROPERTY OF rows 'Interior' =
font.
SET PROPERTY OF font 'ColorIndex' =
'10'.
ENDFORM. "row_color
*&---------------------------------------------------------------------
*
*& (11) Form preview_excel
*&---------------------------------------------------------------------*
*
预览
excel
*----------------------------------------------------------------------*
FORM preview_excel.
SET PROPERTY OF application 'VISIBLE' =
1.
CALL METHOD OF sheet 'PRINTPREVIEW'.
* m
_message.
ENDFORM. "preview_excel
*&---------------------------------------------------------------------
*
*& (12) Form free_object
*&---------------------------------------------------------------------
*
*
释放
object
*----------------------------------------------------------------------*
FORM free_object.
FREE OBJECT font.
FREE OBJECT range.
FREE OBJECT range1.
FREE OBJECT columns.
FREE OBJECT rows.
FREE OBJECT cell.
FREE OBJECT cell1.
FREE OBJECT sheet1.
FREE OBJECT sheet.
FREE OBJECT workbook.
FREE OBJECT application.
ENDFORM. "free_object
*&---------------------------------------------------------------------
*
*& (13) Form close_excel
*&---------------------------------------------------------------------
*
*
关闭
excel
并保存
*----------------------------------------------------------------------*
FORM close_excel.
CALL METHOD OF workbook 'Save'.
CALL METHOD OF workbook 'Close'
EXPORTING
#1 =
0.
CALL METHOD OF application 'Quit'.
ENDFORM. "close_excel
*&---------------------------------------------------------------------
*
*& (14) Form download_excel_fromserver
*&---------------------------------------------------------------------
*
*
从服务器下载
excel
模板
*----------------------------------------------------------------------*
* -->
P_OBJID
模板名称
* -->
P_DEST
存档路径
*----------------------------------------------------------------------*
FORM download_excel_fromserver
USING p_objid LIKE wwwdatatab-objid
p_dest LIKE sapb-sappfad.
DATA: lo_objdata LIKE wwwdatatab,
lo_m
ime LIKE w3mime,
ls_destination LIKE rlgrap-filename,
ls_objnam TYPE string,
li_rc LIKE sy-subrc,
ls_errtxt TYPE string.
CONCATENATE p_objid '.XLS' INTO ls_objnam.
CONDENSE ls_objnam NO-GAPS.
SELECT SINGLE relid objid FROM wwwdata
INTO CORRESPONDING FIELDS OF lo_objdata
WHERE srtf2 =
0
AND relid =
'MI'
AND objid =
p_objid.
IF sy-subrc NE 0 OR lo_objdata-objid EQ space.
CONCATENATE '
模板文件：
' ls_objnam '
不存在，请用
TCODE
：
SMW0
进行加载
' INTO ls_errtxt.
MESSAGE e600(zdev) WIT
H ls_errtxt.
ENDIF.
ls_destination =
p_dest.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
key =
lo_objdata
destination =
ls_destination
IMPORTING
rc =
li_rc.
IF li_rc NE 0.
CONCATENATE '
模板文件：
' ls_objnam '
下载失败
' INTO ls_errt
xt.
MESSAGE e600(zdev) WIT
H ls_errtxt.
ENDIF.
ENDFORM. "download_excel_fromserver
*&---------------------------------------------------------------------*
*& (15) Form open_excel_hide
*&---------------------------------------------------------------------
*
*
后台打开指定的
excel
*----------------------------------------------------------------------*
* -->
P_FILE excel
本地路径
*----------------------------------------------------------------------*
FORM open_excel_hide USING p_file.
SET PROPERTY OF application 'Visible' =
0.
CALL METHOD OF application 'Workbooks' =
workbook.
CALL METHOD OF workbook 'Open' =
workbook
EXPORTING
#1 =
p_file.
CALL METHOD OF workbook 'Worksheets' =
sheet
EXPORTING
#1 =
'Sheet1'.
CALL METHOD OF sheet 'Activate'.
ENDFORM. "open_excel_hide
*&---------------------------------------------------------------------*
*& (16) Form open_excel
*&---------------------------------------------------------------------
*
*
打开指定的
excel
*----------------------------------------------------------------------*
* -->
P_FILE excel
本地路径
*----------------------------------------------------------------------*
FORM open_excel USING p_file.
SET PROPERTY OF application 'Visible' =
1.
CALL METHOD OF application 'Workbooks' =
workbook.
CALL METHOD OF workbook 'Open' =
workbook
EXPORTING
#1 =
p_file.
CALL METHOD OF workbook 'Worksheets' =
sheet
EXPORTING
#1 =
'Sheet1'.
CALL METHOD OF sheet 'Activate'.
ENDFORM. "open_excel
*&---------------------------------------------------------------------* *& (17) Form open_excel_sheet
*&---------------------------------------------------------------------* * 打开指定的excel的sheet
*----------------------------------------------------------------------* * -->P_SHEET 打开的sheet名 * -->P_FILE excel本地路径
*----------------------------------------------------------------------* FORM open_excel_sheet USING p_sheet p_file. SET PROPERTY OF application 'Visible' = 1.
CALL METHOD OF application 'Workbooks' = workbook. CALL METHOD OF workbook 'Open' = workbook EXPORTING #1 = p_file.
CALL METHOD OF workbook 'Worksheets' = sheet EXPORTING #1 = p_sheet.
CALL METHOD OF sheet 'Activate'.
ENDFORM. "open_excel_sheet
*&---------------------------------------------------------------------* *& (18) Form open_excel_by_sheet
*&---------------------------------------------------------------------* * 打开sheet
*----------------------------------------------------------------------* * -->P_SHEET 打开的sheet名
*----------------------------------------------------------------------* FORM open_excel_by_sheet USING p_sheet.
CALL METHOD OF workbook 'WORKSHEETS' = sheet EXPORTING #1 = p_sheet.
CALL METHOD OF sheet 'ACTIVATE'.
ENDFORM. "open_excel_by_sheet
*&---------------------------------------------------------------------* *& (19) Form select_range
*&---------------------------------------------------------------------* * 选择范围
*----------------------------------------------------------------------* * -->P_LEFT 左 * -->P_TOP 上 * -->P_RIGHT 右 * -->P_BUTTOM 下
*----------------------------------------------------------------------* FORM select_range USING p_left TYPE i p_top TYPE i p_right TYPE i p_buttom TYPE i.
CALL METHOD OF application 'CELLS' = cell EXPORTING #1 = p_top #2 = p_left.
CALL METHOD OF application 'CELLS' = cell1 EXPORTING #1 = p_buttom #2 = p_right.
CALL METHOD OF application 'RANGE' = range EXPORTING #1 = cell #2 = cell1.
CALL METHOD OF range 'SELECT'.
ENDFORM. "select_range
*&---------------------------------------------------------------------* *& (20) Form clear_data
*&---------------------------------------------------------------------* * 清除数据
*----------------------------------------------------------------------* * -->P_LEFT 左 * -->P_TOP 上 * -->P_RIGHT 右 * -->P_BUTTOM 下
*----------------------------------------------------------------------* FORM clear_data USING p_left TYPE i p_top TYPE i p_right TYPE i
p_buttom TYPE i.
PERFORM select_range USING p_left
p_top
p_right
p_buttom
.
CALL METHOD OF range 'ClearContents'.
ENDFORM. "clear_data
*&---------------------------------------------------------------------
*
*& (21) Form m
erge_cells
*&---------------------------------------------------------------------
*
*
合并单元格
*----------------------------------------------------------------------*
* -->
P_LEFT text
* -->
P_TOP text
* -->
P_RIGHT text
* -->
P_BUTTOM text
*----------------------------------------------------------------------*
FORM m
erge_cells USING p_left TYPE i
p_top TYPE i
p_right TYPE i
p_buttom TYPE i.
PERFORM select_range USING p_left
p_top
p_right
p_buttom
.
CALL METHOD OF range 'Merge'.
ENDFORM. "m
erge_cells
*&---------------------------------------------------------------------
*
*& (22) Form process_indcator
*&---------------------------------------------------------------------
*
*
进度指示
*----------------------------------------------------------------------*
* -->
TEXT
提示文字
* -->
PERCENTAGE
进度百分比
*----------------------------------------------------------------------*
FORM process_indcator USING text percentage.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage =
percentage
text =
text.
ENDFORM. "process_indcator
*&---------------------------------------------------------------------
*
*& (23) Form delete_row
*&---------------------------------------------------------------------
*
*
删除行
*----------------------------------------------------------------------*
* -->
I_ROW
行号
*----------------------------------------------------------------------*
FORM delete_row USING i_row.
CALL METHOD OF application 'ROWS' =
rows
EXPORTING
#1 =
i_row.
CALL METHOD OF rows 'DELETE'.
ENDFORM. "delete_row
*&---------------------------------------------------------------------
*
*& (24) Form add_comment
*&---------------------------------------------------------------------
*
*
添加注释
*----------------------------------------------------------------------*
* -->
I_ROW
行号
* -->
I_COL
列号
* -->
P_TEXT
注释内容
*----------------------------------------------------------------------*
FORM add_comment USING i_row i_col p_text.
CALL METHOD OF application 'Cells' = cell
EXPORTING
#1 =
i_row
#2 =
i_col.
CALL METHOD OF cell 'AddComment' =
cell1.
CALL METHOD OF cell1 'Text'
EXPORTING
#1 =
p_text.
CALL METHOD OF cell1 'Shape' =
font.
SET PROPERTY OF font 'Width' =
'20'.
SET PROPERTY OF font 'Height' =
'20'.
ENDFORM. "add_comment
*&---------------------------------------------------------
------------*
*&
（
25
）
Form
hide_columns
*&---------------------------------------------------------------------
*
*
隐藏列
*----------------------------------------------------------------------*
* -->
COLNUM
输入列号
*----------------------------------------------------------------------*
FORM hide_columns USING colnum
.
CALL METHOD OF application 'COLUMNS' =
columns
EXPORTING
#1 =
colnum.
SET PROPERTY OF columns 'Hidden' =
'true'.
ENDFORM. "hide_columns
*&---------------------------------------------------------------------
*
*& (26) Form delete_columns
*&---------------------------------------------------------------------
*
*
删除列
*----------------------------------------------------------------------*
* -->
COLNUM
输入列号
*----------------------------------------------------------------------*
FORM delete_columns USING colnum.
CALL METHOD OF application 'COLUMNS' =
columns
EXPORTING
#1 =
colnum.
CALL METHOD OF columns 'DELETE'.
ENDFORM. "delete_columns
*&---------------------------------------------------------------------
*
*&
（
27
）
Form
hide_row
*&---------------------------------------------------------------------
*
*
隐藏行
*----------------------------------------------------------------------*
* -->
I_ROW
输入行号
*----------------------------------------------------------------------*
FORM hide_row USING i_row.
CALL METHOD OF application 'ROWS' =
rows
EXPORTING
#1 =
i_row.
SET PROPERTY OF rows 'Hidden' = 'true'.
ENDFORM. "hide_row
2
注意事项
2.1
Sheet
名称
Sheet
名为中文时，在调用
sheet
对象时往往会调用不到，用英文字母不存在该问题。
2.2
释放对象
程序结束时需要释放对象，否则
Excel
有可能无法关闭。
释放对象代码如下：
FORM free_object.
FREE OBJECT font.
FREE OBJECT range.
FREE OBJECT range1.
FREE OBJECT columns.
FREE OBJECT rows.
FREE OBJECT cell.
FREE OBJECT cell1.
FREE OBJECT sheet1.
FREE OBJECT sheet.
FREE OBJECT workbook.
FREE OBJECT application.
ENDFORM.