delphi如何匯出EXCEL（1）

首先在uses處加上comobj

procedure tform1.button1click(sender: tobject);

var  h,k:integer;
excelid: olevariant;
s: string;
begin
tryexcept
exit;
end;
tryadoquery1.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
end;
messagebox(getactivewindow(), 'excel資料匯出成功!', '提示資訊', mb_ok +mb_iconwarning);
end;

C 匯出Excel 匯出資料到Excel模板檔案裡

using excel microsoft.office.interop.excel using system.reflection missing 開啟模板檔案，得到workbook物件 workbook excel.workbooks.open templatepath,missing,miss...

delphi操作excel語法

一 使用動態建立的方法 sheet3.columns 1 columnwidth 20 設定單元格居中 設定單元格居右 14 進行頁面設定 15 拷貝操作 5 新增新工作表 var temp worksheet worksheet begin temp worksheet excelworkbook...

delphi 讀取Excel資料

一 使用動態建立的方法 首先建立 excel 物件，使用comobj var1 顯示當前視窗 2 更改 excel 標題欄 3 新增新工作簿 4 開啟已存在的工作簿 5 設定第2個工作表為活動工作表 或6 給單元格賦值 7 設定指定列的寬度 單位 字元個數 以第一列為例 8 設定指定行的高度 單位 ...