主题:关于操纵Excel表的问题
我在操纵Excel表的时候遇到一个问题,向各位大虾求教,
void __fastcall TMain_Form::Month_SubMenuClk(TObject *Sender)
{
try
{
ExcelApp = CreateOleObject ("Excel.Application");
}
catch(...)
{
ShowMessage("运行Excel出错,请检查并确认系统中安装了Office,然后再运行本软件");
return;
}
TIniFile * ini;
AnsiString DefaultDir;
AnsiString ExePath = ExtractFilePath( ParamStr ( 0 ) );
ini = new TIniFile ( ExePath + "code.cod");
DefaultDir = ini -> ReadString("BaseSet", "DefaultDir" , ExePath );
delete ini;
Workbook = ExcelApp.PG("workbooks").FN("Open", DefaultDir+"Example.xls");
ExcelSheet = Workbook.PG("sheets", "Source_Sum");
ExcelApp.PS("Visible",(Variant)false);
}
程序运行通过,语法上没问题,但是Sheet却显示不出来,通过进程查看了解到Excel确实也在运行,我想问各位如何处理,使Sheet显示出来。
qq:406163051
void __fastcall TMain_Form::Month_SubMenuClk(TObject *Sender)
{
try
{
ExcelApp = CreateOleObject ("Excel.Application");
}
catch(...)
{
ShowMessage("运行Excel出错,请检查并确认系统中安装了Office,然后再运行本软件");
return;
}
TIniFile * ini;
AnsiString DefaultDir;
AnsiString ExePath = ExtractFilePath( ParamStr ( 0 ) );
ini = new TIniFile ( ExePath + "code.cod");
DefaultDir = ini -> ReadString("BaseSet", "DefaultDir" , ExePath );
delete ini;
Workbook = ExcelApp.PG("workbooks").FN("Open", DefaultDir+"Example.xls");
ExcelSheet = Workbook.PG("sheets", "Source_Sum");
ExcelApp.PS("Visible",(Variant)false);
}
程序运行通过,语法上没问题,但是Sheet却显示不出来,通过进程查看了解到Excel确实也在运行,我想问各位如何处理,使Sheet显示出来。
qq:406163051