在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 "http://www.cnhup.com"
    WebBrowser1.Silent = True   ' 不提示脚本错误
End Sub

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

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



分类:代码, 博客, 资源 标签:,

发表评论

You must be logged in to post a comment.