标签：dbgrid delphi excel value Excelid WorkSheets worksheets cells excelid

uses Excel2000,ComObj;

procedure F_Form.Button1Click(Sender: TObject);
var
    myExcel:TExcel;
    Int_i,Int_j,rowCount,columnCount:Integer;
    ExcelId:Variant;
begin
  try
      ExcelId:=CreateOleObject('Excel.Application');
  except
      on Exception do raise Exception.Create('无法创建报表,请确认是否安装EXCEL');
  end;

  if DBGrid4.DataSource.DataSet.RecordCount<>0 then
  begin
      rowCount:=DBGrid4.DataSource.DataSet.RecordCount;
      columnCount := DBGrid4.FieldCount;
        try
            Excelid.Visible := True;
            Excelid.WorkBooks.Add;
            Excelid.WorkSheets[1].Range['A1:I1'].Merge(True);
            Excelid.WorkSheets[1].Cells[1,1].Value :=  'xxx公司';

            Excelid.WorkSheets[1].Range['A2:I2'].Merge(True);
            Excelid.WorkSheets[1].Cells[2,1].Value := 'xxx信息统计表';

            excelid.worksheets[1].cells[3,1].value:='1;
            excelid.worksheets[1].cells[3,2].value:='2;
            excelid.worksheets[1].cells[3,3].value:='3';
            excelid.worksheets[1].cells[3,4].value:='4;
            excelid.worksheets[1].cells[3,5].value:='5;
            excelid.worksheets[1].cells[3,6].value:='6;
            excelid.worksheets[1].cells[3,7].value:='7;
            excelid.worksheets[1].cells[3,8].value:='8';
            excelid.worksheets[1].cells[3,9].value:='9;
            excelid.worksheets[1].cells[3,10].value:='10;

            Excelid.WorkSheets[1].Range['A1:T3'].Font.Name :='宋体';
            Excelid.WorkSheets[1].Range['A1:I2'].Font.Size :=12;
            Excelid.WorkSheets[1].Range['A2:T3'].Font.Size :=10;
            Excelid.WorkSheets[1].Range['A1:T3'].Font.Bold :=True;

            DBGrid4.DataSource.DataSet.First();
            for Int_i:=0 to rowCount do
            begin
              for Int_j:=0 to columnCount-1 do
              begin
                ExcelId.worksheets[1].cells[Int_i+4,int_j+1].value:=  DBGrid4.DataSource.DataSet.FieldByName(DBGrid4.Columns.Items[int_j].FieldName).AsString;
              end;
              DBGrid4.DataSource.DataSet.Next();
            end;

            Excelid.WorkSheets[1].range['A1:T3'].HorizontalAlignment := $FFFFEFF4;
            Excelid.worksheets[1].range['A1:T3'].VerticalAlignment := $FFFFEFF4;
            Excelid.Columns.AutoFit;

        finally
        end;

  end;
end;

标签：dbgrid,delphi,excel,value,Excelid,WorkSheets,worksheets,cells,excelid
来源： https://www.cnblogs.com/jijm123/p/10987845.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。