用excel公式打开qq聊天界面

昨天在论坛上看到一个会员的公式，挺有意思，分享给大家。

    =HYPERLINK('tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=QQ号码','开始对话')
    使用方法：

       在单元格中输入上述公式，并把 QQ号码 替换成你的好友号码，然后点击生成的链接，就会直接打开QQ聊天界面，当然你的QQ软件需要在开启的状态。

    公式原理：

       HYPERLINK函数可以在excel单元格中建立指向特定目标的超链接，可以是excel任一文件的任一个单元格，也可以是网址。上述公式就是建立和腾迅的即时聊天网址的链接。“开始对话”是在单元格显示的文字。

    附烟花版主提供的利用VBA打开聊天界面的代码，懂VBA的同学可以收藏一下。

Option Explicit

Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' _

                              (ByVal hwnd As Long, ByVal lpszOp As String, _

                               ByVal lpszFile As String, ByVal lpszParams As String, _

                               ByVal LpszDir As String, ByVal FsShowCmd As Long) _

                               As Long

Sub teset()

    ShellExecute 0, 'open', 'tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=QQ号码', vbNullString, vbNullString, 1

End Sub