, 23 2015 . 10:43
+
_ !
!
( ) ADOQuery
[Code]procedure TfMain.Button9Click(Sender: TObject);
Var
XLApp,Sheet,Colum:Variant;
index,i:integer;
begin
XLApp:=CreateOLEObject('Excel.Application'); // Excel
XLApp.Visible:=true; // EXcel
XLApp.Workbooks.Add(-4167); / ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83084