第一篇：OLE對EXCEL操作總結

方法用例

*&-------* *& 本程序總結了常用的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_message.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 mask = ',*.*.' mode = 'O' title = text-f01 IMPORTING filename = 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 mask = ',*.xls,*.xls.' mode = 'S' title = text-f02 IMPORTING filename = 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.PERFORM create_excel.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.“demo_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 列號,可以為單個列或是多個列 *-->WIDTH 列寬值

*--------* 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 columns '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 www.tmdps.cnment *&-------* * 添加注釋

*--------* *-->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.

第二篇：SAP ABAP OLE操作EXCEL小結

ABAP直接操作EXCEL實現數據處理。這里是用OLE實現操作EXCEL的。現在還有 DOI操作EXCEL等方法。以后用到再做介紹。此處不是直接生成EXCEL文件，而是從 服務器已經上傳的EXCEL模板中下載模板然后打開修改實現數據保存。也可以直接創建 新的EXCEL文件往里面傳遞數據并設置格式。這里不做介紹。

1.采用模板文件實現。上傳EXCEL模板 T-code：SMW0

注意選擇的是binary data(對于EXCEL模版上傳)如果是HTML上傳，對于存于www.tmdps.cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4.IF lc_fullpath = ''.MESSAGE '不能打開excel' TYPE 'E'.ENDIF.IF sy-subrc = 0.p_dest = lc_fullpath.* 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.“先嘗試取一下，接著檢查是否取到制定模版問件 *檢查表wwwdata中是否存在所指定的模板文件

IF sy-subrc NE 0 OR lo_objdata-objid EQ space.“如果不存在，則給出錯誤提示

CONCATENATE '模板文件' ls_objnam '不存在' INTO ls_errtxt.MESSAGE ls_errtxt TYPE 'I'.ENDIF.ls_destination = p_dest.”保存路徑

*如果存在，調用DOWNLOAD_WEB_OBJECT 函數下載模板到路徑下

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_errtxt.MESSAGE ls_errtxt TYPE 'E'.ENDIF.fname = ls_destination.ENDIF.ENDFORM.“fm_excel

3.下載完模板后，打開模板文件，填入數據 DATA: EXCEL TYPE ole2_object, WORKBOOK TYPE ole2_object, SHEET TYPE ole2_object.CREATE OBJECT excel 'EXCEL.APPLICATION'.”Create EXCEL OBJECT IF sy-subrc NE 0.EXIT.ENDIF.SET PROPERTY OF excel 'Visible' = 0.“1/0 是否顯示EXCEL CALL METHOD OF excel 'Workbooks' = workbook.CALL METHOD OF workbook 'Open' EXPORTING #1 = fname..”打開上面下載路徑下的excel文件

CALL METHOD OF excel 'Sheets' = sheet EXPORTING #1 = 1.CALL METHOD OF sheet 'Select'.CALL METHOD OF sheet 'ACTIVATE'.“sheet 激活 DATA SHEETNAME TYPE STRING.SHEETNAME = 'TESTTESTTEST'.SET PROPERTY OF sheet 'NAME' = sheetname.“設定sheet名稱 *此處假設內表itab 中已經存在需要寫入excel中的數據 *并且假如從模板的第7行開始插入數據 DATA ITAB LIKE STANDARD TABLE OF SFLIGHT.DATA WA LIKE SFLIGHT.DATA: TAB TYPE I,BOD(5)TYPE C.SELECT * INTO TABLE ITAB FROM SFLIGHT UP TO 8 ROWS.LOOP AT itab INTO wa.tab = sy-tabix + 6.*在excel中插入一行

PERFORM excel_row_insert USING sheet tab 1.*填充所插入行的每個單元格的數據

PERFORM fill_range USING tab 1 wa-t01.PERFORM fill_range USING tab 2 wa-t02.PERFORM fill_range USING tab 3 wa-t03.PERFORM fill_range USING tab 4 wa-t04.PERFORM fill_range USING tab 5 wa-t05.PERFORM fill_range USING tab 6 wa-t06.ENDLOOP.*設置EXCEL中所插入的數據行邊框線格式為黑色有邊框

bod = tab.CONDENSE bod NO-GAPS.CONCATENATE 'A6:F' bod INTO bod.PERFORM borderrange USING excel bod.PERFORM sub_excel_save.“保存excel數據

