OLE-DB 操作excel 基本
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.
OLE-DB 操作excel 基本的更多相关文章
- 使用OLE DB读写Excel
说明: 使用这种技术的好处是无需引用对象,坏处是无法处理类似合并单元格这样的复杂情况 一些更新: 为了使用Office 2010,需要安装Microsoft Access 2010 数据库引擎可再发行 ...
- Delphi中使用OLE方法操作Excel
首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( ′Excel.Application′ ); 注 ...
- VS2010 C++ 操作Excel表格的编程实现
转载请注明原文网址: http://www.cnblogs.com/xianyunhe/archive/2011/09/25/2190485.html 通过VC实现对Excel表格的操作的方法有多种, ...
- Microsoft OLE DB Provider for SQL Server 错误 '80040e21'
我的是因为数据库满了,正在向服务商申请增加数据库容量 原文地址:Microsoft OLE DB Provider for SQL Server 错误 '800作者:欧阳IT记事本 昨天打开网站还正常 ...
- 微软BI 之SSIS 系列 - 通过 OLE DB 连接访问 Excel 2013 以及对不同 Sheet 页的数据处理
文章更新历史 2014年9月7日 - 加入了部分更新内容,在文章最后提到了关于不同 Office Excel 版本间的连接问题. 开篇介绍 这篇文章主要总结在 SSIS 中访问和处理 Excel 数据 ...
- 使用Win32::OLE操作Excel——Excel对象模型
像VBA操作Excel一样,Win32::OLE模块也是通过对象操作来控制Excel. 如果想自动化操作和控制Excel应用程序,则必须要与Excel对象模型所提供的对象进行交互.理解和熟悉Excel ...
- OLE操作Excel编译错误处理
Excel在公司用的很多,而这个东西我用的不是很好,就想用程序来处理,遇到很多错误.这几天研究了下OLE操作Excel.环境:VS2008 SP1+Excel 2007 加入OLE Type Li ...
- 21. 无法执行该操作，因为链接服务器”Server_202”的 OLE DB 访问接口 “SQLNCLI10″ 无法启动分布式事务”
无法执行该操作,因为链接服务器”Server_202”的 OLE DB 访问接口 “SQLNCLI10″ 无法启动分布式事务” 原因:调用存储过程的方式有问题,必须用JDBC方式调用存储过程才可以正常 ...
- 无法执行该操作，因为链接服务器 "xxxxx" 的 OLE DB 访问接口 "SQLNCLI" 无法启动分布式事务
在存储过程中使用事务,并且使用链接服务器时,报类似下面的错误 链接服务器"****"的 OLE DB 访问接口 "SQLNCLI10" 返回了消息 " ...
- SSIS 抽取excel出错：所请求的 OLE DB 访问接口 Microsoft.ACE.OLEDB.12.0 尚未注册
如果是安装的office2010就要装这个,如果是2007就不用装! http://download.microsoft.com/download/7/0/3/703ffbcb-dc0c-4e19-b ...
随机推荐
- Linux字符设备驱动
一.字符设备基础 字符设备 二.字符设备驱动与用户空间访问该设备的程序三者之间的关系 三.字符设备模型 1.Linux内核中,使用 struct cdev 来描述一个字符设备 动态申请(构造)cdev ...
- springmvc的讲解
概述 继 Spring 2.0 对 Spring MVC 进行重大升级后,Spring 2.5 又为 Spring MVC 引入了注解驱动功能.现在你无须让 Controller 继承任何接口,无需在 ...
- servlet的含义和作用
servle(Server Applet):全称Java Servlet,未有中文译文.是用Java编写的服务器端程序.其主要功能在于交互式地浏览和修改数据,生成动态Web内容.狭义的Servlet是 ...
- java listener实现定时任务
使用java ServletContextListener 实现各种简单定时任务. 1. 创建ServletContextListener,在3.0版本的web.xml中不再需要添加listener的 ...
- SQL从入门到基础–08 Union、Union all及案例
一.联合结果集 1. 简单的结果集联合: Select FNumber,FName,FAge from T_Employee union select FidCardNumber,FName,FAge ...
- Java system.getproperty获取环境属性
序号 属性 说明 1 java.version Java 运行时环境版本 2 java.vendor Java 运行时环境供应商 3 java.vendor.url Java 供应商的 URL 4 j ...
- 成员函数的const不能被修改，包括指针
#include <iostream> class A { private: std::string a; public: A(std::string b) :a(b){} const c ...
- poj1127 Jack Straws(线段相交+并查集)
转载请注明出处: http://www.cnblogs.com/fraud/ ——by fraud Jack Straws Time Limit: 1000MS Memory L ...
- CentOS（Linux） - SVN使用笔记（一） - 安装SVN过程及开启和关闭svn服务指令
1.安装: yum install httpd httpd-devel subversion mod_dav_svn mod_auth_mysql yum remove subversion 删除旧版 ...
- 开放GitHub的理由
越来越多的程序把sourcecode和安装包托管到GitHub上,没有GitHub访问的网络太悲催了... 想通过Chocolatey(windows版的apt-get)装一个ConEmu都无法做到 ...