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

牧牛人软件 2004-09-01 11:17:23

如果有整个Project最好发到wghsoft@126.com。
谢谢！

...全文

429 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

specialkid 2004-09-30

打赏
举报

高手

JetKingLau 2004-09-10

打赏
举报

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 方式繁多了，特别是变量类型。