[Hans]

fileName = fileNameControl.text();
        fileNameControl.text(fileNameTrim(fileName));
        excel = new COM('Excel.Application');
        wbs = excel.workbooks();
        wb = wbs.open(fileName);
        wss = wb.WorkSheets();
        ws  = wss.Item("Акт");
        while(cycleFlag == "zyclus")
        {
    //cell A
            r               = ws.range("A"+int2str(counter1));
            temp            = r.value2();
            if(temp.toString() != "VT_EMPTY")
                numPos      = temp.double();
            else
            {
                cycleFlag   = "nicht zyclus";
                break;
            }
        }