Как при переходе из одной процедуры в другую закрывать процедуру, с которой идет перенаправление?

@SpleX · Регистрация: 22.01.2016

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

Здравствуйте. Я в программировании на VBA мало что знаю, поэтому пожалуйста, объясните как можно доходчивее. Ситуация следующаа: мне нужно сделать файл экселя который после запуска будет ежесекундно сканировать путь (к примеру E:\1.docx) на предмет нахождения в нем файла (1.docx), если файла по заданному пути нет, идет перенаправление на таймер, если файл там появился, идет перенаправление на процедуру Delete которая удаляет этот файл, и снова возвращается на таймер. При отсылке из одной процедуры на другую, первая процедура до конца не отрабатывает и остается открытой, таким образом при отсылке со второй процедуры на первую (вторая так же до конца не отрабатывает), первая уже не может отработать так как нужно. Как сделать завершение процедуры при переходе на следующую, или как во второй процедуре сбросить первую я не знаю. Посоветуйте что можно сделать.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Workbook_Open()
     Timer
End Sub
 
Sub Timer()
     Application.OnTime Now + TimeValue("00:00:01"), "GoTo line1"
line1: VerifyFileLocation
End Sub
 
Sub VerifyFileLocation()
     Dim strFileName As String
     Dim strFileTitle As String
     strFileTitle = "1.docx"
     strFileName = "E:\1.docx"
     If Dir(strFileName) <> "" Then
          GoTo line1
     Else
          GoTo line2
     End If
line1: Delete
line2: Timer
End Sub
 
Sub Delete()
     Dim File As String
     File = "E:\1.docx"
     Kill File
     GoTo line1
line1: Timer
End Sub

Shersh · 22.01.2016, 10:40

SpleX,
1 - забудьте про GOTO !
2 - проявите фантазию в именах (Timer может вам понадобится в оригинале)
3 - зачем эти прыжки?

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
     TimerM
End Sub
 
Sub TimerM()
     Application.OnTime Now + TimeValue("00:00:01"), TimerM '"GoTo line1"
      If Dir("E:\1.docx") <>"" Then Kill "E:\1.docx"
End Sub

@SpleX · 22.01.2016, 11:05 **[ТС]**

1. Вместо GoTo можно указывать сразу необходимую процедуру.
2. Об этом я не подумал.
3. Но здесь идет отсылка самого на себя, и процедура остается открытой.

Visual Basic
1
2
Sub TimerM()
     Application.OnTime Now + TimeValue("00:00:01"), TimerM

Снова будет бить ошибку.

Shersh · 22.01.2016, 11:28

Сообщение от Shersh

Application.OnTime Now + TimeValue("00:00:01"), "TimerM" 'кавычки добавьте - мой косяк

И сама Sub TimerM находится у вас в отдельном модуле, надеюсь?

@SpleX · 22.01.2016, 12:53 **[ТС]**

Спасибо тебе большое! Я почему-то думал что если поставить

Visual Basic
1
2
3
If Dir("E:\1.docx") <>"" Then
    Kill "E:\1.docx"
End If

после строки

Visual Basic
1
Application.OnTime Now + TimeValue("00:00:01"), "TimerM"

то команда которая удаляет файл работать не будет, думал что этот таймер тоже будет срезу перенаправлять на себя не завершив процедуру. Все работает, вот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
    TimerM
End Sub
 
Sub TimerM()
    Application.OnTime Now + TimeValue("00:00:01"), "TimerM"
    If Dir("E:\1.docx") <> "" Then
        Kill "E:\1.docx"
    End If
End Sub

Добавлено через 56 минут
А можно ко всему этому еще добавить проверку на наличие папки и ее удаление в случае если она появится?

Аксима · 22.01.2016, 13:09

Здравствуйте, SpleX,