*&-------* *& Form sub_excel_save *&-------* * text *--------* FORM sub_excel_save.GET PROPERTY OF excel 'ActiveSheet' = sheet.“獲取活動SHEET FREE OBJECT sheet.FREE OBJECT workbook.GET PROPERTY OF excel 'ActiveWorkbook' = workbook.CALL METHOD OF workbook 'SAVE'.SET PROPERTY OF excel 'Visible' = 1.”是否顯示EXCEL 此處顯示不退出 * SET PROPERTY OF excel 'Visible' = 1.* CALL METHOD OF workbook 'CLOSE'.* CALL METHOD OF excel 'QUIT'.注釋部分為不顯示直接退出 FREE OBJECT sheet.FREE OBJECT workbook.FREE OBJECT excel.ENDFORM.“save_book

*&-------* *& 向excel中的指定行插入N行

*&-------* FORM excel_row_insert USING lcobj_sheet lc_row lc_count.DATA lc_range TYPE ole2_object.DATA h_borders TYPE ole2_object.DO lc_count TIMES.CALL METHOD OF lcobj_sheet 'Rows' = lc_range EXPORTING #1 = 6.CALL METHOD OF lc_range 'Copy'.“COPY第6行插入一個新行

CALL METHOD OF lcobj_sheet 'Rows' = lc_range EXPORTING #1 = lc_row.CALL METHOD OF lc_range 'Insert'.CALL METHOD OF lc_range 'ClearContents'.”是否需要清空Cell ENDDO.ENDFORM.“excel_row_insert *&-------* *& Form fill_range *&-------* * text 填充EXCEL 單元格

*--------* *-->VALUE(F_ROW)text *-->VALUE(F_COL)text *-->VALUE(F_VALUE)text *--------* FORM fill_range USING value(f_row)value(f_col)value(f_value).DATA: row TYPE i, col TYPE i.row = f_row.col = f_col.CALL METHOD OF excel 'CELLS' = cell EXPORTING #1 = row #2 = col.SET PROPERTY OF cell 'VALUE' = f_value.ENDFORM.”fill_range *&-------* *& Form borderrange *&-------* * text：設置EXCEL中所插入的數據行邊框線格式 *--------* *-->LCOBJ_EXCEL text *-->RANGE text *--------* FORM borderrange USING lcobj_excel range.DATA: lc_cell TYPE ole2_object , lc_borders TYPE ole2_object.CALL METHOD OF lcobj_excel 'RANGE' = lc_cell EXPORTING #1 = range.DO 4 TIMES.CALL METHOD OF lc_cell 'BORDERS' = lc_borders EXPORTING #1 = sy-index.SET PROPERTY OF lc_borders 'LineStyle' = '1'.SET PROPERTY OF lc_borders 'WEIGHT' = 2.“4=max SET PROPERTY OF lc_borders 'ColorIndex' = '1'.ENDDO.FREE OBJECT lc_borders.FREE OBJECT lc_cell.ENDFORM.”borderrange

暫時只用到了這么多，還有ABAP設置EXCEL字體，對齊方式等功能。什么時候用到了再 做研究。希望對大家有所幫助。

第三篇：ABAP使用OLE方法總結

SAP ABAP OLE 操作EXCEL小結

ABAP直接操作EXCEL實現數據處理。這里是用OLE實現操作EXCEL的。現在還有

DOI操作EXCEL等方法。以后用到再做介紹。此處不是直接生成EXCEL文件，而是從

服務器已經上傳的EXCEL模板中下載模板然后打開修改實現數據保存。也可以直接創建

新的EXCEL文件往里面傳遞數據并設置格式。這里不做介紹。

1.采用模板文件實現。上傳EXCEL模板

T-code：SMW0 WebRFC 的二進制數據 包：MI

點擊

模板數據保存在系統表www.tmdps.cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4.IF lc_fullpath = “".MESSAGE ”不能打開excel“ TYPE ”E“.ENDIF.IF sy-subrc = 0.p_dest = lc_fullpath.* 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.*檢查表wwwdata中是否存在所指定的模板文件

IF sy-subrc NE 0 OR lo_objdata-objid EQ space.“如果不存在，則給出錯誤提示

