请问如何才能将ADOQuery所查询到的内容保存为excel文档.

Question

原来文档是不存在的，保存的文档是新建的。谢谢。

Answer 1

procedure TIMCSFormTop.ExportToExcel(const sExcelFileName: string;
  const cxgvMain: TcxGridDBTableView);
var
  eclApp,WorkBook: Variant;
  nRowCount, nColumnCount, i,j,RowIND: integer;
begin
  try
    eclApp := CreateOleObject('Excel.Application');
    WorkBook := CreateOleObject('Excel.Sheet');
    WorkBook := eclApp.WorkBooks.add;    nColumnCount := cxgvMain.ColumnCount;
    for i := 0 to nColumnCount - 1 do
      eclApp.Cells(1,i + 1) := cxgvMain.Columns[i].Caption;    RowIND := 0;
    with cxgvMain.ViewData do
    begin
      nRowCount := RowCount;
      for i := 0 to nRowCount - 1 do
      begin
        if cxgvMain.ViewData.Rows[i].IsData then
        begin
          for j := 1 to nColumnCount do
            eclApp.Cells(RowIND + 2,j) :=Rows[i].DisplayTexts[j - 1];
          RowIND := RowIND + 1 ;
        end;
      end;
    end;
    WorkBook.Saveas(sExcelFileName);
    WorkBook.close;
    Showmessage('Save Success!');
  except
    ShowMessage('Save to Excel Failed!');
  end;以上程序是將cxgrid的内容輸出到excel中，你將那些Rows[i].DisplayTexts[j - 1]改爲ADOQuery.Fields[i].value就差不多了，自己再測試一下

Answer 2

请问：TIMCSFormTop.ExportToExcel是在哪里啊？

Answer 3

我打ADOQuery1.SaveToFile('c:\1.txt');在1.txt中出现的都是乱码，另外，我保存的时候，想用SaveDialog1配合实现请大家指教，谢谢。

Answer 4

AdoQuery应当有直接存的方法，或者打开Excel一条一条写是最条的办法

Answer 5

这是我用的方法，要用到剪帖板，这样在导出大量数据时很快，普通方法非常慢。看你好像是个新手，先把面向对象的编程技术简要学习一下吧。
procedure WriteExcel(AdsData: TCustomADODataSet; sName, Title: string);
var
  ExcelApplication1: TExcelApplication;  i, j,k: integer;
  filename: string;
  ColoumName:string;
  s:string;
  tsList:TStringList;
  asheet:Variant;
begin
if Application.MessageBox('是否将记录转换成Excel文件?','转换提醒',MB_YESNO)=IDYES thenbegin
   if ADsData.Active=False then abort;
   Screen.Cursor:= crSQLWait;
   try
     ExcelApplication1 := TExcelApplication.Create(Application);
     ExcelApplication1.Connect;
  
     ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
     aSheet:=ExcelApplication1.Worksheets.Item[1];
   except
     Application.Messagebox('Excel 没有安装!', '操作提示', MB_IConERROR + mb_Ok);
     Abort;
   end;
  try
    tsLIst:=TStringLIst.Create;
    with ADSData do
    begin
     First;
     s:='';
     for i:=0 to FieldCount-1 do
     if Fields[i].Visible=True then
     s:=s+Fields[i].DisplayLabel+#9;
     tsList.Add(s);
     While Not Eof do
    begin
          S := '';
          for I := 0 to FieldCount -1 do
            begin
              If fields[I].visible=true then
                 S := S + #9 + trim(Fields[I].AsString);
                 end;
          System.Delete(S, 1, 1);
          tsList.Add(S);
          Next;
        end;
    end;
    Clipboard.AsText:=tsList.Text;
  finally
    tsList.Free;
  end;
   ExcelApplication1.Disconnect;   with AdsData do
   begin
   k:=AdsData.RecordCount;
   for i:=0 to FieldCount-1 do
   if ((AdsData.Fields[i].DataType=ftString)or (AdsData.Fields[i].DataType=ftWideString)) and (AdsData.Fields[i].Visible=True) then
    asheet.Range[chr(65+i)+'1',chr(65+i)+IntToStr(k+1)].NumberFormat:='@';
   end;   asheet.paste;
   clipboard.Clear;
   asheet.Columns.AutoFit;
    ExcelApplication1.Visible[0]:=True;
     ExcelApplication1.Free;
   Screen.Cursor:= crDefault;end;
end;

Answer 6

最简单的方法干脆用DEV EXPRESS的dxDBGrid就可以了，就一句话
dxDBGrid1.SaveToXLS(FileName,True);
所见即所得。

Answer 7

请问jason:控件dxDBGrid有多表头的功能吗？若有的话，能否将多表头也导出到Excel文件中去呢？请指教！

Answer 8

谢谢各位关注我用一个savedialog保存好了execl文件请问如何打开刚才保存好的那个execl文件谢谢