VBALINK1.73怎么联机

可以用VBALINK。
>刚查了一下，qq用的服务器是如下设置的，请检查一下自己的地址是否合法
接收邮件服务器：popexmailqqcom ，使用SSL，端口号995
发送邮件服务器：smtpexmailqqcom ，使用SSL，端口号465

vba测试远程端口是否开启命令可以用telnet。要测试远程主机上的某个端口是否开启，无需使用太复杂的工作，windows下就自带了工具，那就是telnet。
1、安装telnet。win7下就没有telnet，在cmd下输入telnet提示没有该命令。进入控制面板--程序-打开或关闭windows功能。然后等一段时间，在出来的对话框把telnet客户端和telnet服务器勾选上，这样就安装好了telnet组件了。
2、测试某个端口是否开启。测的是192168342的2121这个端口。在cmd下输入telnet1921683422121之后会出现一个窗口，是最小化的。若窗口自动关闭了，说明端口是关闭的或主机ping不通，反之端口开放。比如这个2121端口是开放的，就出现以下的窗口，否则窗口关闭。
3、可以用自己的机子做实验。在CMD下输入netstat-ano。
4、Linux下检测本机的端口是否被占用：netstat–apn|grep8080

如果VBA计划更新不了，可以尝试以下几种解决方法：
1检查网络连接：首先确认计算机是否连接到网络，并检查网络连接是否正常。如果网络连接出现问题，VBA可能无法连接到更新服务器，从而导致无法更新。
2确认更新设置：在Excel中打开“选项”窗口，选择“自动更新”，确认是否选择了“自动下载和安装更新”选项。如果没有选择此选项，则需要手动更新。
3手动更新：手动更新VBA，可以在Excel中选择“文件”菜单，然后选择“帮助”，再选择“检查更新”。Excel将检查是否有可用的更新，并显示是否有可用的VBA更新。如果有可用的更新，请按照提示进行更新。
4检查VBA安装：如果上述方法仍然无法解决问题，则需要确认VBA是否已正确安装在计算机上。可以在Excel中选择“文件”菜单，然后选择“选项”，再选择“附加组件”，检查VBA是否已安装并启用。
如果仍然无法解决问题，可以尝试卸载和重新安装Excel，或联系微软技术支持获得更多帮助。

Dim cn As New ADODBConnection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODBRecordset '定义记录集对象，保存数据表
Dim strCn As String, strSQL As String '字符串变量
Dim i As Integer, j As Integer, sht As Worksheet
strCn = "Provider=MSDAORA1;Password="psw";User ID="userid";Data Source="DB";Persist Security Info=True" strSQL = "select from tab"
cnOpen strCn
rsOpen strSQL, cn
xrow = 1
Do While (Not rsEOF)
Sheet1Cells(xrow, 1) = rsFields()Item(0)

xrow = xrow + 1
rs MoveNext
Loop
End Sub

---