首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

,本人用Excel 2010 VBA做了一个抓取天猫搜索结果数据的功能,关于货币符号¥处理的有关问题,请专家们帮小弟我看看,多谢!

2013-07-09 
求助,本人用Excel 2010 VBA做了一个抓取天猫搜索结果数据的功能,关于货币符号¥处理的问题,请专家们帮我看

求助,本人用Excel 2010 VBA做了一个抓取天猫搜索结果数据的功能,关于货币符号¥处理的问题,请专家们帮我看看,谢谢!!!
做这个功能目的是为了从搜索结果中取得数据,并且把数据存放到Excel单元格中,数据主要是最新价格、原价格、宝贝名称、月销量、累计评价、店铺名称几个字段,其中原价格和累计评价有的商品中有这个信息,有的商品中没有,我是通过以下代码抓取数据的,取得的数据是包含了上述所有个字段内容的一个字符串,我通过针对字符串的处理从中区分每个字段的内容,再把内容填入到单元格中,现在有一个问题就是¥符号,在网页源代码中是用¥来表示的,抓取到Excel中又是以¥这个符号来表示的,如何正确的识别这个符号,如何处理这个符号请专家们指点,或者有没有更好的办法,可以在抓取数据的时候就分别抓取各个字段的字符串信息,也请专家们指教,谢谢!!!

    Set ie = CreateObject("InternetExplorer.Application")    '创建一个IE对象
    With ie
        .Visible = True    '显示它
        .navigate "http://list.tmall.com/search_product.htm?q=%B4%B4%BF%C9%CC%F9&user_action=initiative&at_topsearch=1&sort=st&type=p&cat=&style="    '加载某个页面
        Do Until .ReadyState = 4    '等待页面加载完毕
            DoEvents
        Loop
        Set dmt = .document    '将IE浏览器加载的页面文档,赋予dmt变量
    End With
 
    Set div1 = dmt.all("J_Itemlist") '获取数据表所在的div1标签
    Cells(1, 1) = "最新价格"
    Cells(1, 2) = "宝贝名称"
    Cells(1, 3) = "月销量"
    Cells(1, 4) = "累计评价"
    Cells(1, 5) = "店铺名称"
    For i = 0 To div1.Children.Length - 1 '遍历每个div2
         
         zfc = div1.Children(i).innertext  '提取单个商品所有信息
     next
Excel VBA ¥ 货币符号 ¥
[解决办法]
根本不用处理货币符号的。
取得网页文本后用 Replace 函数将 "¥" 替换成 "",剩下的就是纯数值了。
Excel 先将单元设置为带 ¥ 符号的货币格式,然后通过 Value 而不是 Text 存取。

[解决办法]
zfc =replace( div1.Children(i).innertext  ,"¥","")

热点排行