精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>Re: 如何将SQL查找出来后的结果,送到EXE

主题:Re: 如何将SQL查找出来后的结果,送到EXE
发信人: cycas()
整理人: (2000-12-05 18:59:46), 站内信件
【 在 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]

[关闭][返回]