、 |
、参数名 |
、 |
时间 、 |
、 |
-----------
如上表头怎么实现?谢谢
、参数名 |
、 |
时间 、 |
、 |
-----------
如上表头怎么实现?谢谢
解决方案 »
- 寻求对文本日志处理方法
- 帮忙看看!
- delphi 中关键字变的对大小敏感了,以前不是这样的,怎么办啊,好像有个什么设置,可以取消的
- 编程序完成数据库的倒入倒出,在本地局域网上已经完成,但通过internet 就不行了
- 图像的放大缩小
- 那位用过coderush的前辈知道,怎么显示线条去连接BEGIN和对应的END,好象有这个功能的
- ACCESS表一字段有:日期\入货数量\出货数量等字段,现希望能按任意指定时间内求查询每日的进货和出货的汇总 和结余
- 从版转过来就遇到一个问题,请教!
- 如何才能获取运行时指定一表的字段信息和索引信息
- 哪里有DelPhi的函数介绍?
- 高分邀请!解决这个报表打印问题!高手请进!
- 请问在qReport中如何实现一下形式的报表!谢谢!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Excel2000, OleServer;type
TForm1 = class(TForm)
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
ExcelApplication1: TExcelApplication;
ExcelWorksheet2: TExcelWorksheet;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
bexeclvisible: boolean;
i1,i2,j1,j2: integer;
begin
if application.MessageBox('启动Excel','请回答',MB_yesno+mb_defbutton2)<>idno
then
begin
bexeclvisible:=true;
end
else
bexeclvisible:=false;
if bexeclvisible then
excelapplication1.Visible[0]:=true;
try
excelapplication1.Connect;
except
showmessage('error');
abort;
end;
excelapplication1.Caption:='转换';
excelapplication1.Workbooks.add('d:\aa\扫描电镜(第一天)5.xls',0);
excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);
i1:=3;
j1:=2;
i2:=1;
j2:=1; while datetimetostr(excelworksheet1.Cells.Item[3,2].value)<>'' do
begin
excelworksheet2.Cells.Item[i2,j2].value:=datetimetostr(excelworksheet1.Cells.Item[i1,j1].value); excelworksheet2.Cells.Item[i2,j2+1].value:=excelworksheet1.Cells.Item[i1+3,j1].value;
excelworksheet2.Cells.Item[i2,j2+2].value:=excelworksheet1.Cells.Item[i1+3,j1+1].value;
excelworksheet2.Cells.Item[i2,j2+3].value:=excelworksheet1.Cells.Item[i1+3,j1+2].value;
excelworksheet2.Cells.Item[i2,j2+4].value:=excelworksheet1.Cells.Item[i1+3,j1+3].value;
excelworksheet2.Cells.Item[i2,j2+5].value:=excelworksheet1.Cells.Item[i1+3,j1+4].value;
excelworksheet2.Cells.Item[i2,j2+6].value:=excelworksheet1.Cells.Item[i1+3,j1+5].value;
excelworksheet2.Cells.Item[i2,j2+7].value:=excelworksheet1.Cells.Item[i1+3,j1+6].value;
excelworksheet2.Cells.Item[i2,j2+8].value:=excelworksheet1.Cells.Item[i1+3,j1+7].value;
excelworksheet2.Cells.Item[i2,j2+9].value:=excelworksheet1.Cells.Item[i1+3,j1+8].value;
excelworksheet2.Cells.Item[i2,j2+10].value:=excelworksheet1.Cells.Item[i1+3,j1+9].value;
excelworksheet2.Cells.Item[i2,j2+11].value:=excelworksheet1.Cells.Item[i1+3,j1+10].value;
excelworksheet2.Cells.Item[i2,j2+12].value:=excelworksheet1.Cells.Item[i1+3,j1+11].value;
i2:=i2+1;
i1:=i1+12; end; excelworksheet2.SaveAs('d:\aa\扫描电镜(第一天)5.xls');
showmessage('OK!');
excelapplication1.Disconnect;
excelapplication1.Quit;end;
end.