WorkBook :=ExcelApp.WorkBooks.Add ;
for i:=1 to FieldCount do //转化字段名;
ExcelApp.Cells.Item(1,i) := DBGrid1.Columns[i-1].Title.Caption ;
QryOutPut.First;
for i:=1 to QryOutPut.RecordCount do
begin
Application.ProcessMessages;
for j:=1 to FieldCount do //转化一个记录
ExcelApp.Cells.Item(i+1,j) :=DBGrid1.Fields[j-1].AsString ;
QryOutPut.Next;
end;