各位给个例子,TExcelApplication的用法,或者给段代码,多谢 各位给个例子,TExcelApplication的用法,或者给段代码,多谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi与Excel的亲密接触http://www.china-pub.com/computers/eMook/1526/info.htm procedure TForm1.Button1Click(Sender: TObject);var i,j,k,l,m,n:integer;ColumnRange,qzw,qzw1,QZW2: Variant;beginexcelapplication1.Connect;excelapplication1.Caption:='123';excelapplication1.Visible[0]:=true;excelapplication1.Workbooks.Add(null,0);excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);excelworksheet3.ConnectTo(excelworkbook1.Worksheets[3] as _worksheet);excelworksheet2.Activate;excelworksheet3.Name:='zwtlzr3';excelworksheet2.Name:='zwtlzr2';excelworksheet1.Name:='zwtlzr1';excelworksheet2.Columns.Font.Name:='黑体';//excelworksheet2.Cells.Item[1,1]:='zw';//excelworksheet2.Cells.Item[1,2]:='zw1';qzw:=excelworksheet2.rows;QZW1:=excelworksheet2.Range['A1','e1'];QZW1.MERGE;qzw1:=excelworksheet2.Range['A2','a10'];qzw1.Merge;qzw1:=excelworksheet2.Range['A2','a1'];qzw1.Interior.ColorIndex:=3;qzw.rows[1].rowheight:=30;qzw.rows[1].font.color:=clblue;qzw.rows[1].font.bold:=true;qzw.rows[1].font.underline:=true;QZW.ROWS[11].PAGEBREAK:=1;excelworksheet2.PageSetup.PrintTitleRows:='$12:$12';ColumnRange:= excelworksheet2.Columns;ColumnRange.Columns[3].ColumnWidth:=30;ColumnRange.Columns[3].font.name:='隶书';ColumnRange.Columns[3].font.color:=clblue;excelworksheet2.PageSetup.PrintGridlines:=true;excelworksheet2.PageSetup.PaperSize:=XLPAPERA4;//excelworksheet2.PageSetup.PaperSize:=XLPAPERuser;excelworksheet2.PageSetup.CenterFooter:='第abc&P页共&N页&d&t&f&a';excelworksheet2.PageSetup.PrintTitleRows:='$1:$2';excelworksheet2.PageSetup.Orientation:=XLLANDSCAPE;//ColumnRange.Columns[1].numberformatlocal:='G/通用格式';//ColumnRange.Columns[1].numberformatlocal:='@';excelworksheet2.PageSetup.CenterHeader:= '&"隶书"报表演示'#13+'1213';table1.Close;table1.DatabaseName:='e:\gzkd';table1.TableName:='jzg.dbf';table1.TableType:=ttfoxpro;table1.Open;j:=2;k:=3;excelworksheet2.Cells.Item[2,1]:='本月工资';excelworksheet2.Cells.Item[2,1].Orientation:= xlVertical;excelworksheet2.Cells.Item[2,1].VerticalAlignment:= xlVAlignCenter;excelworksheet2.Cells.Item[2,2]:='编号';excelworksheet2.Cells.Item[2,3]:='姓名';excelworksheet2.Cells.Item[2,4]:='固定工资';excelworksheet2.Cells.Item[2,5]:='活工资';for i:=1 to 100 dobeginexcelworksheet2.Cells.Item[k,2]:=table1.Fields[0].AsString;excelworksheet2.Cells.Item[k,3]:=table1.Fields[1].AsString;excelworksheet2.Cells.Item[k,4].numberformatlocal:='0.00';excelworksheet2.Cells.Item[k,4]:=table1.Fieldbyname('gdgz').AsFloat;excelworksheet2.Cells.Item[k,5]:=table1.Fieldbyname('hgz').AsFloat;excelworksheet2.Cells.Item[k,5].numberformatlocal:='0.00';//excelworksheet2.Cells.Item[k,1].numberformatlocal:='0';if i=10 then excelworksheet2.PageSetup.PrintTitleRows:='$12:$12';k:=k+1;table1.Next;end;excelworksheet2.Cells.Item[k+1,2]:='合 计';excelworksheet2.Cells.Item[k+1,4]:='=sum(d1:d100)';excelworksheet2.Cells.Item[k+1,5]:='=sum(e1:e100)';excelworksheet2.Cells.Item[k+1,4].numberformatlocal:='0.00';excelworksheet2.Cells.Item[k+1,5].numberformatlocal:='0.00';excelworksheet2.Cells.Item[1,2].font.name:='黑体';excelworksheet2.Cells.Item[1,1]:='成都科技大学工资表';excelworksheet2.Cells.Item[1,1].HorizontalAlignment := xlCenter;excelworksheet2.Cells.Item[1,1].font.size:=20;ColumnRange.Columns[4].numberformatlocal:='#,##0.00';excelworksheet2.Cells.Item[105,3]:=excelworksheet2.PageSetup.CenterHeader;excelworksheet2.Cells.Item[105,4]:=Pos(#13,excelworksheet2.PageSetup.CenterHeader);excelworksheet2.Cells.Item[105,5]:='&p';excelworksheet2.Protect('123',true,true,true,true);excelworksheet2.PrintPreview;excelworkBOOK1.Saved[1]:=TRUE;QZW2:='12345';//excelworksheet2.SaveAs('e:\txt\123.xls',XLEXCEL9795,'789');//QZW1.UNMERGE;end; delphi 中断点错位了怎么办? 我想在DLL中操作注册表 高分求fcOutLookBar QQ的UDP直连原理,及视频 语音聊天原理??? 怎么让delphi自己捕捉出错信息? 用过压缩控件zipTv的兄弟进来瞧瞧!!! MIDAS三层结构中,客户端怎样控制数据服务端 您好,初学,请教几个问题 在Delphi下,如何利用十六进制表示字符串? 一个调试的傻问题! 怎样将ASCII码转换为16进制的字符? 在DELPHI5中有否一个组件,可以制作出类似于OBJECT INSPECTOR的东西
http://www.china-pub.com/computers/eMook/1526/info.htm
var i,j,k,l,m,n:integer;ColumnRange,qzw,qzw1,QZW2: Variant;begin
excelapplication1.Connect;
excelapplication1.Caption:='123';
excelapplication1.Visible[0]:=true;
excelapplication1.Workbooks.Add(null,0);
excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);
excelworksheet3.ConnectTo(excelworkbook1.Worksheets[3] as _worksheet);
excelworksheet2.Activate;
excelworksheet3.Name:='zwtlzr3';
excelworksheet2.Name:='zwtlzr2';
excelworksheet1.Name:='zwtlzr1';
excelworksheet2.Columns.Font.Name:='黑体';
//excelworksheet2.Cells.Item[1,1]:='zw';
//excelworksheet2.Cells.Item[1,2]:='zw1';
qzw:=excelworksheet2.rows;
QZW1:=excelworksheet2.Range['A1','e1'];
QZW1.MERGE;
qzw1:=excelworksheet2.Range['A2','a10'];
qzw1.Merge;
qzw1:=excelworksheet2.Range['A2','a1'];
qzw1.Interior.ColorIndex:=3;
qzw.rows[1].rowheight:=30;
qzw.rows[1].font.color:=clblue;
qzw.rows[1].font.bold:=true;
qzw.rows[1].font.underline:=true;
QZW.ROWS[11].PAGEBREAK:=1;
excelworksheet2.PageSetup.PrintTitleRows:='$12:$12';
ColumnRange:= excelworksheet2.Columns;
ColumnRange.Columns[3].ColumnWidth:=30;
ColumnRange.Columns[3].font.name:='隶书';
ColumnRange.Columns[3].font.color:=clblue;
excelworksheet2.PageSetup.PrintGridlines:=true;
excelworksheet2.PageSetup.PaperSize:=XLPAPERA4;
//excelworksheet2.PageSetup.PaperSize:=XLPAPERuser;
excelworksheet2.PageSetup.CenterFooter:='第abc&P页共&N页&d&t&f&a';
excelworksheet2.PageSetup.PrintTitleRows:='$1:$2';
excelworksheet2.PageSetup.Orientation:=XLLANDSCAPE;
//ColumnRange.Columns[1].numberformatlocal:='G/通用格式';
//ColumnRange.Columns[1].numberformatlocal:='@';
excelworksheet2.PageSetup.CenterHeader:= '&"隶书"报表演示'#13+'1213';
table1.Close;
table1.DatabaseName:='e:\gzkd';
table1.TableName:='jzg.dbf';
table1.TableType:=ttfoxpro;
table1.Open;
j:=2;
k:=3;
excelworksheet2.Cells.Item[2,1]:='本月工资';
excelworksheet2.Cells.Item[2,1].Orientation:= xlVertical;
excelworksheet2.Cells.Item[2,1].VerticalAlignment:= xlVAlignCenter;
excelworksheet2.Cells.Item[2,2]:='编号';
excelworksheet2.Cells.Item[2,3]:='姓名';
excelworksheet2.Cells.Item[2,4]:='固定工资';
excelworksheet2.Cells.Item[2,5]:='活工资';
for i:=1 to 100 do
begin
excelworksheet2.Cells.Item[k,2]:=table1.Fields[0].AsString;
excelworksheet2.Cells.Item[k,3]:=table1.Fields[1].AsString;
excelworksheet2.Cells.Item[k,4].numberformatlocal:='0.00';
excelworksheet2.Cells.Item[k,4]:=table1.Fieldbyname('gdgz').AsFloat;
excelworksheet2.Cells.Item[k,5]:=table1.Fieldbyname('hgz').AsFloat;
excelworksheet2.Cells.Item[k,5].numberformatlocal:='0.00';
//excelworksheet2.Cells.Item[k,1].numberformatlocal:='0';
if i=10 then excelworksheet2.PageSetup.PrintTitleRows:='$12:$12';k:=k+1;
table1.Next;
end;
excelworksheet2.Cells.Item[k+1,2]:='合 计';
excelworksheet2.Cells.Item[k+1,4]:='=sum(d1:d100)';
excelworksheet2.Cells.Item[k+1,5]:='=sum(e1:e100)';
excelworksheet2.Cells.Item[k+1,4].numberformatlocal:='0.00';
excelworksheet2.Cells.Item[k+1,5].numberformatlocal:='0.00';
excelworksheet2.Cells.Item[1,2].font.name:='黑体';
excelworksheet2.Cells.Item[1,1]:='成都科技大学工资表';
excelworksheet2.Cells.Item[1,1].HorizontalAlignment := xlCenter;
excelworksheet2.Cells.Item[1,1].font.size:=20;
ColumnRange.Columns[4].numberformatlocal:='#,##0.00';
excelworksheet2.Cells.Item[105,3]:=excelworksheet2.PageSetup.CenterHeader;
excelworksheet2.Cells.Item[105,4]:=Pos(#13,excelworksheet2.PageSetup.CenterHeader);
excelworksheet2.Cells.Item[105,5]:='&p';
excelworksheet2.Protect('123',true,true,true,true);
excelworksheet2.PrintPreview;
excelworkBOOK1.Saved[1]:=TRUE;
QZW2:='12345';
//excelworksheet2.SaveAs('e:\txt\123.xls',XLEXCEL9795,'789');
//QZW1.UNMERGE;
end;