请问如果将一个查询出来的表存另存在一个xls里面

Question

请问用什么控件，找了半天都搞不定，哪个老大能给个例子最好，或者告诉用什么控件！！！！谢谢

Answer 1

procedure RsToExcel(AdoQuery1: TAdoQuery; ExcelFileName: string);
var
  ExcelApp, Book, Sheet, xlQuery: OleVariant;
begin
  application.ProcessMessages;  if not ADOQuery1.Active then
    ADOQuery1.Open;  ExcelApp := CreateOleObject( 'Excel.Application' );  //创建
  try
    if ExcelApp.Workbooks.count < 1 then
      ExcelApp.WorkBooks.Add;
    Book := ExcelApp.Workbooks[1];
    if Book.Worksheets.Count < 1 then
      Book.Worksheets.Add;
    Sheet := Book.Worksheets[1];    xlQuery := Sheet.QueryTables.Add(ADOQuery1.Recordset, Sheet.Range['A1']);
    //xlQuery.FieldNames := false;
    xlQuery.Refresh;    Sheet.SaveAs(ExcelFileName);
  finally
    Sheet := Unassigned;
    Book := Unassigned;
    if not VarIsEmpty(ExcelApp) then
      ExcelApp.Quit;
    ExcelApp := Unassigned;
    //if ADOQuery1.Active then ADOQuery1.Close;
  end;
end;

Answer 2

Undeclared identifier: 'CreateOleObject'为什么我不能创建ole的对象啊