Поэкспериментировал немного с OnTime, и вот что у меня получилось:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub LongProcedure() 'Продолжительная процедура, которая длится 5 секунд.
    Dim t As Double
    t = Timer + 5
    While Timer < t: Wend
    Debug.Print "Продолжительная процедура завершена."
End Sub
 
Sub TimerM()
    Static calls As Long
    calls = calls + 1
    If calls <= 4 Then
        Debug.Print "Вызывана процедура TimerM, вызов в " & Time
        Application.OnTime Now + TimeValue("00:00:01"), "TimerM"
        LongProcedure
        Debug.Print "Завершена процедура TimerM"
    End If
End Sub

Code
1
2
3
4
5
6
7
8
9
10
11
12
Вызывана процедура TimerM, вызов в 12:40:17
Продолжительная процедура завершена.
Завершена процедура TimerM
Вызывана процедура TimerM, вызов в 12:40:22
Продолжительная процедура завершена.
Завершена процедура TimerM
Вызывана процедура TimerM, вызов в 12:40:27
Продолжительная процедура завершена.
Завершена процедура TimerM
Вызывана процедура TimerM, вызов в 12:40:32
Продолжительная процедура завершена.
Завершена процедура TimerM

Отсюда можно сделать два важных вывода:

Если в процедуре производится планирование выполнения той же самой или другой процедуры через OnTime, то всегда сначала выполняется полностью процедура, запланировавшая выполнение той же или других процедур. Выполнение запланированных процедур откладывается до тех пор, пока не будет выполнена полностью эта процедура.
Если время после выполнения процедуры-планировщика оказывается больше времени, на которое было запланировано выполнение той же или другой процедуры, то запланированная процедура вызывается сразу по окончанию выполнения процедуры-планировщика.

Спасибо вам за эту тему! До этого я как-то не задумывался даже, как работает OnTime...

Добавлено через 7 минут

Сообщение от SpleX

А можно ко всему этому еще добавить проверку на наличие папки и ее удаление в случае если она появится?

Можно, например:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
    TimerM
End Sub
 
Sub TimerM()
    Application.OnTime Now + TimeValue("00:00:01"), "TimerM"
    If Dir("E:\MyFolder\", vbDirectory) <> "" Then
        With CreateObject("Scripting.FileSystemObject")
            .GetFolder("E:\MyFolder\").Delete
        End With
    End If
End Sub

@Hugo121 · 22.01.2016, 13:28

А ещё полезно когда уже не нужно - отключать.
См.хелп:

Visual Basic
1
2
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ 
 Procedure:="my_Procedure", Schedule:=False

@Казанский · 22.01.2016, 13:49

Аксима, если продолжительная процедура оставляет возможность обработки событий

Visual Basic
1
    While Timer < t: DoEvents: Wend

, то результат получается иной:

Code
1
2
3
4
5
6
7
8
9
10
11
12
Вызывана процедура TimerM, вызов в 13:44:42
Вызывана процедура TimerM, вызов в 13:44:43
Вызывана процедура TimerM, вызов в 13:44:44
Вызывана процедура TimerM, вызов в 13:44:45
Продолжительная процедура завершена.
Завершена процедура TimerM
Продолжительная процедура завершена.
Завершена процедура TimerM
Продолжительная процедура завершена.
Завершена процедура TimerM
Продолжительная процедура завершена.
Завершена процедура TimerM

@SpleX · 22.01.2016, 14:03 **[ТС]**

Всем спасибо за ответы! Более менее понятно, теперь переварю полученную информацию, и попытаюсь собрать все так чтобы достигнуть задуманного результата.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Как при переходе из одной процедуры в другую закрывать процедуру, с которой идет перенаправление?

Решение

Решение

Решение

@SpleX 0 / 0 / 0 Регистрация: 22.01.2016 Сообщений: 6
	22.01.2016, 14:03 [ТС]
	Всем спасибо за ответы! Более менее понятно, теперь переварю полученную информацию, и попытаюсь собрать все так чтобы достигнуть задуманного результата. 0