发布时间:2025-10-15 18:08:18    次浏览
SAP如何手动建立EXCEL数据模板FORMFRM_BUILD_TEMPLET.DATAl_linesTYPEi.DATA:lt_extabTYPESTANDARDTABLEOFchar2048,l_zdmsTYPEstring,l_txsmTYPEstring.CASEp_czlx.WHEN'02'.CONCATENATE '人员编号' '开始时间' '结束时间' '薪资范围' '工资管理员' INTO l_zdms SEPARATED BY cns_tab.CONCATENATE '人员编号8位代码' '开始时间8位代码' '结束时间8位代码' '薪资范围2位代码' '工资管理员3位代码'INTO l_txsm SEPARATED BY cns_tab.l_lines = '5'.WHEN OTHERS.* MESSAGE '无导出模式模板!' TYPE 'I'.MESSAGE e807(z02) WITH p_czlx.ENDCASE.* 把用tab键分割的值放到t值table中APPEND l_zdms TO lt_extab.APPEND l_txsm TO lt_extab.* 下载excel模板PERFORM frm_download_template TABLES lt_extab USING l_lines.ENDFORM. ' FRM_BUILD_TEMPLET*---------------------------------------------------------------------** Form FRM_DOWNLOAD_TEMPLATE*---------------------------------------------------------------------** text*----------------------------------------------------------------------** --P_LT_EXTAB text* --P_L_LINES text*----------------------------------------------------------------------* FORM frm_download_template TABLES t_values USING u_ln.DATA: l_ret TYPE i.DATA: ls_range TYPE ole2_object .DATA: l_frow TYPE i,l_fcol TYPE i,l_trow TYPE i,l_tcol TYPE i.* 清空ole相关变量PERFORM frm_clear_ole_variant.* 创建Excel应用程序PERFORM frm_create_application.* 设置可以显示SET PROPERTY OF g_excel 'VISIBLE' = 1.PERFORM frm_err_hdl USING '无法设置excel表格显示'(m02).* 得到所有workbookCALL METHOD OF g_excel 'Workbooks' = g_workbooks.PERFORM frm_err_hdl USING '无法得到workbooks'(m02).* 由于是新文档,天就爱一个新的workbookCALL METHOD OF g_workbooks 'Add' = g_workbook.PERFORM frm_err_hdl USING '无法添加一个workbook'(m02).* 设置所有单元格为text格式CALL METHOD OF g_excel 'Range' = ls_rangeEXPORTING #1 = cns_column_range .PERFORM frm_err_hdl USING '无法选择范围A:IV'(m02).* 设置所有单元格格式为文本SET PROPERTY OF ls_range 'NumberFormatLocal' = '@'.PERFORM frm_err_hdl USING '无法设置单元格格式为文本'(m02).* 打开默认SheetPERFORM frm_open_excel_sheetUSING 'Sheet1'.* 设置Excel填充值的行列坐标l_frow = 1.l_fcol = 1.l_trow = 2.l_tcol = u_ln.* 复制数据到excel表格PERFORM frm_copy_to_excelTABLESt_valuesUSINGl_frowl_fcoll_trowl_tcolCHANGINGl_ret.* 清空ole相关变量PERFORM frm_clear_ole_variant.ENDFORM. 'frm_down