CONCATENATE ”模板文件“ ls_objnam ”不存在“ INTO ls_errtxt.MESSAGE ls_errtxt TYPE ”I“.ENDIF.ls_destination = p_dest.”保存路徑

*如果存在，調用DOWNLOAD_WEB_OBJECT 函數下載模板到路徑下

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_errtxt.MESSAGE ls_errtxt TYPE ”E“.ENDIF.fname = ls_destination.ENDIF.ENDFORM.”fm_excel

3.下載完模板后，打開模板文件，填入數據

CREATE OBJECT excel “EXCEL.APPLICATION”.“Create EXCEL OBJECT IF sy-subrc NE 0.EXIT.ENDIF.SET PROPERTY OF excel ”Visible“ = 0.”1/0 是否顯示EXCEL

CALL METHOD OF excel “Workbooks” = workbook.CALL METHOD OF workbook “Open” EXPORTING #1 = fname..“打開上面下載路徑下的excel文件

CALL METHOD OF excel ”Sheets“ = sheet EXPORTING #1 = 1.CALL METHOD OF sheet ”Select“.CALL METHOD OF sheet ”ACTIVATE“.“sheet 激活

SET PROPERTY OF sheet ”NAME“ = sheetname.“設定sheet名稱

*此處假設內表itab 中已經存在需要寫入excel中的數據

*并且假如從模板的第7行開始插入數據

LOOP AT itab INTO wa.tab = wa-tabix + 6.*在excel中插入一行

PERFORM excel_row_insert USING sheet tab 1.*填充所插入行的每個單元格的數據

PERFORM fill_range USING tab 1 wa-t01.PERFORM fill_range USING tab 2 wa-t02.PERFORM fill_range USING tab 3 wa-t03.PERFORM fill_range USING tab 4 wa-t04.PERFORM fill_range USING tab 5 wa-t05.PERFORM fill_range USING tab 6 wa-t06.ENDLOOP.*設置EXCEL中所插入的數據行邊框線格式為黑色有邊框

bod = tab.CONDENSE bod NO-GAPS.CONCATENATE ”A6:F“ bod INTO bod.PERFORM borderrange USING excel bod.PERFORM sub_excel_save.”保存excel數據

*&-------* *& Form sub_excel_save *&-------* * text *--------* FORM sub_excel_save.GET PROPERTY OF excel “ActiveSheet” = sheet.“獲取活動SHEET

FREE OBJECT sheet.FREE OBJECT workbook.GET PROPERTY OF excel “ActiveWorkbook” = workbook.CALL METHOD OF workbook “SAVE”.SET PROPERTY OF excel “Visible” = 1.“是否顯示EXCEL 此處顯示不退出

* SET PROPERTY OF excel ”Visible“ = 1.* CALL METHOD OF workbook ”CLOSE“.* CALL METHOD OF excel ”QUIT“.注釋部分為不顯示直接退出

FREE OBJECT sheet.FREE OBJECT workbook.FREE OBJECT excel.ENDFORM.”save_book

*&-------* *& 向excel中的指定行插入N行

*&-------* FORM excel_row_insert USING lcobj_sheet lc_row lc_count.DATA lc_range TYPE ole2_object.DATA h_borders TYPE ole2_object.DO lc_count TIMES.CALL METHOD OF lcobj_sheet “Rows” = lc_range EXPORTING #1 = 6.CALL METHOD OF lc_range “Copy”.“COPY第6行插入一個新行

CALL METHOD OF lcobj_sheet “Rows” = lc_range EXPORTING #1 = lc_row.CALL METHOD OF lc_range “Insert”.CALL METHOD OF lc_range “ClearContents”.“是否需要清空Cell ENDDO.ENDFORM.”excel_row_insert

*&-------* *& Form fill_range *&-------* * text 填充EXCEL 單元格

*--------* *-->VALUE(F_ROW)text *-->VALUE(F_COL)text *-->VALUE(F_VALUE)text *--------* FORM fill_range USING value(f_row)value(f_col)value(f_value).DATA: row TYPE i, col TYPE i.row = f_row.col = f_col.CALL METHOD OF excel “CELLS” = cell EXPORTING #1 = row #2 = col.SET PROPERTY OF cell “VALUE” = f_value.ENDFORM.“fill_range

*&-------* *& Form borderrange *&-------* * text：設置EXCEL中所插入的數據行邊框線格式

