Export Data to Excel File

stevenjscn 2004-03-16 06:05:10

I want to export data to Excel File and I wrote codes below
void __fastcall TMainForm::ToolButton2Click(ToolButton2)
{
Variant ExApp,Wbs,Wb,Ws;

try
{
ExApp=CreateOleObject("Excel.App");
}
catch(...)
{
MessageDlg("Excel can not run normally",mtError,TMsgDlgButtons()<<mbOK,0);
}

* Wbs=ExApp.OlePropertyGet("WorkBooks");
Procedure Open("Open");
Wbs.Exec(Open<<sFileName);
ExApp.OlePropertySet("Visible",(Variant)true);
Wb=Wbs.OleFunction("Add");
Wb=ExApp.OlePropertyGet("ActiveWorkbook");
Ws=Wb.OlePropertyGet("ActiveSheet");
}
While the code runs to *, it shows me problems
"Project Export.exe raised exception class EAccessViolation with message
'Access Violation at address 004FD9B in module'Export.exe',Read of address 00000800'Process stopped. Use step or Run to continue"

I dont know whats matter with it, and pls help me to solve it. I am waiting on line.

...全文

341 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

stevenjscn 2004-03-19

打赏
举报

Sorry, I can not type Chinese in my OS, only English. While i compile the program fully. I can not export the data to excel correctly. when the program runs to OlePropertySet() function, it shows the critical error "Project Export.exe raised exception class EAccessViolation with message'Access Violation at address 004FD9B in module'Export.exe',Read of address 00000800'Process stopped. Use step or Run to continue", Otherwise, i select the select "Build with runtime packages" in packages Page, it can run normally, but while packing, it has problems

zzhong2 2004-03-19

打赏
举报

一：
用installshield develop 9或者installshield express v5.0打包
在http://www.51delphi.com/delphi/上,或www.ttdown.com可以下载，搜一下“installshield”就能找到。它有一步Additional Tools->Dependenciy Scanners(develop 9)其中头两项就是搜索你的exe还需要哪些库文件的,第一项是静态搜索:Perform Static Scanning第二项是动态搜索:Perform Dynamic Scanning,动态搜索比较全,可以先试静态搜索,不行再用动态搜索.

二：
要想实现全编译，在project(工程)->options(选项)里设置以下项目：

1、在linker页里：取消use dynamic RTL的选项。

2、在packages页里：取消build with runtime packages的选项。

3、以上两个步骤已经可以实现全编译了，但有一个选项是建议的：在compiler页里，按一下release按纽(上有绿色小人)，它的意义在于编译时将程序的一些信息不要编译进程序，这样可能会减少程序的大小。

用installshield develop 9或者installshield express v5.0打包
在http://www.51delphi.com/delphi/上,或www.ttdown.com可以下载，搜一下“installshield”就能找到。它有一步Additional Tools->Dependenciy Scanners(develop 9)其中头两项就是搜索你的exe还需要哪些库文件的,第一项是静态搜索:Perform Static Scanning第二项是动态搜索:Perform Dynamic Scanning,动态搜索比较全,可以先试静态搜索,不行再用动态搜索.

TR@SOE 2004-03-19

打赏
举报

I am always using Server object to write Office applications. My email is tr@netease.com. I have some samples and can share with you if you want.

JetKingLau 2004-03-18

打赏
举报

只是不选 Build with runtime packages 项还不行，还需要不选 Linker 页的 Use dynamic RTL 项。

lovebcb 2004-03-18

打赏
举报

出现什么错误？
－－－－－－－－－－－
楼主的英文不错，很标准啊～

stevenjscn 2004-03-18

打赏
举报

I know what caused this problem, but i dont know how to solve. In project options, I didnt select "Build with runtime packages" in packages Page. But when i select it, i use installshield to pack it . it can not run normally in other client's computer. How can I do?, please, please, please.... WAIT ON LINE. Score will be sent once the problem was solved.

JetKingLau 2004-03-16

打赏
举报

看看偶的例子
//---------------------------------------------------------------------------
bool GridToXLS(TStringGrid *grid, AnsiString file, AnsiString title, AnsiString inscribe)//将表格内容保存到Excel文档
/*
功能：
将TStringGrid内容保存到Excel文档
参数：
grid - TStringGrid 控件
file - 输出文件名
title - 标题
inscribe - 落款
返回值：
true - 成功
false - 不成功
*/
{
bool suc = false;
Variant ExcelApp;
try {
ExcelApp = Variant::CreateObject ("Excel.Application");
}
catch(...) {
return(false);
}
try {
ExcelApp.OlePropertySet("Visible",(Variant)false);//使Excel程序不可见
Variant WorkBook1;
WorkBook1 = ExcelApp.OlePropertyGet("WorkBooks").OleFunction("Add"); //默认工作簿
Variant Sheet1;
Sheet1 = WorkBook1.OlePropertyGet("ActiveSheet");
String strValue="abcdefg";
int row = 4;
Variant Range1;
Range1 = Sheet1.OlePropertyGet("Range", (AnsiString("A2:")+AnsiString::StringOfChar('A'+grid->ColCount-1,1)+"2").c_str()); //单元格合并
Range1.OleFunction("Merge",false);//合并单元格
Range1.OlePropertyGet("Cells").OlePropertySet("Value",title.c_str());//设置标题

for(int c=0;c<grid->ColCount;c++)
for(int r=0;r<grid->RowCount;r++) {//逐行设置表格数据
Sheet1.OlePropertyGet("Cells",r+row,c+1).OlePropertySet("Value",grid->Cells[c][r].c_str());
}
Range1 = Sheet1.OlePropertyGet("Range", (AnsiString("A")+IntToStr(grid->RowCount+5)+":"+AnsiString::StringOfChar('A'+grid->ColCount-1,1)+IntToStr(grid->RowCount+5)).c_str()); //单元格合并
Range1.OleFunction("Merge",false);//合并单元格
Range1.OlePropertyGet("Cells").OlePropertySet("Value",inscribe.c_str());//设置落款

Range1 = Sheet1.OlePropertyGet("Range", (AnsiString("A1:")+AnsiString::StringOfChar('A'+grid->ColCount-1,1)+IntToStr(grid->RowCount+6)).c_str()); //选择单元格
Range1.OlePropertyGet("Cells").OlePropertyGet("Font").OlePropertySet("Name","Times New Roman");
Range1.OlePropertyGet("Cells").OlePropertyGet("Font").OlePropertySet("Size",12);

if( !FileExists(file) || DeleteFile(file) ) {
WorkBook1.OleFunction("SaveAs",file.c_str());
suc = FileExists(file);
}
ExcelApp.OleFunction ("Quit");
ExcelApp =Unassigned;
return(suc);
}
catch(...) {
return(false);
}
}
//---------------------------------------------------------------------------

stevenjscn 2004-03-16