Dim Proc As New ProcessProc.File = "tencent://message/?uin=" & tables("表名").current("QQ列")Proc.Start()