51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 7063|回复: 6
打印 上一主题 下一主题

[原创] VBS对Excel表进行排序

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-8-2 12:30:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
对Excel表中的数据进行处理判断,由于数据量很大,所以相对数据进行列排序,用VBS如何实现。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-8-2 13:26:27 | 只看该作者
在Excel里排序就是了。。。
真要用VBS的话,就用VBS去调用 EXCEL对象,也就是类似EXCEL的宏(VBA)
录一下宏就明白了
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2010-8-2 14:22:29 | 只看该作者

回复 2# 的帖子

调用对象,这个我知道,就是不知道具体的那个方法,麻烦哥们儿给段代码参考一下
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2014-12-18 10:31
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    4#
    发表于 2010-8-2 16:37:12 | 只看该作者

    使用ADO对EXCEL(97-2003)进行排序

    '该方法的优点是不会改变EXCEL内容的实际排序,另外还可以根据实际需要直接查询所需数据
    'EXCEL内容与输出结果见附件,以下代码是按username 倒序输出username,password
    filepath="EXCEL路径"  '这里输入EXCEL的实际路径
    Set conn= createobject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filepath&";Extended Properties=Excel 8.0"    '8.0为EXCEL97-2000
    Set rs=CreateObject("ADODB.Recordset")
    rs.Open "Select username,password from [Sheet1$] order by username desc",conn
    Do
    If not rs.eof Then
            username=rs("username")  
            password=rs("password")
            print "username:"&username&"   password:"&password
            rs.MoveNext
    else
            msgbox "没有记录"
    End If
    loop until rs.eof=true
    conn.close
    Set rs=nothing
    Set conn = nothing
    'EXCEL内容:



    '若有问题,可以加MSN进一步讨论。MSN:yunkai614221@live.cn

    [ 本帖最后由 feiyunkai 于 2010-8-2 16:59 编辑 ]

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2014-12-18 10:31
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    5#
    发表于 2010-8-3 09:59:01 | 只看该作者

    VBS对Excel表进行排序(方法如下)

    步骤一:录制排序的宏(EXCEL2007录制宏步骤:点击视图,点击宏,点击录制宏,输入宏名称(假设取名为:paixu),点击确定,然后对EXCEL进行排序操作,排序完点击停止录制,保存EXCEL)
    步骤二:VBS中调用宏,代码如下:
    Set excel=CreateObject("excel.application")
    Set excelbooks=excel.Workbooks.Open("D:\test.xls") '把D:\test.xls修改为EXCEL所在路径
    excel.DisplayAlerts = False  '设置EXCEL静默保存
    excel.Run"paixu"  '这里的paixu为刚才录制的宏的名称
    excelbooks.Save                    
    excelbooks.Close
    excel.Quit
    Set excelbooks=Nothing
    Set excel=nothing
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2018-2-13 11:02
  • 签到天数: 55 天

    连续签到: 1 天

    [LV.5]测试团长

    6#
    发表于 2011-7-22 16:32:57 | 只看该作者
    学到了
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2018-2-13 11:02
  • 签到天数: 55 天

    连续签到: 1 天

    [LV.5]测试团长

    7#
    发表于 2011-7-22 16:33:04 | 只看该作者
    学到了
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-26 11:09 , Processed in 0.074697 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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