Excelid.WorkSheets[1].Cells[2,1].Value := '组别编号'; Excelid.WorkSheets[1].Cells[2,2].Value := '公司编号'; Excelid.WorkSheets[1].Cells[2,3].Value := '组别名称'; Excelid.worksheets[1].Range['A1:c1'].Font.Name := '宋体'; Excelid.worksheets[1].Range['A1:c1'].Font.Size ...
Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4; Excelid.WorkSheets[1].Cells[2,1].Value := '组别编号'; Excelid.WorkSheets[1].Cells[2,2].Value := '公司编号'; Excelid.WorkSheets[1].Cells[2,3].Value := '组别名称'; Excelid.worksheets[1].Range['A1:c1'].Fon...
Excelid.WorkSheets[1].Cells[2,3].Value := '组别名称'; Excelid.worksheets[1].Range['A1:c1'].Font.Name := '宋体'; Excelid.worksheets[1].Range['A1:c1'].Font.Size := 9; Excelid.worksheets[1].range['A1:c2'].font.bold:=true; Excelid.worksheets[1].Range['A2:c2'].Font.Size :...
接着调用下面的函数。 Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet); var i, j: integer; Col, row: word; ABookMark: TBookMark; aFileStream: TFileStream; procedure incColRow; //增加行列号 begin if Col = ADataSet.FieldCount - 1 then begin Inc(Row)...
Delphi大数据导出Excel UsesComObj,clipbrd; TFileType=(ftExcel,ftTxt,ftHtml,ftXml); procedure ExportToFile(ACds: TDataSet;FieldName: string; FileType: TFileType); procedure TFrmTest.ExportToFile(ACds: TDataSet;FieldName: string; FileType: TFileType); var saveDialog: TSaveDialog; tsList: T...
function ExportToExcel: Boolean;var xlApp, xlBook, xlSheet, xlQuery: Variant;SQLCmd: String;i, iNextRow: Integer;//设定单元格默认格式 procedure ExcelSetDefaultFormat;begin xlSheet.Cells.Font.Name := '宋体';xlSheet.Cells.Font.Size := 12;xlSheet.Cells.VerticalAlignment := 2;//...
c:\test.xls 为导入/导出的Excel文件名. sheet1$ 为Excel文件的工作表名,一般要加上$才能正常使用. --*/--下面是导出真正Excel文件的方法: if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) ...
function ExportToExcel: Boolean; var xlApp, xlBook, xlSheet, xlQuery: Variant; SQLCmd: String; i, iNextRow: Integer; //设定单元格默认格式 procedure ExcelSetDefaultFormat; begin xlSheet.Cells.Font.Name := '宋体'; xlSheet.Cells.Font.Size := 12; ...
//dbgird导出excel procedure Tjhc_pzmdcs_f.ExportExc(DG :TDBGrid; mdzl:string);var ExcelApp: Variant;i,j: integer;begin if DG.DataSource.DataSet.IsEmpty then exit;ExcelApp := CreateOleObject( 'Excel.Application' );ExcelApp.Caption := '应用程序调用 Microsoft Excel';ExcelApp....
delphi 导出excel类(转) 导出方法 Button procedure TFrm_ClientGameRecord.Act_ExportExecute(Sender: TObject); var ToExcel:TTOExecel; begin ToExcel:=TTOExecel.Create(GetTreeTopNode(Tree_Time.Selected).Text+'_交易记录.xls'); try ToExcel.ToExcel(DBGrid_ChongZhi,Gauge_Export);...