Delphi关于Excel的操作

最新推荐文章于 2019-03-05 14:02:01 发布
最新推荐文章于 2019-03-05 14:02:01 发布
阅读量1.8k 收藏
点赞数
文章标签： excel delphi integer function string interface
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/enjoymyself/article/details/485789
版权

  Try
    ExcelApp.Connect;
  Except
  End;

    //打开文件

    Excelbook.ConnectTo(ExcelApp.Workbooks.Open(FReportName,EmptyParam,EmptyParam,        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,True,EmptyParam,
  EmptyParam,EmptyParam,0));
//另存文件   

ExcelApp.ActiveWorkbook.SaveAs(FReportName,xlNormal,'','',false,False,xlExclusive,
           EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

//自己封装的部分函数

unit ExcelFunctions;

{BWQ_2005.08.02 Excel 常用操作函数封装
            .这里建议尽量使用单元格的行、列进行数据操作;不过封装时也支持按单元格名称的操作
            .在数据填充时如果不指定列的位置，按顺序填充满足不了实际表格的要求。因此FillData方法
             又封装了一个带有列头名称的参数。（在使用过程中，在Excel中给每个固定的列定义一个名称）
            .CopyRow 拷贝CurCell所在行，并在下一行进行插入。
           
}

 

interface

uses Excel97, OleServer,Db, DBClient,Dialogs,SysUtils,Classes;

Function GetCellValue(ExcelSheet:TExcelWorkSheet;CellName:String):Variant;Overload;
Function GetCellValue(ExcelSheet:TExcelWorkSheet;Row,Col:Integer):Variant;Overload;

Function SetCellValue(ExcelSheet:TExcelWorkSheet; CellName,Value:String):Boolean; Overload;
Function SetCellValue(ExcelSheet:TExcelWorkSheet; Row,Col:Integer;Value:String):Boolean; Overload;

Function InsertRow(ExcelSheet:TExcelWorkSheet; CurCell :String):Boolean;Overload;
Function InsertRow(ExcelSheet:TExcelWorkSheet; Row,Col:Integer):Boolean;Overload;

Function CopyRow(ExcelSheet:TExcelWorkSheet;CurCell:String):Boolean;OverLoad;
Function CopyRow(ExcelSheet:TExcelWorkSheet;Row,Col:Integer):Boolean;OverLoad;

Function CopyCol(ExcelSheet:TexcelWorkSheet;CurCell:String):Boolean;Overload;
Function CopyCol(ExcelSheet:TexcelWorkSheet;Row,Col:Integer):Boolean;Overload;

Function InsertCol(ExcelSheet:TExcelWorkSheet; CurCell :String):Boolean;Overload;
Function InsertCol(ExcelSheet:TExcelWorkSheet; Row,Col:Integer):Boolean;Overload;

Function MergeCell(ExcelSheet:TExcelWorkSheet; BeginCell,EndCell:String):Boolean;OverLoad;
Function MergeCell(ExcelSheet:TExcelWorkSheet; BeginRow,BeginCol,EndRow,EndCol:Integer):Boolean;OverLoad;

Function FillData(ExcelSheet:TexcelWorkSheet;BeginCell:String;CDS:TClientDataSet;IsInsert:Boolean):Boolean;OverLoad;
Function FillData(ExcelSheet:TexcelWorkSheet;BeginCell:String;ColName:TStringList):Boolean;OverLoad;
Function FillData(ExcelSheet:TexcelWorkSheet;BeginRow,BeginCol:Integer;CDS:TClientDataSet;IsInsert:Boolean):Boolean;OverLoad;
Function FillData(ExcelSheet:TexcelWorkSheet;BeginCell:String;Cols:TStringList;CDS:TClientDataSet;IsInsert:Boolean;IsCopyNextRow:Boolean= False):Boolean;OverLoad;

Function FillColData(ExcelSheet:TexcelWorkSheet;BeginCell:String;CDS:TClientDataSet;IsInsert:Boolean;IsCopyCol:Boolean=False):Boolean;OverLoad;
Function FillColData(ExcelSheet:TexcelWorkSheet;BeginRow,BeginCol:Integer;CDS:TClientDataSet;IsInsert:Boolean;IsCopyCol:Boolean=False):Boolean;OverLoad;
Function FillColData(ExcelSheet:TexcelWorkSheet;BeginCell:String;IgnoreRow:TStringList;CDS:TClientDataSet;IsInsert:Boolean;IsCopyCol:Boolean=False):Boolean;OverLoad;

Function DataSum(ExcelSheet:TexcelWorkSheet;BeginCell,EndCell:String):Boolean;Overload;
Function DataSum(ExcelSheet:TexcelWorkSheet;BeginRow,BeginCol,EndRow,EndCol:Integer):Boolean;OverLoad;


implementation

Function GetCellValue(ExcelSheet:TExcelWorkSheet;CellName:String):Variant;Overload;
var
  x,y :Integer;
begin
  X := ExcelSheet.Range[CellName,CellName].Row;
  Y := ExcelSheet.Range[CellName,CellName].Column;
  Result := ExcelSheet.Cells.Item[X,Y];
end;

Function GetCellValue(ExcelSheet:TExcelWorkSheet;Row,Col:Integer):Variant;Overload;
begin
  Result := ExcelSheet.Cells.Item[Row,Col];
end;

//单元格付值（按单元格名称）
Function SetCellValue(ExcelSheet:TExcelWorkSheet; CellName,Value:String):Boolean; Overload;
var
  X,Y : Integer;
begin

  ExcelSheet.Range[CellName,CellName].Select;
  ExcelSheet.Range[CellName,CellName].Value := Value;
//  ExcelSheet.Range[CellName,CellName].Cells.FormulaR1C1 := Value;
//  X := ExcelSheet.Range[CellName,CellName].Row;
//  Y := ExcelSheet.Range[CellName,CellName].Column;
//  Excelsheet.Cells.Item[X,Y] := Value;
  Result := True;
end;

//单元格付值（按行列位置）
Function SetCellValue(ExcelSheet:TExcelWorkSheet; Row,Col:Integer;Value:String):Boolean; Overload;
begin
  Excelsheet.Cells.Item[Row,Col] := Value;
  Result := True;
end;

//插入行
Function InsertRow(ExcelSheet:TExcelWorkSheet; CurCell :String):Boolean;Overload;
begin
   ExcelSheet.Range[CurCell,CurCell].EntireColumn.Insert(EmptyParam);
end;

Function InsertRow(ExcelSheet:TExcelWorkSheet; Row,Col:Integer):Boolean;Overload;
begin
  ExcelSheet.Range['A1','A1'].Cells.item[Row,Col].Select;
  ExcelSheet.Range['A1','A1'].Cells.item[Row,Col].EntireRow.Insert(EmptyParam);
end;

//拷贝行
Function CopyRow(ExcelSheet:TExcelWorkSheet;CurCell:String):Boolean;
var
  X,Y :Integer;
begin

  X :=ExcelSheet.Range[CurCell,CurCell].Row;
  Y :=ExcelSheet.Range[CurCell,CurCell].Column;
  ExcelSheet.Rows.Range_['A'+IntToStr(X),'IV'+IntToStr(X)].Select;
  ExcelSheet.Rows.Range_['A'+IntToStr(X),'IV'+IntToStr(X)].Copy(EmptyParam);
  ExcelSheet.Rows.Range_['A'+IntToStr(X+1),'IV'+IntToStr(X+1)].Select;
  ExcelSheet.Rows.Range_['A'+IntToStr(X+1),'IV'+IntToStr(X+1)].Insert(xlDown);

end;

Function CopyRow(ExcelSheet:TExcelWorkSheet;Row,Col:Integer):Boolean;OverLoad;
var
  X,Y :Integer;
begin

  X :=Row;
  Y :=Col;
  ExcelSheet.Rows.Range_['A'+IntToStr(X),'IV'+IntToStr(X)].Select;
  ExcelSheet.Rows.Range_['A'+IntToStr(X),'IV'+IntToStr(X)].Copy(EmptyParam);
  ExcelSheet.Rows.Range_['A'+IntToStr(X+1),'IV'+IntToStr(X+1)].Select;
  ExcelSheet.Rows.Range_['A'+IntToStr(X+1),'IV'+IntToStr(X+1)].Insert(xlDown);

end;

Function CopyCol(ExcelSheet:TexcelWorkSheet;CurCell:String):Boolean;Overload;
var
  X,Y :Integer;
begin

  X :=ExcelSheet.Range[CurCell,CurCell].Row;
  Y :=ExcelSheet.Range[CurCell,CurCell].Column;

  ExcelSheet.Columns.Range_[ExcelSheet.Cells.item[1,Y],
                   ExcelSheet.Cells.item[65536,Y]].Select;
  ExcelSheet.Columns.Range_[ExcelSheet.Cells.item[1,Y],
                   ExcelSheet.Cells.item[65536,Y]].Copy(EmptyParam);
  ExcelSheet.Rows.Range_[ExcelSheet.Cells.item[1,Y+1],
                   ExcelSheet.Cells.item[65536,Y+1]].Select;
  ExcelSheet.Rows.Range_[ExcelSheet.Cells.item[1,Y+1],
                   ExcelSheet.Cells.item[65536,Y+1]].Insert(xlRight);
end;

Function CopyCol(ExcelSheet:TexcelWorkSheet;Row,Col:Integer):Boolean;Overload;
var
  X,Y :Integer;
begin

  X :=Row;
  Y :=Col;

  ExcelSheet.Columns.Range_[ExcelSheet.Cells.item[1,Y],
                   ExcelSheet.Cells.item[65536,Y]].Select;
  ExcelSheet.Columns.Range_[ExcelSheet.Cells.item[1,Y],
                   ExcelSheet.Cells.item[65536,Y]].Copy(EmptyParam);
  ExcelSheet.Rows.Range_[ExcelSheet.Cells.item[1,Y+1],
                   ExcelSheet.Cells.item[65536,Y+1]].Select;
  ExcelSheet.Rows.Range_[ExcelSheet.Cells.item[1,Y+1],
                   ExcelSheet.Cells.item[65536,Y+1]].Insert(xlRight);
end;


//插入列
Function InsertCol(ExcelSheet:TExcelWorkSheet; CurCell :String):Boolean;
begin
  ExcelSheet.Range[CurCell,CurCell].EntireRow.Insert(EmptyParam);
end;

Function InsertCol(ExcelSheet:TExcelWorkSheet; Row,Col:Integer):Boolean;Overload;
begin
  ExcelSheet.Range['A1','A1'].Cells.item[Row,Col].Select;
  ExcelSheet.Range['A1','A1'].Cells.item[Row,Col].EntireColumn.Insert(EmptyParam);
end;

//合并单元格
Function MergeCell(ExcelSheet:TExcelWorkSheet; BeginCell,EndCell:String):Boolean;
var
  tmpValue :String;
begin
  //合并单元格；
  //先保留所选区域的左上角第一个单元格的数据，然后清除所选区域的所有数据，
  //最后再把左上角的数据恢复。{这样处理就不会有提示}
  Result := True;
  tmpValue := ExcelSheet.Cells.item[ExcelSheet.Range[BeginCell,EndCell].Row,
                                    ExcelSheet.Range[BeginCell,EndCell].Column];
  ExcelSheet.Range[BeginCell,EndCell].Select;
  ExcelSheet.Range[BeginCell,EndCell].Clear;
  ExcelSheet.Range[BeginCell,EndCell].HorizontalAlignment := xlLeft;
  ExcelSheet.Range[BeginCell,EndCell].VerticalAlignment := xlTop;
  ExcelSheet.Range[BeginCell,EndCell].WrapText := False;
  ExcelSheet.Range[BeginCell,EndCell].Orientation := 0;
  ExcelSheet.Range[BeginCell,EndCell].AddIndent := False;
  ExcelSheet.Range[BeginCell,EndCell].IndentLevel := 0;
  ExcelSheet.Range[BeginCell,EndCell].ShrinkToFit := False;
  ExcelSheet.Range[BeginCell,EndCell].MergeCells := True;
  ExcelSheet.Cells.item[ExcelSheet.Range[BeginCell,EndCell].Row,
                        ExcelSheet.Range[BeginCell,EndCell].Column] := tmpValue;
end;

Function MergeCell(ExcelSheet:TExcelWorkSheet; BeginRow,BeginCol,EndRow,EndCol:Integer):Boolean;OverLoad;
var
  tmpValue :String;
begin
  //合并单元格；
  //先保留所选区域的左上角第一个单元格的数据，然后清除所选区域的所有数据，
  //最后再把左上角的数据恢复。{这样处理就不会有提示}
  Result := True;
  tmpValue := ExcelSheet.Cells.item[BeginRow,BeginCol];
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].Select;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].Clear;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].HorizontalAlignment := xlLeft;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].VerticalAlignment := xlTop;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].WrapText := False;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].Orientation := 0;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].AddIndent := False;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].IndentLevel := 0;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].ShrinkToFit := False;
  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].MergeCells := True;
  ExcelSheet.Cells.item[BeginRow,BeginCol] := tmpValue;

