Галактика в вопросах и ответах

Код: Выделить всё

    if formula_0<>'='
    {  xlSetCellFormula(formula_0,wexrow,2,wexrow,30)
    
       if formula_01<>''
       { var ww_bas :string;
         ww_bas:=GetStringParameter('Files','OutputFilesDirectory',0)
           +'\!tmp.bas'
         if fileExist(ww_bas) deletefile(ww_bas)
         logstrtofile(ww_bas,'')
         logstrtofile(ww_bas,'Sub AddFormula(ss As String, row As Integer, col As Integer)')
         logstrtofile(ww_bas,'  Cells(row, col).FormulaR1C1 = Cells(row, col).FormulaR1C1 & ss')
         logstrtofile(ww_bas,'End Sub')

         xlImportModule(ww_bas)
         for(wexcol:=2;wexcol<=30;wexcol++)
           xlRunMacro('AddFormula'+    '('+formula_01+','+string(wexrow)+','+string(wexcol)+')' )
       }    
    }