excel做报表输出工具,dbgrid的内容全部输出到excel报表并预览
解决方案 »
- delphi idhttp异常处理
- delphi7 dllform窗体显示的时候如何对应MDI里的新建的TabSheet
- 控件重叠的问题
- 求一简单的SQL语句
- delphi 用ACCESS数据库,要将一个数据库中指定的数据导到另外一个数据库,用什么方法最快?
- 见鬼了 ,frReport1.ShowReport;
- 请求高手作答,关于COMBOBOX问题.1000分都可以.
- 请教DX们,我的电脑上有三个硬盘,有十个分区,程序里如何得到某个分区属于第几个硬盘?
- 求助,FastReport报表帮助,工作要没法做了。
- 关于Kylix的问题
- delphi怎么控制excel单元格字体的风格(粗体或斜体阿)
- 将窗体包含到DLL文件中后,窗体上是不是就不能再有OLE类控件了?
procedure TfrmSG.Button1Click(Sender: TObject); //uses Excel2000 , ComObj
var
pc_i:integer;
xlapp,sheet: variant;
WBK: OleVariant;
begin
xlapp := createoleobject('excel.application');
xlapp.visible := True; //Excel是否可见
if Trim(Edit1.Text)='' then
begin
Application.MessageBox('文件名不能为空','警告',MB_OK);
Exit;
end;
WBK := xlapp.workbooks.Open(Edit1.Text);
sheet := xlapp.workbooks[1].worksheets['sheet1'];
sheet.Cells.SpecialCells(XlCellTypeLastCell,EmptyParam).Activate; //showmessage(IntToStr(xlapp.ActiveCell.Row));
//showmessage(IntToStr(xlapp.ActiveCell.Column));
//excelworksheet2.UsedRange[1].Rows.Count));
//excelworksheet2.UsedRange[1].Columns.Count));
pc_i:=1;
Edit2.Text := sheet.cells[pc_i,1]; //写入的话用 sheet.cells[pc_i,1] := Edit2.Tex;
WBK.Close(SaveChanges := True);
xlapp.Quit;
end;