end;

//区域填充数据 （按行填充，用于列固定的表格）
Function FillData(ExcelSheet:TexcelWorkSheet;BeginCell:String;CDS:TClientDataSet;IsInsert:Boolean):Boolean;
var
  I,F,X,Y :Integer;
begin
  //这里插入数据是在BeginCell的下一行开始
  Result := False;
  if CDS.RecordCount= 0 then exit;
  X := ExcelSheet.Range[BeginCell,BeginCell].Row;
  Y := ExcelSheet.Range[BeginCell,BeginCell].Column;
  For I := 1 to  CDS.RecordCount do
  begin
    if IsInsert then
      InsertRow(ExcelSheet,X+I,Y);
    For F:= 0 to CDS.FieldCount -1 do
    begin
      SetCellValue(ExcelSheet,X+I,Y+F,CDS.Fields[F].asString);
    end;
    CDS.Next;
  end;
end;

Function FillData(ExcelSheet:TexcelWorkSheet;BeginCell:String;ColName:TStringList):Boolean;OverLoad;
var
  I,F,X,Y :Integer;
begin
  //这里插入数据是在BeginCell的下一行开始
  Result := False;
  if ColName.Count = 0 then exit;
  X := ExcelSheet.Range[BeginCell,BeginCell].Row;
  Y := ExcelSheet.Range[BeginCell,BeginCell].Column;
  For I := 0 to  ColName.Count-1 do
  begin
    CopyCol(ExcelSheet,x,Y+I);
    SetCellValue(ExcelSheet,X,Y+I,ColName[I]);
  end;

