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 ...
随机推荐
- 【iOS开发之OC和JS互调】
1.OC中调用JS代码 公司的移动端需要加载一个现有的网页,并且要在原网页要做一些小的调整,如将网页的标题改一下加载到手机的app上,此时就可以在app的oc代码中加入JS代码来实现.如下例子,我要加 ...
- （三）一个工作任务引起的乱战——udp通信
先上代码.该代码是在问度娘的过程中搜到的,自己实验运行了下,可以使用(vs2010 net fram4.0).服务端代码: using System;using System.Collections ...
- android上line-height的问题
关于line-height大家应该非常熟悉了吧,就是用来做垂直居中的,屡试不爽,基本上没有什么问题,但是最近一个项目,测试提了一个bug,看图吧. 从别处窃的图,这个问题只有安卓上才能复现,做了dem ...
- Aspose.Cells for .NET 8.5.0 工具类
基于 Aspose.Cells for .NET 8.5.0 工具类, Aspose.Cells for .NET 8.5.0 这个自己去CSDN下载里面有破解的,没有破解的导出excel的时候会(A ...
- 为什么子线程不能做UI操作
在子线程中是不能进行UI 更新的,而可以更新的结果只是一个幻像:因为子线程代码执行完毕了,又自动进入到了主线程,执行了子线程中的UI更新的函数栈,这中间的时间非常的短,就 让大家误以为分线程可以更新U ...
- Android小试牛刀之遇到的问题
1.运行出错 创建项目时没有使用Empty Activity,创建. 2.创建第一个工程 选择Empty Activity才会自动创建Hello Word代码块 3.appcompat_v7的说明 在 ...
- Collection使用方法
package cn.stat.p3.conection.demo; import java.util.ArrayList; import java.util.Collection; import j ...
- 莫队算法学习笔记【BZOJ2038：小Z的袜子】【SPOJ3267：D-query】
很久以前傻乎乎地看来源奇怪的资料的时候被各种曼哈顿弄晕了. 然后现在学会的是分块方法.另新创一个分块方法. 让我们考虑这样一个区间询问问题…… 它有如下的性质: 0,n个数,Q个询问. 1,它没有修改 ...
- 自定义 Preference Header 布局
1. Preference Header 概述: 对于什么是 Preference Header,以及何时使用 Preference Header,请参考我的另一篇博文: 何时使用 Preferenc ...
- AJAX 跨域
1.说到ajax就会遇到的两个问题 1.1AJAX以何种格式来交换数据 1.自定义字符串 2.XML描述 3.JSON描述(建议使用) 1.2如 ...