Visual Basic и Excel

[Валера]

Кто может помогите... Не могу из проекта вызвать макросы (SolverOk и SolverSolve) программы Поиск решения (Excel). Пробовал использовать функции ExecuteExcel4Macro, Run, но не получается.

[GSerg]

Функции солвера вызываются точно так же, как и все остальные функции. Просто по имени без всяких Run.
Просто перед этим нужно поставить ссылку на Solver.xla в References.

[Валера]

Привет всем!
Проблема моя глубже.
Дано из проекта VB обратиться к макросам Поиска решения (Excel).
Причем, в общем случае, неизвестно загружена библиотека (Solver.xla) в память книги Excel или нет (используя механизм раннего связывания). Очевидно надо использовать механизм позднего связывания функцией CreateObject(..... что здесь ставить для доступа к программе Solver, не знаю).

[GSerg]

Ещё раз.

В проекте должна стоять ссылка на solver.xla. Потому что solver - не COM-объект, а набор функций.

[Igor_123]

Попробуй записать макрос и подключить надстройку, а в коде посмотри что получилось.

Только, если solver.xla нет физически на диске, нужно носить за собой

[Igor_123]

GSerg

solver.xla - это AddIns к Excel, и подключать его нужно в Excel'е, а в проекте VB посредством интерфейса Екселя использовать. Или возможно по другому?

[GSerg]

Открой редактор VBA. Зайди в меню Tools-References. Нажми Browse. Выбери Microsoft Excel files (*.xls, *.xla). Найди Solver.xla. Нажми OK.

[Igor_123]

Понятьно, а я его искал в референсах ВБ.
Кстати у меня рядом с solver.xla лежит solver32.dll экспортирует только одну функцию Solve. И запустить её не получилось.

Пытаюсь так:

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

Private Declare Function Solve Lib "c:\Program Files\Microsoft Office\OFFICE11\Library\SOLVER\SOLVER32.DLL" (Optional SetCell As Variant, Optional MaxMinVal As Variant, Optional ValueOf As Variant, Optional ByChange As Variant) As Variant

Private Sub Command1_Click()
Solve SetCell:="$J$4", MaxMinVal:=1, ValueOf:="0", ByChange:="$A$2"
End Sub

Пишет не найден файл. Переносил файл в корень диска, результат одинаков

[GSerg]

А не надо её запускать.

Подключаешь xla и юзаешь SolverSolve.

[Igor_123]

Да это понятно и мне сейчас не нужно.

Только понимаешь, поглядел я на код в solver.xla и не нашёл там вызовов внешних функций. Хотя может проглядел чего.

[RayShade]

Чесслово, разговор про Фому и Ерему.

GSerg нормально ответил на вопрос человеку. Что разводить дискуссию на пустом месте то?

[Igor_123]

Ну ладно, сразу надо было сказать, что нельзя

Я пытался расширить свой кругозор.

Ну на нет и суда нет

[Валера]

Всем спасибо!
Сам нашел, правда пришлось повозиться 2 с лишнем дня....
и все из-за "каких-то" кавычек.......