WPS RTD函数如何阻止连接的TopicID被释放掉

在WPS中，如果一个RTD函数需要阻止其连接的TopicID被释放掉，可以使用RTD函数的`ServerStart`方法。`ServerStart`方法用于启动RTD服务器实例，该实例将一直保持连接状态，直到最后一个客户端断开连接。在RTD函数中调用`ServerStart`方法可以防止其连接的TopicID被释放掉。

以下是一个示例代码：

Dim rtdServer As IRtdServer
Dim topicId As Long

Private Sub Worksheet_Activate()
    Set rtdServer = Application.RTD("ProgId", "", Me.Name)
    topicId = rtdServer.TopicID("MyTopic")
    Call rtdServer.ServerStart
End Sub

Function MyRTDFunction() As String
    ' do something
    MyRTDFunction = "result"
End Function

在上面的代码中，`ServerStart`方法将在RTD函数首次调用时启动RTD服务器实例，并在函数完成后保持连接状态。这样可以确保RTD函数连接的TopicID不会被释放掉。需要注意的是，使用`ServerStart`方法会导致RTD服务器实例一直处于连接状态，直到Excel工作簿被关闭。因此，如果不需要一直保持连接状态，应该在不需要使用RTD函数时调用`ServerTerminate`方法手动终止RTD服务器实例。