主题：自动弹出qq对话框

可以用CellButtonClick事件，看这个例子：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17.table

代码是：

Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & Tables("表A").Current("QQ")
Proc.Start()
e.cancel = True

关于CellButtonClick事件，可以看看：

http://www.foxtable.com/help/topics/0642.htm