//----------------------------------------
bool EXCEL_APP::AddMacro(AnsiString MacroStrings){
// создать макрос в книгу EXCEL
int ItemCount;
Variant Modul,Workbook,VBProject,VBComponents,Item,Codemodule;

AnsiString ComponentName;
bool IsRus=false,IsEng=false,Result=true;
try{
    //В Options Excel поставил галочку на
    //Security-Macro security-Trusted publishers и всё заработало
    VBProject=this->Book.OlePropertyGet("VBProject");
    VBComponents=VBProject.OlePropertyGet("VBComponents");
    ItemCount=VBComponents.OlePropertyGet("Count");
    // по русски?
    for(int i= 1 ;i<=ItemCount;i++){
        Item=VBComponents.OleFunction("Item",i);
        ComponentName=Item.OlePropertyGet("Name");
        if(ComponentName.AnsiCompareIC("ЭтаКнига")== 0 ){
            IsRus=true;
            break;
        }
        if(ComponentName.AnsiCompareIC("ThisWorkbook")== 0 ){
            IsEng=true;
            break;
        }
    }
    
    if(Item.IsNull()){
        throw Exception("EXCEL_APP:AddMacro()\n"
          "Не найдена ни одна из компонент [ЭтаКнига],[ThisWorkbook]");
    }
    Modul=Item.OlePropertyGet("Codemodule");
    Modul.OleFunction("AddFromString",MacroStrings);
}
catch(Exception &e){
    AnsiString s="Не удалось создать макрос\n";
    char b[ 81 ];
    strncpy(b,MacroStrings.c_str(), 80 );
    s=s+b;
    MessageBox( 0 ,s.c_str(),"Ошибка",MB_OK);
    Result=false;
}
return Result;
}