哪位兄弟能告诉我如何将Table or Query转换成Excel....(20分)

  • 主题发起人 主题发起人 WuPing
  • 开始时间 开始时间
W

WuPing

Unregistered / Unconfirmed
GUEST, unregistred user!
哪位兄弟能告诉我如何将Table or Query转换成Excel....
 
把数据到 用EHGRID 控间件中,用方法存
 
給你代碼,先添加一個ADOQuery,和EXCEL控件后,使用下列代碼,即可:
procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,j:integer;
begin
try
ExcelApplication1.Connect; //連接EXCEL
ExcelApplication1.Visible[0] := True; //顯示EXCEL界面
ExcelApplication1.Workbooks.Add(NULL,0); //新增一個工作表
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); //連接到工作薄1
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet); //選擇工作表1
for j:=1 to ADOQuery1.RecordCount-1 do
begin
for i:=0 to ADOQuery1.FieldCount-1 do
begin
if ADOQuery1.Fields.IsNull then
ExcelApplication1.Cells.Item[j,i+1].Value
:= ' '
else
ExcelApplication1.Cells.Item[j,i+1].Value
:= string(ADOQuery1.Fields.Value);
end;
ADOQuery1.Next;
end;
except
ExcelApplication1.Quit;
ExcelApplication1.Disconnect; //關閉EXCEL的控制
end;
ExcelApplication1.Disconnect; //關閉EXCEL的控制
end;
 
感谢您的帮助,按照你的帮助,出现这样的问题:Class not Regestered.
另外我的电脑是没有安装EXCEL的....
如果安装了EXCEL的话,就很容易办的到了....还望帮忙....
 
請問你的DELPHI是什么版本的?
 
我的Delphi是6.0ban
 
后退
顶部