проблемы с Excel

[AndyD]

2 mit
Не все так запущено.

static void ShowExcel(Args _args)
{
    ComExcelDocument_Ru     excel = new ComExcelDocument_Ru();
    COM                     Doc;
    COM                     App;
    COM                     Sheet;
    COM                     r;
    LedgerTable             LedgerTable;
    int                     row = 1;
    ;
    excel.newFile();
    excel.Visible(True);
    Doc = excel.getComDocument();
    App = Doc.Application();
    Sheet = App.ActiveSheet();
    App.Interactive(ComVariant::createFromBoolean(False));
    while select LedgerTable
    {
        r = Sheet.Range(ComExcelDocument_Ru::numToNameCell(1, row));
        r.Value2(ComVariant::createFromStr(LedgerTable.AccountNum));
        r.Select();
        r = Sheet.Range(ComExcelDocument_Ru::numToNameCell(2, row));
        r.Value2(ComVariant::createFromStr(LedgerTable.AccountName));
        row++;
    }
    r = Sheet.Range(ComExcelDocument_Ru::numToNameCell(1, 1), ComExcelDocument_Ru::numToNameCell(2, 1));
     r = r.EntireColumn();
     r.AutoFit();
    App.Interactive(ComVariant::createFromBoolean(True));
}