用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