1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;
const
  {$J+} CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); {$J-}
  CXlsEof: array[0..1] of Word = ($0A, 00);
var
  FStream: TFileStream;
  I, J: Integer;
begin
  Result := False;
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    for i := 0 to AGrid.ColCount - 1 do
      for j := 0 to AGrid.RowCount - 1 do
        XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;					

1:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Hier Pfad und Dateinamen Einfügen];Extended Properties= "Excel 8.0;HDR=Yes";Persist Security Info=False;Persist Security Info=False					

1:
2:
3:
4:
5:
6:
7:
8:

  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dummy.xls;Extended Properties= "Excel 8.0;HDR=Yes";Persist Security Info=False;Persist Security Info=False';
  ADOConnection1.Connected := True;
  ADOQuery1.Connection := ADOConnection1;
  ADOQuery1.SQL.Text := 'CREATE TABLE Test1 (ID integer, Name Varchar(50))';
  ADOQuery1.ExecSQL;
  ADOQuery1.SQL.Text := 'INSERT INTO Test1 (ID, Name) VALUES (1, ''Müller'')';
  ADOQuery1.ExecSQL;
  ADOConnection1.Close;