能否直接把数据（不从数据库导入）写入excel里

Question

如题

Answer 1

可以呀
1.创建Excel的Application对象，往每一个单元格写
2.写文本文件(*.csv)
3.用ADO连接Excel文件，用Insert语句也行

Answer 2

var
  ExcelApp, WorkBook: Variant;
begin
  try
    ExcelApp := CreateOleobject('Excel.Application');
    WorkBook := CreateOleObject('Excel.Sheet');
    ExcelApp.Caption := 'title';
  except
    OrtMsgBox(...);
    Exit;
  end;    WorkBook := ExcelApp.WorkBooks.Add;
    WorkBook.Application.ActiveWindow.Caption := APrintRec.PageHeader;