cxGrid怎样把数据导出到excel ???

Question

在线等待，急，cxGrid怎样把数据导出到excel ???

Answer 1

我知道用
ExportGrid4ToExcel(const AnsiString AFileName, Cxgrid::TcxGrid* AGrid, bool AExpand = true, bool ASaveAll = true, bool AUseNativeFormat = true);我是用c++builder 但是却提示不支持此类型，为什么

Answer 2

ExportGrid4ToExcel
你要引用它定义的单元

Answer 3

是不是，#include "cxExportGrid4Link.cpp"
我加了，编译都好好的，
就是执行ExportGrid4ToExcel他的时候说不支持此导出类型。
为什么？
难道还有什么要定义吗？？
ExportGrid4ToExcel("c:\a.xls",cxGrid1);

Answer 4

uses
  cxExportGrid4Link;procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportGrid4ToEXCEL('d:\wang.xsl',cxGrid1,True,True);
  ExportGrid4ToTEXT('d:\wang.txt',cxGrid1,True,True);
  ExportGrid4ToXML('d:\wang.xml',cxGrid1,True,True);
  ExportGrid4ToHTML('d:\wang.html',cxGrid1,True,True);
end;

Answer 5

filename := concat(combobox2.text+'½Ìʦ'+combobox3.text,'ÆÀ½Ì½á¹û' ,'.xls');
  title:=combobox2.text+'½Ìʦ'+'('+combobox3.text+')'+'    ½ÌѧÖÊÁ¿ÆÀ¼Û½á¹û';
  try
    ExcelApplication1 := TExcelApplication.Create(Application);
    ExcelWorksheet1 := TExcelWorksheet.Create(Application);
    ExcelWorkbook1 := TExcelWorkbook.Create(Application);
    ExcelApplication1.Connect;
  except
    Application.Messagebox('Excel Ã»Óа²×°!','Hello', MB_ICONERROR + mb_Ok);
    Abort;
  end;
  try
    ExcelApplication1.Workbooks.Add(EmptyParam, 0);
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
    with infor_db do
    begin
    pj_sum.First;
    for j := 0 to pj_sum.Fields.Count - 1 do
      begin
        ExcelWorksheet1.Cells.item[3, j + 1] := pj_sum.Fields[j].DisplayLabel;
        ExcelWorksheet1.Cells.item[3, j + 1].font.size :='14';
      end;
    for i := 4 to pj_sum.RecordCount + 3 do
      begin
        for j := 0 to pj_sum.Fields.Count - 1 do
          begin
            ExcelWorksheet1.Cells.item[i, j + 1] := pj_sum.Fields[j].Asstring;
            ExcelWorksheet1.Cells.item[i, j + 1].font.size :='14';
          end;
        pj_sum.Next;
      end;
      end;
    ExcelWorksheet1.Columns.AutoFit;
    ExcelWorksheet1.Cells.item[1, 2] := Title;
    ExcelWorksheet1.Cells.Item[1, 2].font.size :='18';    ExcelWorksheet1.SaveAs(filename);
    Application.Messagebox(pchar(filename), 'Hello',
      mb_Ok);
  finally
    ExcelApplication1.Disconnect;
    ExcelApplication1.Quit;
    ExcelApplication1.Free;
    ExcelWorksheet1.Free;
    ExcelWorkbook1.Free;
  end;
  end;
以前写过从数据库导到excel.
应该差不多