网页抓取表格数据，但有分页，url一样，怎么办

brucezeng

抓取数据网址：http://fund.eastmoney.com/fund.html#os_0;isall_0;ft_;pt_1 但初始表格为显示200条，点击显示全部，但url不变，这个时候下面语句就不起作用了，要怎么改？请教一下大家！谢谢！

Sub test()
Dim myQuery
   With ActiveSheet
       .Cells.Delete
       .[a1] = "Conneting, Please Wait..."

Set myQuery = ActiveSheet.QueryTables _
           .Add(Connection:="URL;http://fund.eastmoney.com/fund.html#os_0;isall_0;ft_;pt_1", _
           Destination:=.Cells(1, 1))
   End With
   With myQuery
       .Refresh
   End With
End Sub

brucezeng

{:soso_e153:}{:soso_e128:}{:soso_e183:}高手来啊~

brucezeng

{:soso_e135:}高手，大神大婶，福心咧~~~{:soso_e184:}

joey0415

http://fund.eastmoney.com/Data/F ... ;text=&sort=zdf,desc&page=3,200&dt=1433076416056&atfc=&onlySale=0

改一下即可！

brucezeng

joey0415 发表于 2015-5-31 20:49
http://fund.eastmoney.com/Data/Fund_JJJZ_Data.aspx?t=1&lx=1&letter=&gsid=&text=&sort=zdf,desc&page=3 ...

这位大侠，您提供的这个地址好像不是完整的，是否有办法贴个完整的？感谢感谢！

onlycxb

fiddler抓取一下网址

brucezeng

onlycxb 发表于 2015-6-2 12:37
本帖最后由 onlycxb 于 2015-6-2 12:38 编辑
fiddler抓取一下网址

呃，这个是神马来的（汗）

brucezeng

onlycxb 发表于 2015-6-2 12:37
本帖最后由 onlycxb 于 2015-6-2 12:38 编辑
fiddler抓取一下网址

学习研究了一下，抓了个地址，确实如@joey0415 所说的，http://fund.eastmoney.com/Data/F ... ;text=&sort=zdf,desc&page=1,9999&dt=1433243171343&atfc=&onlySale=0
但是返回是乱码耶

brucezeng

onlycxb 发表于 2015-6-2 12:37
本帖最后由 onlycxb 于 2015-6-2 12:38 编辑
fiddler抓取一下网址

研究了一下，抓到哪个地址了，但是返回的是乱码耶，还是我抓的不对？
http://fund.eastmoney.com/Data/F ... ;text=&sort=zdf,desc&page=1,9999&dt=1433243171343&atfc=&onlySale=0

onlycxb

brucezeng 发表于 2015-6-2 21:50
研究了一下，抓到哪个地址了，但是返回的是乱码耶，还是我抓的不对？
http://fund.eastmoney.com/Data/F ...

请看http://club.excelhome.net/forum. ... ead&tid=1190465，一楼。示例代码请自行完善