需要excel VBA代码在无限循环中运行，该循环增加秒数，即使我们关闭了运行excel的RDC连接

我是VBA新手。我需要编写一个应该在无限循环中运行的程序，即使我们关闭了运行代码的RDC连接

重新编程的步骤： 打开与代码所在系统的RDC连接。 运行代码。 代码实际上会有一个循环，在其中我正在做一些事情，打印 以每秒钟递增的顺序进行编号。 然后关闭RDC连接（不要关闭远程机器，只需关闭即可） （RDC窗口） 等待一分钟或一段时间，然后再次打开运行VBA代码的RDC连接。我应该看到它应该在接近和接近之间运行 也打开

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连接，应用程序就会停止运行。

RDC=远程桌面连接？？？您的代码是否有

application.ScreenUpdate=False

任何地方？如果是的话，你可能会认为它什么都没做，因为处理能力并没有浪费在刷新视觉效果上，但它实际上是在后台完成的。嗨，谢谢你的回复。你能详细说明一下吗。因为我没有在这里设置任何参数来更新屏幕。