高分请教TExcelApplication 的 Run 的用法

Question

高分请教TExcelApplication 的 Run 的用法

Answer 1

各位兄弟，我已经搞掂了
贴出来共享一下：
Variant ob,ap,wb,wk;
////////////////////////////////////////////////////////////
    if(OpenDialog1->Execute())
    {
        ap=Unassigned;
        ob=Unassigned;
        wb=Unassigned;
        wk=Unassigned;
        OleContainer1->CreateObjectFromFile(OpenDialog1->FileName, False);
        OleContainer1->DoVerb(ovShow);
    }///////////////////////////////////////////////////////
    ob=OleContainer1->OleObject;
    ap=ob.OlePropertyGet("Application");
    wb=ap.OlePropertyGet("WorkBooks",1);//前面一定要#include <utilcls.h>
    wk=wb.OlePropertyGet("WorkSheets",1);
    ap.OleFunction("Run","ListMenuInfo");
////////////////////////////////////////////////////////