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