Использование функций надстройки solver.xla в VBA

Формулировка задачи:

Здравствуйте.
Мне необходимо использовать функции надстройки "Поиск решения" в Excel 2003
в своей программе на VBA в Office. Вообще возможно ли это ? И если да, то как ?
Если это все-же невозможно, то можно как-то вытянуть эти функции из библиотеки
Solver32.dll в Delphi или VB?
Заранее благодарен за ответ.
kobylkin

Решение задачи: «Использование функций надстройки solver.xla в VBA»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> MySolver()
    <font color="blue">Dim</font> wbSolv <font color="blue">As</font> Workbook
    
    <font color="00AA00">'подключаем <font color="teal">"Поиск решений"</font></font>
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
    <font color="blue">Set</font> wbSolv = Workbooks(<font color="teal">"Solver.xla"</font>)
    
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> EH
    <font color="blue">If</font> wbSolv <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font>
        <font color="blue">Set</font> wbSolv = Workbooks.<font color="blue">Open</font>(ThisWorkbook.Path & <font color="teal">"\Solver.xla"</font>)
    <font color="blue">End</font> <font color="blue">If</font>

    <font color="00AA00">'Инициализируем</font>
    Application.Run <font color="teal">"Solver.xla!Auto_Open"</font>
    Application.Run <font color="teal">"Solver.xla!SolverReset"</font>
    
    <font color="00AA00">'Данные для расчета</font>
    Application.Run <font color="teal">"Solver.xla!SolverOk"</font>, <font color="teal">"$E$4"</font>, <font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>0</b></font>, <font color="teal">"$G$7:$G$9"</font>
    Application.Run <font color="teal">"Solver.xla!SolverAdd"</font>, <font color="teal">"$G$7"</font>, <font color="darkblue"><b>1</b></font>, <font color="teal">"$G$8"</font>
    <font color="00AA00">'Application.Run <font color="teal">"Solver.xla!SolverAdd"</font>, <font color="teal">"$G$8"</font>, 3, <font color="teal">"$G$9"</font></font>
    Application.Run <font color="teal">"Solver.xla!SolverSolve"</font>
    
    <font color="blue">Exit</font> <font color="blue">Sub</font>
EH:
    MsgBox Err.Source & <font color="teal">"~"</font> & Err.Description
<font color="blue">End</font> <font color="blue">Sub</font>
                        