51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4417|回复: 2
打印 上一主题 下一主题

请问:如何录制通过excel的vba向web服务器提交数据的脚本?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2005-4-12 09:14:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在excel中写了一段vb脚本,提取excel数据,并发送到web服务器,等待返回结果
    现在想测试一下性能,请问一下,如何录制这个脚本,谢谢!

    Dim xmlhttp As New xmlhttp
    Dim errorText As String
   
    'xmlhttp.Open "POST", "http://10.30.99.119/fmsweb/sie/boe/web/botreceiver.aspx", False
    xmlhttp.Open "POST", "http://localhost/fmsweb/sie/boe/web/botreceiver.aspx", False
    xmlhttp.setRequestHeader "content-length", Len(str)
    xmlhttp.setRequestHeader "Content-Type", "application/zip"
    xmlhttp.send str
   
    errorText = xmlhttp.responseText
    If Left(errorText, 1) = "Y" Then
        MsgBox "提单成功!单据号:" + Right(errorText, Len(errorText) - 1)
    Else
        MsgBox Right(errorText, Len(errorText) - 1)
    End If
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏

该用户从未签到

2#
 楼主| 发表于 2005-4-13 10:48:04 | 只看该作者
各位,帮帮忙吧,我这还是不能录,是不是我的版本有问题,运行设置中都没有关于“VBA”设置,谢谢!
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2005-4-19 09:39:08 | 只看该作者
你是怎么录制的?
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-9-26 05:15 , Processed in 0.079147 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表