发信人: cycas@GZ()
整理人: teleme(2001-02-05 11:28:07), 站内信件
|
标 题: Re: 如何将SQL查找出来后的结果，送到EXECL中去
发信站: 网易虚拟社区 (Thu Mar 2 20:28:04 2000), 站内信件
【 在 gzlitao (LION（乐涛）) 的大作中提到: 】
: 如何将SQL查找出来后的结果，直接送到EXECL中去。(请给例子)
: (连字段和内容送到execl中去呢？）
: 我已经查找出来了，显示在Dbgrid中了，想以按键之后
: 打开execl并发送数据到execl中去。
: .......
例子如下，运行试一下：
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp, Book1: OleVariant;
I: Integer;
begin
ExcelApp:= CreateOleObject('Excel.Application');
ExcelApp.Visible:= True;
Book1:= ExcelApp.WorkBooks.Add;
for I:= 1 to 10 do
ExcelApp.ActiveSheet.Cells[3, i+4]:= 'asdf'+IntToStr(i);
Book1.Close(True, 'c:\asdf.xls', NULL);
ExcelApp.Quit;
ShowMessage('OK');
end;
关于 Excel 的更多帮助看
C:\Program Files\Microsoft Office\Office\VBAXL8.HLP
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.105.189.193]
|
|