Как правельно использовать Application.Run?

Программирование на Visual Basic for Applications
KocTeJIoM
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 30.06.2004 (Ср) 11:56

Как правельно использовать Application.Run?

Сообщение KocTeJIoM » 30.06.2004 (Ср) 13:41

Как правельно использовать Application.Run?
Возникло ряд проблем:
1) Если макрос находиться в другом файле то он выполняется два раза
2) Не всегда происходит возвращение управления из Application.Run

Прежде всего хотелось узнать, как правельно использовать метод .Run :?:

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 30.06.2004 (Ср) 15:04

С вышеперечисленными ошибками не сталкивался, Run работал нормально.

Запускается процедура и макрос следующим способом
Application.Run "'Имя книги расширением'!ИмяПодпрограммы" _
,СписокВходныхПараметров

Функция следующим способом
Application.Run ("'Имя книги расширением'!ИмяПодпрограммы" _
,СписокВходныхПараметров)


Если указанная книга не открыта, Excel попытается открыть ее из текущей директории.

KocTeJIoM
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 30.06.2004 (Ср) 11:56

Сообщение KocTeJIoM » 01.07.2004 (Чт) 12:40

Хорошая статья по этому поводу находется на

http://www.microsoft.ru/offext/develope ... aspx?id=50

Но у меня опять возникла проблемма я не могу получить программный доступ к семейство .VBAProject

KocTeJIoM
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 30.06.2004 (Ср) 11:56

Сообщение KocTeJIoM » 01.07.2004 (Чт) 13:01

Все правельно как сказал Vitaly1
Особое внимание для всех прошу уделить одинарым ковычкам которые закрывают имя файла, из-за которых у меня ничего не работало
Вот правельный вызов процедуры

Application.Run "'Filename.xls'!FuncionName()"

Если в проете много одинаково названных функций, то необходимо еще указать имя модуля
Application.Run "'Filename.xls'!ModuleName.FuncionName()"


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 117

    TopList