//Mengakses data dari Delphi ke Excel 
procedure TForm1.Button3Click(Sender: TObject);
var Sheet	: Variant;
      i , j	: integer;   
begin
         V.Workbooks.Add(xlWBatWorkSheet);
         j := V.Workbooks.Count; 
         V.Workbooks[ j ].WorkSheets[1].Name := 'Contoh 3';
         Sheet := V.Workbooks[ j ].WorkSheets['Contoh 3'];
         for i := 1 to 10 do
                Sheet.Cells[i, 1] := i;
end;
