1、匯出資料uses comobj;
procedure tform10.execlexit;
var h,k:integer;
excelid: olevariant;
s: string;
begin
tryexcept
exit;
end;
tryk:=adoqry.recordcount;
excelid.visible := true;
excelid.workbooks.add;
excelid.worksheets[1].range['a1:d1'].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].cells[2,4].value := '備註資訊';
excelid.columns[2].columnwidth:=20; //設定列寬度
excelid.columns[4].columnwidth:=40;
excelid.cells[1,1].interior.color:=clgray; //設定單元格背景顏色
excelid.worksheets[1].range['a1:d2'].interior.color:=clgray;
excelid.worksheets[1].range['a1:d1'].font.name := '宋體';
excelid.worksheets[1].range['a1:d1'].font.size := 14;
excelid.worksheets[1].range['a1:d2'].font.bold:=true;
excelid.worksheets[1].range['a2:d2'].font.size := 10;
excelid.worksheets[1].range['a2:d2'].horizontalalignment := $ffffeff4;
excelid.worksheets[1].range['a2:d2'].verticalalignment := $ffffeff4;
h:=3;
adoqry.first;
while not adoqry.eof do
begin
excelid.worksheets[1].cells[h,1].value := adoqry.fieldbyname('編號').asstring;
excelid.worksheets[1].cells[h,2].value := adoqry.fieldbyname('元件名').asstring;
excelid.worksheets[1].cells[h,3].value := adoqry.fieldbyname('數量').asstring;
excelid.worksheets[1].cells[h,4].value := adoqry.fieldbyname('備註').asstring;
excelid.cells[h,4].numberformatlocal:='@'; //設定單元格為文字格式
inc(h);
adoqry.next;
end;
//畫**邊框線
s := 'a2:d'+ 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;
delphi操作excel語法
一 使用動態建立的方法 sheet3.columns 1 columnwidth 20 設定單元格居中 設定單元格居右 14 進行頁面設定 15 拷貝操作 5 新增新工作表 var temp worksheet worksheet begin temp worksheet excelworkbook...
delphi操作excel語法
一 使用動態建立的方法 sheet3.columns 1 columnwidth 20 設定單元格居中 設定單元格居右 14 進行頁面設定 15 拷貝操作 5 新增新工作表 var temp worksheet worksheet begin temp worksheet excelworkbook...
delphi對於excel的一般操作
單元格設定 1.設定單元格線框 excel.activesheet.range b10 c13 borders n linestyle xlnone excel.activesheet.range b10 c13 borders n weight xlthin 邊框的型別 borders n xle...