Запуск процедуры по имени с передачей ей параметров

@yuniki · Регистрация: 28.09.2007

Студворк — интернет-сервис помощи студентам

Хочу запускать процедуру по ее имени с передачей ей параметров

Пробую в Excel :
метод App.Evaluate - вызывает двойное срабатывание процедуры и не передает объекты .

Дальше пробую хоть в Excel , хоть в Vb ScriptControl методы .Run , ExecuteStatement , Eval - ничего не получается с вызовом процедуры - только выражения считает.

Еще есть для VB фишка (наиболее мощная как показывает ее работоа под Vb6) :
Private Declare Function EbExecuteLine Lib 'vba6.dll' (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Но она работает только для Vb , а нужно для Excel (для Excel она сваливается под Win2K).

26.10.2009, 17:41

Размести в коде листа книги:

Visual Basic
1
2
3
4
5
6
7
Sub TEST()
    CallByName ThisWorkbook, 'ECHO', VbMethod, 'Vasya'
End Sub
'
Sub ECHO(ByVal arg As String)
    MsgBox 'Hello, ' + arg + '!!!'
End Sub

Запусти Sub TEST --> выскочит окошко 'Hello, Vasya!!!'

26.10.2009, 17:42

Пардон, в коде самой КНИГИ.

@yuniki · 26.10.2009, 19:15 **[ТС]**

а по EbExecuteLine никто ничего не знает ?
В VB уж больно мощно она работает - по сути это интерпретатор VB.

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@yuniki 1 / 1 / 0 Регистрация: 28.09.2007 Сообщений: 285

	Запуск процедуры по имени с передачей ей параметров 25.10.2009, 14:54. Показов 1963. Ответов 3 Метки нет (Все метки) Хочу запускать процедуру по ее имени с передачей ей параметров Пробую в Excel : метод App.Evaluate - вызывает двойное срабатывание процедуры и не передает объекты . Дальше пробую хоть в Excel , хоть в Vb ScriptControl методы .Run , ExecuteStatement , Eval - ничего не получается с вызовом процедуры - только выражения считает. Еще есть для VB фишка (наиболее мощная как показывает ее работоа под Vb6) : Private Declare Function EbExecuteLine Lib 'vba6.dll' (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long Но она работает только для Vb , а нужно для Excel (для Excel она сваливается под Win2K). 0

Comanche
	26.10.2009, 17:42
	Пардон, в коде самой КНИГИ.

@yuniki 1 / 1 / 0 Регистрация: 28.09.2007 Сообщений: 285
	26.10.2009, 19:15 [ТС]
	а по EbExecuteLine никто ничего не знает ? В VB уж больно мощно она работает - по сути это интерпретатор VB. 0