http://jingyan.baidu.com/search?word=vba%20%E9%87%87%E9%9B%86
这里有一些列的数据抓取的教程可能会帮助到你,不懂得可以接着问
你要抓取什么? 最简单的,直接以工作簿方式打开网页。
sub OpenHtmlData()
dim wbkHtml as workbook
dim rngData as range
set wbkHtml = workbooks.open(http://www.pbc.gov.cn/publish/html/kuangjia.htm?id=2013s05.htm)
set rngData = wbkhtml.worksheets(1).cells.find("你要的数据")
end sub