在Excel中的winsock异步接收

Question

当前在Excel 2007中使用wsock.dll连接到TCP服务器。我可以派出一些东西，这很好。然而，关于接收，有没有什么办法让事件驱动，因为我不知道什么时候有一个味精发送到Excel？直到有东西抵达，recv电话将被阻止。

Answer 1

如果您可以亲自使用Winsock ActiveX控件，然后you can used an event-based programming model。我摘录这个例子访问：

Private Sub axWinsockServer_DataArrival(ByVal bytesTotal As Long) 
    Dim strClientMsg As String 

    ' The DataArrival event fires on the server when the client sends 
    ' information. Get the data and display it in a text box. 
    wsServer.GetData strClientMsg, vbString 
    Me!Text1.Value = strClientMsg 
End Sub 

虽然考虑为什么，就是这样，你需要一个电子表格做网络通信。