end;
Function FillData(ExcelSheet:TexcelWorkSheet;BeginRow,BeginCol:Integer;CDS:TClientDataSet;IsInsert:Boolean):Boolean;OverLoad;
var
  I,F,X,Y :Integer;
begin
  //这里插入数据是在BeginCell的下一行开始
  Result := False;
  if CDS.RecordCount= 0 then exit;
  X := BeginRow;
  Y := BeginCol;
  For I := 1 to  CDS.RecordCount do
  begin
    if IsInsert then
      InsertRow(ExcelSheet,X+I,Y);
    For F:= 0 to CDS.FieldCount -1 do
    begin
      SetCellValue(ExcelSheet,X+I,Y+F,CDS.Fields[F].asString);
    end;
    CDS.Next;
  end;
end;

Function FillData(ExcelSheet:TexcelWorkSheet;BeginCell:String; Cols:TStringList;CDS:TClientDataSet;IsInsert:Boolean;IsCopyNextRow:Boolean= False):Boolean;OverLoad;
var
  I,F,X,Y,Col :Integer;
begin
  //这里插入数据是在BeginCell的下一行开始
  Result := False;
  if CDS.RecordCount= 0 then exit;
  X := ExcelSheet.Range[BeginCell,BeginCell].Row;
  Y := ExcelSheet.Range[BeginCell,BeginCell].Column;
  For I := 1 to  CDS.RecordCount do
  begin
    if IsCopyNextRow then
      CopyRow(ExcelSheet,X+I,Y)
    else if IsInsert then
      InsertRow(ExcelSheet,X+I,Y);
     
    For F:= 0 to CDS.FieldCount -1 do
    begin
      Col := ExcelSheet.Range[Cols[F],Cols[F]].Column;
      SetCellValue(ExcelSheet,X+I,Col,CDS.Fields[F].asString);
    end;
    CDS.Next;
  end;
