在Excel中访问WebQQ网站实现聊天功能

要在Excel中实现聊天功能，经常采用的是Excel工作表共享的方式，其实还有另外一种方式。

WebQQ的界面十分简洁，而且常用功能与QQ相差不大，将WebQQ嵌入到Excel使用便可以实现聊天功能。

具体方法是，在工作表中添加一个Windows Web Browser控件，设置高宽分别为320和240(或者480和360，这个有点大)，再创建两个按钮(分别命名为cmdVisitCNHUP与cmdVisitWebQQ)，然后在工作表模块中给按钮添加Click事件：

Option Explicit

Private Sub cmdVisitCNHUP_Click()
    WebBrowser1.Navigate ""
    WebBrowser1.Silent = True   ' 不提示脚本错误
End Sub

Private Sub cmdVisitWebQQ_Click()
    WebBrowser1.Navigate "http://w.qq.com"
    WebBrowser1.Silent = True   ' 不提示脚本错误
End Sub

点击下载示例文件：Excel访问WebQQ网站 (2446)