Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.04.2012, 18:41   #1
N111
Новичок
Джуниор
 
Регистрация: 14.04.2012
Сообщений: 1
По умолчанию Продолжить выполнение после Application.Run

Подскажите пожалуйста. Пишу процедурку в книге Excel
Мне необходимо выполнить Процедуру, которая находится в другой книге Excel
Я пишу :
For Each fil In curfold.Files
. . .

Application.Run ("Полный_путь_к_файлу!ИмяМоейПроцед йры")

'Вернуться в это место
Next

У меня программа выполняет все правильно, но после исполнения Application.Run ("Полный_путь_к_файлу!ИмяМоейПроцед йры") не хочет вернуться к дальнейшему продолжению выполнения программного кода, что я делаю не так?
N111 вне форума Ответить с цитированием
Старый 14.04.2012, 19:45   #2
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Запускаю в таком виде
Все отлично работает
Обратите внимание на апострофы...
Код:
Sub a()
    Application.Run ("'c:\1.xls'!m")
    MsgBox "1"
End Sub
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 14.04.2012, 20:11   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Может, в той процедуре есть оператор End?
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
application run *Devil* Общие вопросы Delphi 5 12.12.2012 21:30
Продолжить после exit(); Rost93 PHP 4 05.09.2011 19:36
ошибка run-time 1004: application-defined or object-defined error Святой Дьявол Microsoft Office Excel 3 26.06.2010 11:06
После ошибки продолжить работу дальше Shouldercannon Общие вопросы Delphi 2 21.04.2009 11:23