end;

//填充列数据（按列填充，用于行固定的表格）
Function FillColData(ExcelSheet:TexcelWorkSheet;BeginCell:String;CDS:TClientDataSet;IsInsert:Boolean;IsCopyCol:Boolean=False):Boolean;OverLoad;
var
  I,F,X,Y :Integer;
begin

  Result := False;
  if CDS.RecordCount= 0 then exit;
  X := ExcelSheet.Range[BeginCell,BeginCell].Row;
  Y := ExcelSheet.Range[BeginCell,BeginCell].Column;
  For I := 0 to  CDS.RecordCount-1 do
  begin
    if IsInsert and IsCopyCol then
      CopyCol(ExcelSheet,X,Y+I)
    else if IsInsert then
      InsertCol(ExcelSheet,X,Y+I);
    For F:= 0 to CDS.FieldCount-1  do
    begin
      SetCellValue(ExcelSheet,X+F,Y+I,CDS.Fields[F].asString);
    end;
    CDS.Next;
  end;
end;

Function FillColData(ExcelSheet:TexcelWorkSheet;BeginRow,BeginCol:Integer;CDS:TClientDataSet;IsInsert:Boolean;IsCopyCol:Boolean=False):Boolean;OverLoad;
var
  I,F,X,Y :Integer;
