Нужен код Excel VBA для запуска в бесконечном цикле, увеличивающем секунды, даже если мы закрываем соединение RDC, в котором работает Excel - PullRequest
Новая
       41

Нужен код Excel VBA для запуска в бесконечном цикле, увеличивающем секунды, даже если мы закрываем соединение RDC, в котором работает Excel

0 голосов
/ 05 октября 2019

Я новичок в VBA. У меня есть требование написать программу, которая должна работать в бесконечном цикле, даже если мы закрываем соединение RDC, на котором выполняется мой код.

Шаги для воспроизведения: Откройте соединение RDC с системой, в которой ваш кодесть. Запустите код. На самом деле код будет иметь цикл, в котором я что-то делаю, печатая число в порядке приращения для каждой секунды. Затем закройте соединение RDC (не выключайте удаленный компьютер. Просто закройте окно RDC). Подождите минуту или некоторое время и снова откройте соединение RDC, в котором работает код VBA. Я должен видеть, что он должен работать между закрытием и открытием. 

Sub test()
    Dim V As New Visio.Application 
    V.Visible = True
        V.Documents.Add "" 
        While True
            i = i + 1
            Debug.Print i        
            V.ActiveWindow.Page.DrawRectangle 1.5, 9.25, 5.8125, 7.25    
            V.ActivePage.Shapes(1).Delete        
            Application.Wait (Now + TimeValue("0:00:01"))        
        Wend
     End Sub

Но в моем коде, когда я закрываю соединение RDC и снова открываю его, я вижу то же значение, которое я видел во времяБлизко. Кажется, что он не работает, когда я закрываю соединение RDC. Нет ошибки. Просто приложение перестает работать, как только мы закрываем соединение RDC.

...