Delphi 使用动态方法创建的excel（国外英文资料）.docVIP

Delphi 使用动态方法创建的excel（国外英文资料） 1) use dynamically created methods First, create the Excel object, using ComObj: Var ExcelApp: Variant; ExcelApp: = CreateOleObject ( Excel. Application ); 1) displays the current window: Excelapp.visible: = True 2) change the Excel title bar: Excelapp.caption: = Microsoft Excel from the application. 3) adding a new workbook: ExcelApp. WorkBooks. Add; 4) open the existing workbook: The ExcelApp. WorkBooks. Open ( C: \ Excel \ dem.xls); 5) set the 2nd worksheet for the active worksheet: ExcelApp. WorkSheets [2]. Activate; or Excels.workssheets [ Sheet2 ]. 6) assign values to the cell: The excels.cells [1, 4].value: = the fourth column of the first line; 7) set the width of the specified column (units: number of characters), in the first instance: ExcelApp. 8) set the height of the specified line (unit: pound) (1 pound = 0.035 cm), in the second act: ExcelApp. ActiveSheet. / / 1 centimeter 9) insert the pagination character before line 8: ExcelApp. WorkSheets [1]. PageBreak: = 1; 10) delete the pagination before column 8: ExcelApp. 11) specify border line width: ExcelApp. ActiveSheet. Range [ B3: D4 ].borders [2]. 1-2 - left bottom of the top 3-4-5 - oblique (\) 6 - (/) 12) clear the fourth column cell formula of the first row: ExcelApp. ActiveSheet. 13) set the first line of font properties: ExcelApp. ActiveSheet. ExcelApp. ActiveSheet. ExcelApp. ExcelApp. 14) do the page setting: A. the header: ExcelApp. Activesheetsetup.centerheader: = report demo; B. the footer: ExcelApp. Activesheetsetup.centerfooter: = first P; C. header to the top edge of 2cm: Excel.actives.pagesetup.headermargin: = 2/0.035; The bottom edge of the footer is 3cm: Excel.actives.pagesetup.headermargin: = 3/0.035; E. top margin 2 cm: Excelapp.activesheet. TopMargin: = 2/0.035; F. bottom 2 cm: ExcelApp.activesheet. G. the left margin, 2 cm: ExcelApp. ActiveSheet. PageSetup. LeftMargin: = 2/0.035; H. the right margin 2 cm: ExcelApp. ActiveSheet. RightMargin: = 2/0.035;