★★求运用BCB的office控件将数据写入EXCEL表的代码★★

[牧牛人软件]

如果有整个Project最好发到[e-mail]。
谢谢！

[558047]

我有，给分不？
呵呵，给不给分我都给你，发过去了

[牧牛人软件]

谢谢！但是我要的是“运用BCB的office控件”；你的是OLE，速度很慢。

[constantine]

没用过

[baggio_zyj]

运用BCB的office控件:也很慢。
可以这样处理，把文件写入到.csv文件（利用TList的savetofile），处理速度很快。只是无法编排版面。

[Jeff20040819]

学习接分

[xujie839997]

速度效率方面两者比较如何？

[3996906]

to:
JetKingLau(时差)(★执子之手★) ( )
就这样写也是ole的吧
这样就是用到了接口中具体的方法，不容易出错，不像那个get什么.get什么.的

[JetKingLau]

事实上内核都是 OLE，只不过进行了封装而已。

速度方面，感觉比 OLE 差很远，但没有认真测试。

[3996906]

用bcb的控件也是ole的方式哦
ms就这样定义的，com就这样用的

[JetKingLau]

hoho，这分偶来拿吧，花了偶两个小时，才写出这几行代码，还参照了 BCB6 的 PWordDemo.bpr……

TExcelApplication、TExcelWorkbook、TExcelWorksheet、TButton 控件各一个，Button1 的 OnClick 事件代码如下：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
try {
try {
ExcelApplication1->Connect();
}
catch (Exception &exception) {
MessageDlg("Excel may not be installed", mtError, TMsgDlgButtons() << mbYes, 0);
Abort;
}
ExcelApplication1->set_Visible(0, True);
ExcelApplication1->set_Caption(StringToOleStr("JetKingLau Excel Automation"));
/*
//新建
OleVariant Template = EmptyParam;
OleVariant NewTemplate = False;
ExcelApplication1->Workbooks->Add(Template, NewTemplate);
ExcelWorkbook1->ConnectTo(ExcelApplication1->ActiveWorkbook);
*/
//打开
ExcelWorkbook1->ConnectTo(
ExcelApplication1->Workbooks->Open(
(Variant)"c:\\temp\\123.xls", (Variant)TNoParam(), (Variant)TNoParam(),
(Variant)TNoParam(), (Variant)TNoParam(), (Variant)TNoParam(), (Variant)TNoParam(),
(Variant)TNoParam(), (Variant)TNoParam(), (Variant)TNoParam(), (Variant)TNoParam(),
(Variant)TNoParam(), (Variant)TNoParam(), (Variant)0)
);

ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Worksheets->get_Item((Variant)1));
AnsiString cellString;
for(int r=1;r<=32;r++)
for(int c=1;c<=12;c++) {
cellString = AnsiString("R")+FormatFloat("00",r)+AnsiString("_C")+FormatFloat("00",c);
ExcelWorksheet1->Cells->set_Item(
(Variant)r,
(Variant)c,
(Variant)StringToOleStr(cellString));
}
ExcelWorkbook1->Save();
ExcelApplication1->Disconnect();
}
catch (Exception &exception) {
Application->ShowException(&exception);
ExcelApplication1->Disconnect();
}
}
//---------------------------------------------------------------------------

感觉比 Ole 方式繁多了，特别是变量类型。

[specialkid]

高手