谁有把Query导出txt、Excel、Word...文件的控件？来一个OK？？？？？

Question

奇怪，我把dbgrid导出EXCEL,老是少了最后一栏。 

Answer 1

一个是将（商务管理软件）开发人员的报表设计工作量降为零，同时为最终用户提供“简单易用（这很重要）”、“功能强大”、“灵活方便”的报表自定义途径的报表组件。
========================================================================
要的话请Email:[email protected]
========================================================================SReport 是谁？
=============
  一个是将（商务管理软件）开发人员的报表设计工作量降为零，同时为最终用户提供“简单易用（这很重要）”、“功能强大”、“灵活方便”的报表自定义途径的Delphi Vcl。SReport 能做什么？
=================
    （一）自定义页面、边距、字体；
    （二）自定义标题和页眉页脚；
    （三）在表头尾可以打印任何相关数据主表中的数据和自定义标签。
    （四）可以定义明细数据中要打印的字段、标题、宽度、对齐方式、字体。
    （五）可以定义明细数据是否页计、是否累计、是否总计、大写字段；
    （六）实现针打中的卷纸打印－打多少内容，走多少纸。
    （七）直接生成文本文件、EXCEL格式文件、HTML网页格式文件。
    （八）用户可以自己定义是否要打印报表顶端的单位信息标志。
    （九）支持同一报表多格式并存，按用户的选择输出不同的报表。
    
SReport 是如何工作的？
=====================
    提供需要打印的数据集(Table,Query,ADOQuery等即TDataSet)名称并保证它处于打开状态。其它一切问题就由控件自己搞定（单表、主从结构、多主一从构，自定义结构）。==================================================
Write by Songlichao  2001/05/23
Email:[email protected]
==================================================
此处有下载呀：
http://www.csdn.net/cnshare/soft.asp?class=219

Answer 2

其实，使用ExpressQGrid等系列组件就可以完成，小弟也是刚用上，
感觉非常棒！！

Answer 3

to 楼上：它不支持转word啊。

Answer 4

我有一个组件qexport192能导成excel,word,txt,html等的文档
可是不知道到什么地方下的
有源代码
谁要？联系我：[email protected]
qq : 28602895
我一定发

Answer 5

我有一个组件qexport192能导成excel,word,txt,html等的文档
可是不知道到什么地方下的
有源代码
谁要？联系我：[email protected]
qq : 28602895
我一定发

Answer 6

我有一个组件qexport192能导成excel,word,txt,html等的文档
可是不知道到什么地方下的
有源代码
谁要？联系我：[email protected]
qq : 28602895
我一定发

Answer 7

procedure Tclgl_blcj_sform.SpeedButton5Click(Sender: TObject);
var  Temp_Worksheet: _WorkSheet;
     i,j:integer;
begin
  Try
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[0]:=True;
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
    Temp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)
    as _WorkSheet;//(注意)
    ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
    for i:=1 to AdoQuery1.FieldCount  do
      ExcelWorksheet1.Cells.Item[1,i]:=AdoQuery1.Fields[i-1].FieldName;
    for i:=1 to AdoQuery1.FieldCount  do
    begin
      AdoQuery1.First;
      for j:=2 to AdoQuery1.RecordCount+1 do
      begin
        ExcelWorksheet1.Cells.Item[j,i]:=AdoQuery1.Fields[i-1].AsString;
        AdoQuery1.next;
      end;
    end;
  flag:=true;    //关闭标志
  except
    MessageDlg('连接EXCEL失败，也许您没安装EXCEL,或其他原因!',mtInformation,[mbOk],0);
  end;
end;
procedure Tclgl_blcj_sform.SpeedButton6Click(Sender: TObject);
begin
    AdoQuery1.Active:=false;
   if flag=true then
   begin
       try
           ExcelApplication1.Quit;
           ExcelWorksheet1.Disconnect;
           ExcelWorkbook1.Disconnect;
   ExcelApplication1.Disconnect;
      except
      end;
   end;
   close;
end;

Answer 8

我有一个AHword97控件，可以用发送到

Answer 9

Aest支持xls,doc,rtf,html等六种格式，想要把EMail留下。

Answer 10

SReport,我用过，嫌他太大，而且不支持delphi6