Дежурный стрелочник
Группа: Участник
Сообщений: 46
|
Vopros adminu — v uroe bilo napisano prierno tak: NO pri popitke prisvoit` kakoe-to opredelennoe imya (napr File="c:\ghg.xls") govorit sleduyeshee: Error i ukazivaet na sled stroku v sysvari.h. TAutoArgs ne pomogaet. Kak peredat` iz Edit1 konkretnoe imya chtobi ono normal`no raspoznalos` builderom?
return OlePropertyGet(name, static_cast(&args));
void __fastcall Texceltable::ExcelInit(String File)
{
TAutoArgs<1> args;
args[1] = File;
try {
App=Variant::CreateObject("Excel.Application");
} catch(...)
{ShowMessage("Cannot create Excel object: may be Excel not installed on this PC.Error");}
try {
if (File==""){
App.OlePropertyGet("WorkBooks").OleProcedure("Open", File);}
else{
App.OlePropertyGet("WorkBooks").OleProcedure("add");}
Sh=App.OlePropertyGet("WorkSheets",1);
} catch(...)
{ShowMessage("Error in opening Microsoft Excel WorkBook");}
} |