*--------* *-->LCOBJ_EXCEL text *-->RANGE text *--------* FORM borderrange USING lcobj_excel range.DATA: lc_cell TYPE ole2_object , lc_borders TYPE ole2_object.CALL METHOD OF lcobj_excel ”RANGE“ = lc_cell EXPORTING #1 = range.DO 4 TIMES.CALL METHOD OF lc_cell ”BORDERS“ = lc_borders

EXPORTING #1 = sy-index.SET PROPERTY OF lc_borders ”LineStyle“ = ”1“.SET PROPERTY OF lc_borders ”WEIGHT“ = 2.”4=max SET PROPERTY OF lc_borders “ColorIndex” = “1”.ENDDO.FREE OBJECT lc_borders.FREE OBJECT lc_cell.ENDFORM."borderrange

暫時只用到了這么多，還有ABAP設置EXCEL字體，對齊方式等功能。什么時候用到了再

做研究。希望對大家有所幫助。

第四篇：操作總結

一：選股

基本面+行業+政策扶持+股價+形態

主要注意事項：

1：選擇有資金關注的股

2：籌碼集中度高的股

3：均線排列形態良好

4：指標多頭或則將要多頭

二：操作

操作上要注意大盤是否適合操作來決定，減少操作的隨意性，考慮到交易成本，高頻操作是否合適。

主要以中線持股，中短結合，波段操作，盤中有機會可以適當T+0，降低持股成本。

盤中熱點盤塊個股啟動時，可以利用短線資金適當參與，要參與龍頭股，給機會就參與，不給機會就放棄，堅決不追高。

注意板快輪動。

止損和止贏（浮動）

三金叉買入法，五線順上第一陽買入，討飯線持股法，平臺突破買入法。

三：復盤

對當天領漲板塊和領跌板塊重點分析，特別是龍頭股。形態好的個股 在底部啟動的要重點關注，如果有成交量放出，就可以放入自選股。

信息的收集和解讀，找出相關個股，編譯成自己的股票資料冊。

四：指標類

MACDVOLKDJOBV

五：細節問題

K線組合形態，MACD強勢，KDJ形態，OBV背離，量價配合。盤感，經典分時和經典K線組合。

做自己熟悉的個股，股性是否活躍，市場的認可度等因素結合起來，做到手中有股，心中無股，心態和行動要知行合一，不貪婪，不恐懼，紀律是在股市生存的第一原則。

第五篇：數控車床對刀操作

《數控車床對刀操作》說課稿

各位評委老師好：

今天我說課的題目是《數控車床對刀操作》，下面我將從教材，教法，學法，教學過程等幾個方面來說這節課。

一、說教材

1、教材內容：

《數控車床加工工藝與編程操作》這門課程是以培養和提高學生在數控加工過程中的工藝分析能力以及能夠對中等復雜程度零件進行手工編程為目的進行編寫的。數控車床對刀操作章節是學習本門課程的重點內容，要求學生能夠熟練掌握對刀的基本概念，對刀的基本方法，學會試切對刀的基本操作要領。

前面我們學習的華中世紀星數控車床操作面板組成部分的內容，已熟悉各按鍵的作用。能夠熟練應用，本節課在此基礎上講述對刀的基本概念，對刀的基本方法及試切對刀的基本操作要領。將為后期實訓課題奠定基礎。因此，學習并熟練掌握對刀的基本方法及試切對刀的基本操作要領是十分重要的。

2、教學目標

結合本課特點和學生的實際情況，我將本課的教學目標確定如下：

1）知識目標

對刀的基本概念，對刀的基本方法，試切對刀的方法要領。2）能力目標

熟練試切對刀的方法要領，能正確測量并設置刀偏值。培養學生運用所學知識解決問題的能力。提高學生動手操作能力。

3）情感目標

通過引導學生參與解決問題的過程，使學生體驗成功的感受，激發學生的學習熱情，增強學生自信心。通過動手操作，讓學生懂得實踐出真知的真理。

3、教學重難點

根據教學目標及在以往的教學過程中，學生普遍反映存在以下的問題：

1、對數控機床的操作面板不熟悉，記不住刀偏表位置，不知道從何下手；

2、有的同學試切之后不知道該往哪個方向退刀，出現對刀坐標值錯誤的情況。針對這些情況，指定以下重難點：

教學重點：