begin

  Result := False;
  if CDS.RecordCount= 0 then exit;
  X := BeginRow;
  Y := BeginCol;
  For I := 0 to  CDS.RecordCount-1 do
  begin
    if IsInsert and IsCopyCol then
      CopyCol(ExcelSheet,X,Y+I)
    else if IsInsert then
      InsertCol(ExcelSheet,X,Y+I);
    For F:= 0 to CDS.FieldCount-1  do
    begin
      SetCellValue(ExcelSheet,X+F,Y+I,CDS.Fields[F].asString);
    end;
    CDS.Next;
  end;
end;

Function FillColData(ExcelSheet:TexcelWorkSheet;BeginCell:String;IgnoreRow:TStringList;CDS:TClientDataSet;IsInsert:Boolean;IsCopyCol:Boolean=False):Boolean;OverLoad;
var
  I,F,X,Y,J,CurRow :Integer;
begin

  Result := False;
  if CDS.RecordCount= 0 then exit;
  X := ExcelSheet.Range[BeginCell,BeginCell].Row;
  Y := ExcelSheet.Range[BeginCell,BeginCell].Column;
  For I := 0 to  CDS.RecordCount-1 do
  begin
    if IsInsert and IsCopyCol then
      CopyCol(ExcelSheet,X,Y+I)
    else if IsInsert then
      InsertCol(ExcelSheet,X,Y+I);
    CurRow := X;

    For F:= 0 to CDS.FieldCount-1  do  //按字段顺序填入列；
    begin
      J :=0;
      while  J<= IgnoreRow.Count-1 do
      begin
        if CurRow = StrToInt(IgnoreRow[J]) then   //排除不需要填写的行
        begin
          CurRow := CurRow+1;
          J :=0;
        end
        else
          J:=J+1;

      end;
      SetCellValue(ExcelSheet,CurRow,Y+I,CDS.Fields[F].asString);
      CurRow :=CurRow +1;
    end;
    CDS.Next;
  end;
