怎样才能快捷方便的从网页中导出数据到EXCEL中？

cg406

我想从以下网页中导出所有数据到EXCEL中，一页一页的复制粘贴非常麻烦，请教高手是怎么做的
http://resource.stockstar.com/DataCenter/StockData/GetOrder1.aspx

figfig

1. Sub kkk()
   
2. 
   
3. '须安装ACTIVERUBY.才能运行
   
4. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
5. Set x = CreateObject("scriptcontrol")
   
6. x.Language = "rubyscript"
   
7. For i = 1 To 5
   
8. y = x.eval("require 'net/http'; ll=%Q(http://resource.stockstar.com/DataCenter/StockData/GetOrder1.aspx?ob=7&tag=2&ed=2010-03-31&sc=&i=" & i & ");kk=Net::HTTP.get(URI(ll));")
   
9. y = x.eval("arr=[];ll=kk.match(/\<div class=""data_content2""\>.*?\<\/div/m);mm=ll.to_s.scan(/\>([^<]+?)\</);1.step(20,1){|x|arr<<mm[9+13*(x-1)..9+13*(x-1)+6].flatten};arr")
   
10. Cells(20 * (i - 1) + 1, 1).Resize(UBound(y, 1) + 1, UBound(y, 2) + 1) = y
    
11. 
    
12. 
    
13. Next
    
14. End Sub
    
15. 
    

复制代码

[ 本帖最后由 figfig 于 2010-7-1 20:44 编辑 ]

figfig

for i=1 to 5  代表总页数，2010-3-31 表示时间 ，可自行修改，其他不需改

[ 本帖最后由 figfig 于 2010-7-1 20:50 编辑 ]

cg406

非常感谢！