[求助]如何将c++builder中的报表转化成excel文件？

jazy

有没有什么办法使得生成报表的时候，能够将数据形成excel格式，以进行方便的处理！
能否提供相关资料！

在这先谢谢了！！！

jazy

谢谢cinc的资料！！

关于上面[用ODBC数据库技术存取Excel]方法之二，我之前试过，只能读取excel中的内容，但是写我还没有实现！我是想不通过VBA编程就完成将数据库的内容写入excel中！

我再试试使用OLE的方法看看！！

jazy

        #define PG OlePropertyGet
        #define PS OlePropertySet
        #define FN OleFunction
        #define PR OleProcedure
      Variant Ex,Wb,Sh1&#59;
      Ex=Variant::CreateObject("Excel.Application&quot&#59;
      Ex.PG("WorkBooks&quot.PR("Open","c:\\book1.xls&quot&#59;
      Wb=Ex.PG("ActiveWorkBook&quot&#59; Sh1=Wb.PG("ActiveSheet&quot&#59;
      Edit1->;Text=Sh1.PG("Cells",1,1).PG("Value&quot&#59;
      for (int i=1&#59;i<=10&#59;i++)
      for (int j=1&#59;j<=10&#59;j++)
      Sh1.PG(&quot;Cells&quot;,i,j).PS(&quot;Value&quot;,i*100+j)&#59;
      Wb.PR(&quot;Save&quot&#59; Wb.PR(&quot;Close&quot&#59;


老是无法执行下去，产生一个异常！！

谁有实际这样处理过？能否分享一下经验！！谢谢！！

jazy

Wb.PR(&quot;Save&quot&#59;
Wb.PR(&quot;Close&quot&#59;
操作能否使用SaveAs参数？

Wb.PR(&quot;SaveAs&quot;,&quot;c://test.xls&quot&#59;
Wb.PR(&quot;Close&quot&#59;

jazy

搞定：


                      //创建应用对象
                      Variant ex,range&#59;
                      ex=Variant::CreateObject (&quot;Excel.Application&quot&#59;
                      //或者 ex=CreateOleObject (&quot;Excel.Application&quot&#59;
                      //创建工作簿对象：
                      //新建系统模板的工作簿
                      ex.OlePropertyGet(&quot;workbooks&quot.OleFunction(&quot;Add&quot&#59;

                      Variant wb&#59;
                      wb=ex.OlePropertyGet(&quot;ActiveWorkBook&quot&#59;
                      //创建工作表对象：
                      Variant sheet&#59;
                      sheet=wb.OlePropertyGet(&quot;ActiveSheet&quot&#59;
                      //创建区域对象：
                      //Variant range&#59;
                      //range=sheet.OlePropertyGet(&quot;Range&quot;,&quot;A1:A10&quot&#59;
                      //处理代码
                      //保存工作簿：
                      //wb.OleFunction(&quot;Save&quot&#59; //表格保存
                      wb.OleFunction(&quot;SaveAs&quot;,filename)&#59; //表格保存为，文件路径注意用&quot;\\&quot;
                      //退出EXCEL：
                      ex.OleFunction (&quot;Quit&quot&#59;

jazy

说的没错，但是如果只是为了提供对excel的支持而做成通用的API，代价是否太高！