end;

Function DataSum(ExcelSheet:TexcelWorkSheet;BeginCell,EndCell:String):Boolean;Overload;
begin

end;

Function DataSum(ExcelSheet:TexcelWorkSheet;BeginRow,BeginCol,EndRow,EndCol:Integer):Boolean;OverLoad;
begin
//  ExcelSheet.Range[ExcelSheet.Cells.item[BeginRow,BeginCol],
//                   ExcelSheet.Cells.item[EndRow,EndCol]].Select;
  ExcelSheet.Range[ExcelSheet.Cells.item[EndRow,EndCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].Activate;
  ExcelSheet.Range[ExcelSheet.Cells.item[EndRow,EndCol],
                   ExcelSheet.Cells.item[EndRow,EndCol]].FormulaR1C1 :='=SUM(R[-'+IntToStr(EndRow-BeginRow)+']C:R[-1]C)' ;

end;
end.

 

enjoymyself
关注
Delphi对Excel的操作(详细)
06-07
Delphi对Excel的操作(详细)，学完这个你就成为excel高手了！
Delphi操作excel方法
12-15
Delphi 操作 Excel 方法 Delphi 操作 Excel 是 Delphi 编程语言中的一种功能强大且灵活的 excel 操作方法。通过 Delphi，可以轻松地创建、编辑和操作 Excel 文件，从而实现自动化办公和数据处理等任务。 Delphi ...
Delphi对Excel的所有操作
qingfeng45697的专栏
02-01 5176
学完这个你就成为excel高手了！（Delphi对Excel的所有操作）逐个试试！   一) 使用动态创建的方法  首先创建 Excel 对象，使用ComObj:  var ExcelApp: Variant;  ExcelApp := CreateOleObject( 'Excel.Application' );  1) 显示当前窗口：  ExcelApp.Visible
delphi对于excel的一般操作
找个地方放一下
09-24 2392
资料来自网络 单元格设置 1.设置单元格线框 Excel.ActiveSheet.Range[B10:C13].Borders[N].LineStyle := xlNone Excel.ActiveSheet.Range[B10:C13].Borders[N].Weigh
Delphi操作Excel大全
a572893208的博客
10-13 189
Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：Exc...
Delphi 操作 Excel
ecappaxiao1989的博客
03-05 432
(一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( ‘Excel.Application’ ); 显示当前窗口： ExcelApp.Visible := True; 更改 Excel 标题栏： ExcelApp.Caption := ‘应用程序调用 Microsoft ...
delphi操作excel.doc
02-13
### Delphi 操作 Excel 的关键技术知识点 #### 一、Delphi 操作 Excel 的基础概念 在 Delphi 中，可以通过 COM（Component Object Model）自动化技术来操作 Microsoft Office 应用程序，如 Excel。这种方式允许 ...
Delphi脱离OFFICE操作Excel的四个组件（包含完整源码）
06-11
使用以下组件操作Excel，不需要Office环境，且全部包含完整源码，并附带 ApiMateRadStudio (1).exe 代码生成器 TMS FlexCel VCL & FMX v7.6.2 NativeExcel_D10.4.1 HotXLS XLSReadWrite 6.00.47 for D6-D10.4 Sydney...
Delphi实现Excel文件打印程序
05-12
摘要:Delphi源码,报表打印,Excel,报表打印　Delphi实现Excel文件通用的打印程序源代码，它可以象打印数据库文件一样操作打印机和Excel文件。为了让大家下载到比较小的文件，打包前删除了生成导出的EXE文件，大家可以...
delphi操作 excel
02-01
在处理Excel文件时，Delphi提供了一系列组件和库，使得开发者能够轻松地进行读取、写入以及操作Excel数据。下面将详细阐述如何在Delphi中操作Excel文件，以及涉及的相关知识点。 首先，为了在Delphi中操作Excel，...
Delphi操作Excel类
04-06
使用方便，功能强大。 type FileCheckResult = (fcrNotExistend,fcrNotXSLFile,fcrValidXSL); //文件不存在,不是XSL文件,合法的XSL文件 TOLEExcel = class(TComponent) private FExcelCreated: Boolean; FVisible: Boolean; FExcel: Variant; //Excel程序对象 FWorkBook: Variant; //Excel工作簿对象 FWorkSheet: Variant; //Excel工作簿 工作表对象 FCellFont: TFont; //单元格字体对象 FTitleFont: TFont; // FFontChanged: Boolean; FIgnoreFont: Boolean; FFileName: TFileName; //********************************************自己添加*****************************// FCreateFromFile:Boolean; //指示是否打开已有文件 FExcelCaption:string; //用程序打开Excel的窗体标 //*********************************来自U_Report*****************************// FRCPrePage:Integer; //每页显示的记录数 FMax:Integer; //最大的数组个数 procedure SetExcelCellFont(var Cell: Variant); procedure SetExcelTitleFont(var Cell: Variant); procedure GetTableColumnName(const Table: TTable; var Cell: Variant); procedure GetQueryColumnName(const Query: TQuery; var Cell: Variant); procedure GetFixedCols(const StringGrid: TStringGrid; var Cell: Variant); procedure GetFixedRows(const StringGrid: TStringGrid; var Cell: Variant); procedure GetStringGridBody(const StringGrid: TStringGrid; var Cell: Variant); protected procedure SetCellFont(NewFont: TFont); procedure SetTitleFont(NewFont: TFont); procedure SetVisible(DoShow: Boolean); function GetCell( ARow,ACol: Integer): string; procedure SetCell(ACol, ARow: Integer; const Value: string); function GetDateCell(ACol, ARow: Integer): TDateTime; procedure SetDateCell(ACol, ARow: Integer; const Value: TDateTime); //*********************************************自己添加************************************// procedure SetCaption(ACaption:string);//设置打开文件后,Excel主程序的窗体标题 function GetCapiton:string;//返回打开文件后,Excel主程序的窗体标题 public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure C
delphi操作EXCEL
01-08
DELPHI操作EXCEL的语句， a.页眉： ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示'; b.页脚： ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页'; c.页眉到顶端边距2cm： ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.页脚到底端边距3cm： ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.顶边距2cm： ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; f.底边距2cm： ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左边距2cm： ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; h.右边距2cm： ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; i.页面水平居中： ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.页面垂直居中： ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印单元格网线： ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
DELPHI 流操作EXCEL
12-07
演示如何把数据库里面的字段合值 通过文件流的形式保存成EXL 文件 DELPHI7写的
Delphi操作EXCEL示例
07-17
delphi操作excel,包括复制列，复制sheet,新建sheet页，批量数据生成透视表等
Delphi 操作Excel
ideasforjava
04-12 170
  Delphi  控制Excel(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应...
Delphi 控制Excel 例子,参考资料
阿锋--专栏
05-09 3899
个人收藏：Delphi  控制Excel(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption :=
delphi操作excel
刘磊
04-28 775
<br />var v: Variant; y: Integer; Begin If OpenDialog1.Execute Then begin v := CreateOleObject('Excel.Application'); try v.Workbooks.Open(OpenDialog1.FileName); v.WorkSheets[1].Activate; y:=v.ActiveSheet.UsedRange.Rows.Count;
Delphi操作EXCEL
三界的专栏
10-18 1588
Uses ExcelXP, Vcl.OleServer; //用Delphi组件TExcelApplication的操作方法. function TFormExcelImport.ActiveExcelFile(const FileName :String): Boolean; var   i: Integer;   // LCID: Integer;   ExcelAppli
Delphi操作Excel全面指南
"这篇文章主要介绍了如何在Delphi中操作Excel，包括创建Excel应用程序对象、设置工作簿、工作表、单元格的属性以及调整列宽、行高、页边距等。此外，还涉及到了边框样式、清除内容、字体设置等操作。" 在Delphi编程...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值