delphi如何导出EXCEL（1）

最新推荐文章于 2020-03-18 10:36:12 发布

学无止境

最新推荐文章于 2020-03-18 10:36:12 发布

阅读量728

点赞数

分类专栏： Delphi 文章标签： excel delphi integer c

Delphi 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

首先在Uses处加上ComObj

procedure TForm1.Button1Click(Sender: TObject);
 var  h,k:integer;
     Excelid: OleVariant;
     s: string;
begin
     try
        Excelid := CreateOLEObject('Excel.Application');
    except
        Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
    end;
       try
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('select * from jj_department');
        ADOQuery1.Open;
        k:=ADOQuery1.RecordCount;
         Excelid.Visible := True;
         Excelid.WorkBooks.Add;
         Excelid.worksheets[1].range['A1:c1'].Merge(True);
         Excelid.WorkSheets[1].Cells[1,1].Value :='部门编码表' ;
         Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
         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'].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 := 9;
         Excelid.worksheets[1].Range['A2:c2'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['A2:c2'].VerticalAlignment := $FFFFEFF4;
         h:=3;
         ADOQuery1.First;
        while not ADOQuery1.Eof do
         begin
           Excelid.WorkSheets[1].Cells[h,1].Value := Adoquery1.FieldByName('Fdept_id').AsString;
           Excelid.WorkSheets[1].Cells[h,2].Value := Adoquery1.FieldByName('Ffdept_id').AsString;
           Excelid.WorkSheets[1].Cells[h,3].Value := Adoquery1.FieldByName('Fdept_name').AsString;
           Inc(h);
            Adoquery1.Next;
         end;
         s := 'A2:f'+ IntToStr(k+2);
         Excelid.worksheets[1].Range[s].Font.Name := '宋体';
         Excelid.worksheets[1].Range[s].Font.size := 9;
         Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;
         Excelid.Quit;
          except
        Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    end;
   MessageBox(GetActiveWindow(), 'EXCEL数据导出成功!', '提示信息', MB_OK +MB_ICONWARNING);

end;