请问如何用send函数发送大批量数据？

sheet3(汇总表）的b3单元
sheet3(汇总表）的c3单元格输入 =indirect(address(int(column()/2)+1,4,,,$a4))
b3单元格公式复制到工资单元格，c3单元格复制到比例单元格，然后向下复制。ok

借助securtCRT，使用linux命令sz可以很方便的将服务器上的文件下载到本地，使用rz命令则是把本地文件上传到服务器。

其中，对于sz和rz的理解与记忆我用了如下的方法（很多时候容易搞混）：

sz中的s意为send（发送），告诉客户端，我（服务器）要发送文件 send to cilent，就等同于客户端在下载。

rz中的r意为received（接收），告诉客户端，我（服务器）要接收文件 received by cilent，就等同于客户端在上传。

记住一点，不论是send还是received，动作都是在服务器上发起的。我们习惯了说上传或是下载，其实大可不必。使用这两个命令，只要思考一点，是要把文件从服务器上发送出去，还是从客户端接上接收回来，就可以了。

若想把文件从客户端上传到服务器，就是服务器将文件接收回来，逻辑是：我（客户端）上传，你（服务器）接收，使用rz。

若想把文件从服务器上下载回（到客户端），就是服务器将文件发送出去，逻辑是：我下载（客户端），你（服务器）发送，使用sz。

好吧，最后总结为一句话：
我（客户端）上传，你（服务器）接收（RZ），我下载（客户端），你（服务器）发送（SZ）。

说实在的这个问题非常简单，不过你习惯太差，你把send和recv的返回值看看不就明白了！
前提是你描述的都是事实。
否则还可能有Socket问题。
如果是linux，strace一下就知道什么问题了。
Windows的也很简单。
前面的明显不正确，send如果是TCP，（UDP 不应该用send），send返回时，消息已经发出了。

dim CLStr,msg,mailserver,username,password,receive,sender,sendermail
CLStr=Chr(13)&Chr(10)
mailserver="XXXXX" '邮局服务器地址（smtp服务器地址）
username="XXXXX" 'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址）
password="XXXXX" 'smtp服务器验证密码 （信箱密码）
receive="XXXXX" '接受反馈信息的email地址（可以是您的任何有效信箱）
sender="XXXXX" '发信人名字
sendermail="XXXXX" '发信任邮箱

Set msg=ServerCreateObject("JMailMessage")
msgsilent=true
msgLogging=true
msgCharset="gb2312"
msgContentType="text/html"
msgMailServerUserName=username
msgMailServerPassword=password
msgFrom=sendermail
msgFromName=sender
msgAddRecipient receive
msgSubject=name&":"&title

msgBody="以下是你的注册信息<br><br>"&CLStr&CLStr
msgBody=msgBody&"注册名:"&name&CLStr '可以通过表单获得，如定义一个name=requestform("name")
msgBody=msgBody&"<br><br>密码:"&pass&CLStr '可以通过表单获得，如定义一个pass=requestform("pass")

msgSend(mailserver)
msgclose
set msg=nothing
'连接数据库写入注册信息
Set rs= ServerCreateObject("ADODBRecordset")

---