不懂html也来学网抓（xmlhttp/winhttp+fiddler）

onlycxb

本人五笔输入 发表于 2014-11-20 15:00
CreateObject("Adodb.Stream")

大哥，请问这代码的前提是不是还有安装什么才能运行啊？为什么说应用程 ...

不需要,多少楼代码?

本人五笔输入

onlycxb 发表于 2014-10-22 08:25
作业2、网站：http://www.caac.gov.cn/S1/GNCX/，     操作：点击“查询”，获取航班信息数据。'顺便把航 ...

44楼，把数据流转换成文字，我用了这个function，显示应用程序定义或对象定义错误。。。

本人五笔输入

onlycxb 发表于 2014-10-22 08:25
作业2、网站：http://www.caac.gov.cn/S1/GNCX/，     操作：点击“查询”，获取航班信息数据。'顺便把航 ...

在第五页。。。

本人五笔输入

感谢楼主，看完了，在实践中成长，还望以后多多指导。。。。

本人五笔输入

吴姐。就是下面这个代码，数据能取到，中文显示“？？？”，想转码，显示应用程序定义的或对象定义的错误 3001
请您帮忙看看吧。。。谢谢。。

1. Sub Main()
   
2.     Dim strText As String
   
3.     With CreateObject("MSXML2.XMLHTTP") 'CreateObject("WinHttp.WinHttpRequest.5.1")'
   
4.         .Open "GET", "http://data.eastmoney.com/rzrq/sz.html", False
   
5.         .Send
   
6.         strText = .responsetext
   
7.         strText = ByteToStr(strText, "GBK")
   
8.         Debug.Print strText
   
9.     End With
   
10. End Sub
    
11. 
    
12. Function ByteToStr(arrByte, strCharset As String) As String
    
13.     With CreateObject("Adodb.Stream")
    
14.         .Type = 1 'adTypeBinary
    
15.         .Open
    
16.         .Write arrByte
    
17.         .Position = 0
    
18.         .Type = 2 'adTypeText
    
19.         .Charset = strCharset
    
20.         ByteToStr = .Readtext
    
21.         .Close
    
22.     End With
    
23. End Function
    

复制代码

本人五笔输入

请您帮我看看，判断一下我的Office'是不是完全的。。。谢谢吴姐。。。

本人五笔输入

感谢版主，我自己成功帮坛友抓了一个网站的数据，略有成就感。。。。

VBA万岁

VBA万岁 发表于 2014-11-20 15:57
另，十六进制转十进制的工作表函数Hex2Dec测试如下：
Sub 十六进制转十进制()
    MsgBox Applicatio ...

吴姐，我这儿hex函数帮助里似乎没有提示十六进制转十进制的VBA函数啊？如下：

VBA万岁

VBA万岁 发表于 2014-11-20 17:22
参照老师的GBKEnCode函数，再写一个将字符转换为unicode码（含有“\u”的编码）的函数。

老师误会了，520楼代码本来就是想实现将字符转换为unicode码功能的。

VBA万岁

VBA万岁 发表于 2014-11-21 08:44
吴姐，我这儿hex函数帮助里似乎没有提示十六进制转十进制的VBA函数啊？如下：

原来&H本身就可以当十六进制转十进制的VBA函数用啊！
——以下代码显示的结果为11（&H将十六进制数A转换成了十进制数10）。

Sub test()
    MsgBox &HA + 1
End Sub

又学了一招，多谢吴姐！！！！