【结贴】到处ＥＸＣＥＬ字数限制问题**

newjack

由于２７２８版本　ＤＢＧＲＩＤ　限制了导出ＥＸＣＥＬ字数限制的问题，现在请教可以直接把ＳＥＬＥＣＴ出来的内容导到ＥＸＣＥＬ的代码！查了半天都是用ＤＢＧＲＩＤ控件实现的！　

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=22763
13楼

newjack

我试了一下有多错　能否提供导出的的代码
我的要导的内容是这样的
select type,content from table1
就两个字段　然后导到ＥＸＣＥ了表格了

lixy

在uses里面添加  system  单元。
代码都有了，不知道还要多详细啊。。。

newjack

老大啊，提供的太不清楚了，我研究了半天，而且也没有注释，还非要打开一个存在ＥＸＣＥＬ才行，我自己都不能接受，何况客户呢，分享的出来以供大家参考；

fxls := ComObj.CreateOleObject('excel.Application');
    FApp := DispatchHelper.Create(fxls);
    FApp.PropertyPut('Visible', [True]);

    docs := FApp.PropertyGet('Workbooks',  []);　　    FDocs := DispatchHelper.Create(docs);
    FDocs.InvokeMethod('ADD', []); //加载一个空的工作薄
    lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [1,1]));
    lcells.PropertyPut('value',['id]);

    lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [1,2]));
    lcells.PropertyPut('value',['name]);
　quaery1.close;
    query1.CommandText :='select id,name from table';
    query1.open;
   query1.First;
   row :=2;
   i:=0;
   count:=query1.RecordCount;
   while not query1.Eof do
   begin
      id:=query1.FieldByName('id).asstring;
      name:=query1.FieldByName('name').asstring;
      col:=1;// 我这里才两列所以不需要循环了，如果有多列自己循环
        lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [row,col]));
        lcells.PropertyPut('value',[id]);
        lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [row,col+1]));
        lcells.PropertyPut('value',[name]);
      query1.Next;
      row :=row+1;
   end;

lixy

想办法隐藏起来嘛。看看vba就知道了。
我写的新例子。
procedure TCT1.Button2Click(Sender: TObject);
var
   FApp,FDocs ,lcellsispatchHelper;
begin

    FApp := DispatchHelper.Create(ComObj.CreateOleObject('excel.Application'));
   // FApp.PropertyPut('Visible', [True]);
    FDocs := DispatchHelper.Create(FApp.PropertyGet('Workbooks',  []));
   // FDocs.InvokeMethod('Open', ['c:\test.xls']);
     FDocs.InvokeMethod('Add', []);
    lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [5,5]));
    lcells.PropertyPut('value',['justep']);

                  //ActiveWorkbook.SaveAs
    FDocs := DispatchHelper.Create(FApp.PropertyGet('ActiveWorkbook',  []));

    FDocs.InvokeMethod('SaveAs', ['c:\test.xls']);
    fapp.InvokeMethod('quit', []);
end;

newjack

再问一下，如何控制ＥＸＣＥＬ的宽度和底色？

jiahaiming

这个需要查一下vba的帮助了。
或者楼主可以在设置颜色时，录制一个宏，然后把代码移植到平台上来。

Akon

楼主,还有问题不?没问题就结帖了

newjack

可以揭贴了