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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

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

Решение

Решение

Решение

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