SAP万能导出程序.docx

1、SAP万能导出程序SAP万能导出程序Author：SUNZK QQ：1131341075REPORTYMPSRDOWNLOADMESSAGE-IDYMTT.INCLUDEOLE2INCL.INCLUDEZSD_TABLE_DOWNLOAD_TOP.INCLUDEZSD_TABLE_DOWNLOAD_SEL.INCLUDEZSD_TABLE_DOWNLOAD_F01.BUSINESSLOGICSTART-OF-SELECTION.CLEAR:GV_RC,GV_MSG,TABLE_NAMES.PERFORMGET_TABNAMESTABLESTABLE_NAMES.PERFORMCHECK_DAT

2、ATABLESTABLE_NAMESCHANGINGGV_RCGV_MSG.IFGV_RCNE0.MESSAGEGV_MSGTYPESDISPLAYLIKEE.RETURN.ENDIF.IFP_FNAMEISNOTINITIAL.GV_FILENAME=P_FNAME.ENDIF.CALLFUNCTIONDOWNLOAD_TABLEEXPORTINGIM_VKORG=P_VKORGIM_FULLNAME=GV_FILENAMEIMPORTINGE_RC=GV_RCE_MSG=GV_MSGTABLESTABLE_NAMES=TABLE_NAMES.TYPE-POOLS:SLIS.TABLES:D

3、D02T.TYPES:BEGINOFTY_XSLP.INCLUDETYPETVKOT.TYPES:ENDOFTY_XSLP.DATA:GT_VKORGTYPESTANDARDTABLEOFTY_XSLP,GS_VKORGTYPETY_XSLP.DATA:GT_DD02TTYPETABLEOFDD02T,GS_DD02TTYPEDD02T,SHEETNAME(10)VALUE,C_ROWTYPEI,SCNTTYPEI,VAL(20),WB(2),VAL1(20).DATA:EXCELTYPEOLE2_OBJECT,WORKBOOKTYPEOLE2_OBJECT,SHEETTYPEOLE2_OBJ

4、ECT,CELLTYPEOLE2_OBJECT,CELL1TYPEOLE2_OBJECT,COLUMNTYPEOLE2_OBJECT,RANGETYPEOLE2_OBJECT,BORDERSTYPEOLE2_OBJECT,BUTTONTYPEOLE2_OBJECT,INTTYPEOLE2_OBJECT,FONTTYPEOLE2_OBJECT,ROWTYPEOLE2_OBJECT.DATA:APPLICATIONTYPEOLE2_OBJECT,BOOKTYPEOLE2_OBJECT,BOOKSTYPEOLE2_OBJECT.DATA:OLE_BOOKTYPEOLE2_OBJECT.CONSTAN

5、TS:CNS_NUMTYPENVALUE1.DATA:table_namesTYPESTANDARDTABLEOFDD02L,TABLE_NAMETYPEDD02L.DATA:GV_RCTYPECHAR01,GV_MSGTYPECHAR255.DATA:GV_FILENAMETYPESTRING.SELECTION-SCREENBEGINOFBLOCKblk_paramsWITHFRAMETITLEtext-001.PARAMETERS:p_fnameLIKErlgrap-filenameOBLIGATORY.PARAMETERS:p_vkorgLIKEgs_vkorg-vkorg.SELEC

6、T-OPTIONS:s_tabFORdd02t-tabnameNOINTERVALS.SELECTION-SCREENENDOFBLOCKblk_params.DATA:fnameLIKEp_fname.ATSELECTION-SCREENONVALUE-REQUESTFORP_fname.PERFORMfrm_f4_fnameUSINGP_fname.*&-*&包含ZSD_TABLE_DOWNLOAD_F01*&-*FORMCREATE_EXCEL.CREATEOBJECTEXCELEXCEL.APPLICATION.IFSY-SUBRCNE0.WRITE:/没有EXCEL表格被创建！.ST

7、OP.ENDIF.SETPROPERTYOFEXCELDisplayAlerts=0.CALLMETHODOFEXCELWORKBOOKS=WORKBOOK.*PutExcelinbackground*IFp_exvisEQX.*SETPROPERTYOFexcelVISIBLE=1.*ELSE.*SETPROPERTYOFexcelVISIBLE=0.*ENDIF.*CreateworksheetSETPROPERTYOFEXCELSheetsInNewWorkbook=1.CALLMETHODOFWORKBOOKADD.ENDFORM.CREATE_EXCEL*&-*&FormSAVE_B

8、OOK*&-*text*-*-p1text*p1text*we*-*FORMBORDERUSINGWE.*leftCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=1.SETPROPERTYOFBORDERSLineStyle=1.SETPROPERTYOFBORDERSWEIGHT=WE.4=maxFREEOBJECTBORDERS.*rightCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=2.SETPROPERTYOFBORDERSLineStyle=2.SETPROPERTYOFBORDERSWEIGHT=WE.

9、FREEOBJECTBORDERS.*topCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=3.SETPROPERTYOFBORDERSLineStyle=3.SETPROPERTYOFBORDERSWEIGHT=WE.FREEOBJECTBORDERS.*bottomCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=4.SETPROPERTYOFBORDERSLineStyle=4.SETPROPERTYOFBORDERSWEIGHT=WE.*setpropertyofbordersColorIndex=xlAutom

10、atic.FREEOBJECTBORDERS.ENDFORM.border*-*FORMborder2*-*.*-*-we*-*FORMBORDER2USINGWE.*leftCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=1.SETPROPERTYOFBORDERSLineStyle=5.SETPROPERTYOFBORDERSWEIGHT=WE.4=maxFREEOBJECTBORDERS.*rightCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=2.SETPROPERTYOFBORDERSLineStyle=6

11、.SETPROPERTYOFBORDERSWEIGHT=WE.FREEOBJECTBORDERS.*topCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=3.SETPROPERTYOFBORDERSLineStyle=7.SETPROPERTYOFBORDERSWEIGHT=WE.FREEOBJECTBORDERS.*bottomCALLMETHODOFCELLBORDERS=BORDERSEXPORTING#1=4.SETPROPERTYOFBORDERSLineStyle=8.SETPROPERTYOFBORDERSWEIGHT=WE.*setpropertyofbordersColorIndex=xlAutomatic.FREEOBJECTBORDERS.ENDFORM.border2*-*FORMborder3*-*.*-