Как завершить программу (используя функцию end) с ненулевым кодом завершения?

Вопрос наверное глупый, но я не специалист по vba
Скажите как завершить программу (использую функцию end) с ненулевым кодом завершения

0

А как Вы код завершения получаете? Что под этим подразумевается?

0

в смысле если на с++
int main(....)
{
return 1;
}
Т.е. код который возвращается в командную строку как результат выполнения программы

Добавлено через 1 минуту
т.е. предполагается что эта программа (которая должна возвращать код) будет вызываться из основной программы, которой нужно отловить результат работы вызванной программы

0

Так называйте не Sub, а Function:
и вызов такой функции:
msgbox Test

0

речь не о функции или процедуре, а о коде завершения процесса
функция End
или такого в vb не возможно?

Добавлено через 1 минуту
т.е. просто end не end sub

0

А как Вы собрались вызвать код в VBA из другой программы/файла?

0

точно, я перепутал тему, не vba конечно, а visual basic

0

Вопрос наверное глупый, но я не специалист по vb
Скажите как завершить программу (использую функцию end) с ненулевым кодом завершения

0

Нужно использовать API-функцию:

0

В общем случае return в С это тоже самое, что принудительное присвоение возвращаемого значения. И это не тоже самое, что End. End завершает все процедуры и(вроде бы) закрывает поток. Поэтому после End нельзя уже ничего получить от процедуры.
Вывод: строить логику процедур таким образом, чтобы процедура всегда завершалась корректно и передавала все необходимые значения пока она работает. Насколько знаю в VB нельзя после End ничего получить, если только данные не были записаны в некий внешний источник(текстовый файл, например).

0

В VBA устанавливать код завершения... А зачем? Другое дело VB. Создаем проект, удаляем форму, добавляем модуль и него вставляем этот код:

Транслируем. Получается exe-файл. Теперь пишем вот такой батник:

(testexit.exe - имя нашего exe). Стартуем cmd.exe в текущей директории и в окне cmd запускаем наш батник. Он спросит код завершения. Введем число и увидим, что errorlevel установится верно.

Вложения

Exit00.zip (3.3 Кб, 6 просмотров)

2

у меня такой же вопрос, вот так сложилось (vba ms acceess 2007) что есть несколько функций или процедур, которые вложены друг в друга, надо из самой глубоко заложенной функции или процедуры, произвести завершение, основного запускаемого макроса. как это можно сделать? exit sub или exit function не подойдут, потому что завершают свою процедуру или функцию и передают управление дальше. Да, основной макрос написан на отдельном модуле, а функции и процедуры на другом модуле

0

Сообщение от ramzes2012 надо из самой глубоко заложенной функции или процедуры, произвести завершение

Миниатюры

 

0

Сообщение от ramzes2012 есть несколько функций или процедур, которые вложены друг в друга

Я понимаю, если циклы вложены друг в друга. А вложенные функции - это как?

Просто добавляете оператор if до конца блока.
Если процедура получилась действительно очень длинная, самое время провести рефакторинг - разбиваете одну большую процедуру на несколько маленьких (да, возможно где-то придётся дублировать состояние переменных, но чаще всегда, это вполне легко сделать).
Если этого в данный момент не позволяют сделать временные затраты, то можете как временное решение воспользоваться оператором goto (так сказать, плохой code-style). Подчеркну - как временное, т.к. можно получить неявные ошибки, которые могут проявится нескоро и будут трудно-уловимыми.

Добавлено через 2 минуты
P.S. А вообще смахивает, что у Вас неверное понимание основных методов построения структуры кода (мне кажется, всё что Вам нужно, показано в посте № 4).
Покажите любой Ваш пример.

Добавлено через 12 минут
PS.2. Не обратил внимания, что в теме несколько спрашивающих. Мой ответ относился к t_tima.

Сообщение от ramzes2012 надо из самой глубоко заложенной функции или процедуры, произвести завершение, основного запускаемого макроса. как это можно сделать?

Лучше всего конечно же перестроить логику макроса таким образом, чтобы подпрограмма, которая первой получает управление, проверяла код возврата вызываемой функции. Если там, например, 0, то завершать работу стандартно по Exit Sub/Function. В функции соответственно, если нужен выход, присваивать значение 0 и досрочно выходить из неё.
Если логика программы не позволяет манипулировать этим значением, самое время, перестроить прототип функции, например, вместо:

Писать:

0