1、掌握對刀的基本概念

2、掌握試切法對刀的基本方法 教學難點：試切法對刀的過程及其基本方法

在教學過程中，將通過理論講述和教學演示的方法突出重點，通過教學演示的方法突破難點。

二、教法分析

考慮到我所帶班級學生的特點，基礎知識薄弱，缺乏良好的學習習慣等因素。我在本節課教學中，主要采用了啟發提問法、演示法、小組討論法等多種教學方法。現場實踐操作；教師針對數控機床的操作面板進行講解，留給學生足夠的時間來熟悉、操作機床，由學生進行現場實踐操作，以培養學生的實踐動手能力。在實習時遇到問題引導他們開動腦筋，積極思考，鼓勵同學們之間展開激烈的討論，可以加深學生對數控加工的理解和提高學習的興趣。

三、說學法

在教學過程中，必須使學生認識到自己的主體作用。在設計學習方法時，我結合目前中職生認識事物的特點，本課指導學生采用自主學習和協作學習等方法，幫助學生在不斷探索，不斷交流、不斷評價中自然達成學習目標，轉變學習方式，提高學習能力。自主學習意在于培養學生自主探究的能力，例如：要求學生自行總結對刀的規律性，2

經常會出現的問題，小組成員之間互相交流，便于學生記憶。啟發學生自主學習，自主探究。協作學習意在培養學生的合作交流能力以及團隊合作的意識，例如：學生反映對刀操作步驟繁瑣，將學生分為5人一組，自由選擇尺寸進行對刀，分組討論，寫出經常易錯誤的地方，然后自由討論并實踐操作的方式將問題解決，老師加以解釋。從中發現問題加深學生的印象。

四、教學過程

1、復習舊課，導入新課（采用啟發提問和演示觀察法）

通過觀察實訓車間數控車床，提出問題：

1）華中世紀星數控車床面板由哪幾部分組成？學生回答。2）各部分有什么功能？學生回答。

此時我則提問對刀操作怎么完成呢？這樣，自然而然，就引出所要講授的新內容----數控車床對刀操作（采用“啟發提問和觀察法”導入新課，不僅可以復習前面的內容而且還抓住學生對新知識的好奇心理，充分調動學生的注意力。）

2、講授新課（演示法和分組討論法）這節課講解三部分內容。第一部分教師講解(講解法)通過理論講解讓同學們對數控對刀的概念，對刀的方法，對刀的必要性有一定的了解。

第二部分教師邊示范邊講解（演示法）

指導教師在機床操作面板上面對數控對刀的整個過程進行操作，讓同學們對于對刀有個直觀的了解，并記下對刀所要求的操作步驟有哪些，會出現的問題有哪些。第三部分應用練習（小組討論法）

將學生分為八組（學生分組時，好、中、差搭配），各組進行比賽。通過對刀訓練，主要是檢驗學生對本節課知識的掌握程度。我在 3

此期間，可做巡回指導。練習完成之后我則給予評價和總結，這樣學生的成就感便得到了肯定。本節課我安排在數控車間，采用了機床實際操作與電腦仿真同時進行的方法。目的是為了增強學生的感性認識、加深對知識的理解和記憶、激發學生的學習興趣、培養學生實踐操作的能力。

3、小結：

總結本節課的重點和難點，評價學生對知識的掌握情況，并指出在編程及操作中應該注意的問題。

利用幾分鐘時間總結本節課的內容，再次強調本課的重難點，要求學生課后一定要花時間消化，復習，對于需要記憶的一定要記憶并指出操作中一定要注意的問題。同時留出問題：內孔對刀怎么對？刀具怎么安裝，操作過程中要注意哪些問題？要求學生課后思考，為下節課做好鋪墊。4.布置作業

要求學生編寫一段簡單的零件加工程序，要求程序書寫一定要規范，并且要將自己寫的程序輸入機床，對刀之后進行加工。

五、板書設計

1、對刀的基本概念

2、刀具的裝夾

3、對刀的基本方法

4、外圓刀試切法對刀示范講解

5、機床的清潔與保養

六、教學反思

本節課內容，我在數控10（1）班已上過，在教學的過程中，我發現對刀步驟學生有點暈，有的同學試切之后不知道該往哪個方向退刀。其次，在上課環節中，給學生反復練習的時間有點少。