引言: 請問一下，有誰知道如何在delphi6將查詢到的資料轉為excel格式，還有轉換時電腦上一定要灌excel嗎？可以先寫程式碼判斷嗎？謝謝。

procedure TfmINV140j.Button2Click(Sender: TObject);
var
  I,_rowCount : Integer;
begin
  if not SaveDialog1.Execute then Exit;
  if DBGrid2.DataSource=dmINV140.DataKCH06 then
    with dmINV140.CDSKCH06 do begin
      try
       for i := 0 to FieldCount - 1 do
        FONEBook1.EntryRC[1,i 1] := Fields[i].DisplayLabel;
        First;
        _rowCount := 2;
        while not EOF do begin
          FONEBook1.SetSelection(_rowcount,1,_rowcount,FieldCount);
          for i := 0 to FieldCount - 2 do begin
            if fields[i] is TStringField then
              FONEBook1.TextRC[_rowCount,i 1] := fields[i].AsString
            else if Fields[i] is TNumericField then
              FONEBook1.NumberRC[_rowCount,i 1] := Fields[i].AsFloat
            else
              FONEBook1.EntryRC[_rowCount,i 1] := Fields[i].AsString;
          end;
          Next;
          inc(_rowCount);
        end;
          FONEBook1.Write(SaveDialog1.FileName,F1FileExcel97);
          ShowMessage('恅璃眒湔祫:' SaveDialog1.FileName);
        except
          ShowMessage('渣昫ㄐ恅璃帤悵湔ㄐㄐ');
        end;
      finally
      end;
    end;
end;