excel vba如何抓取网页数据_EXCEL 实际使用案列分享-同花顺千股千评网页抓取

今天分享一个股友比较关心的很实用的问题，同花顺千股千评网站的评语提取，废话不多说，直接上干货。

首先我们先看下网址：http://www.iwencai.com/stocks/comments

别小瞧这个网址，你们是搜不到的，不信你试试。现在我们打开网址瞧瞧是什么宝贝。

同花顺千股千评

接下来就是股友很关心的问题，就是怎么把网站内容取下来呢？别急，慢慢往下看。

加下来需要准备的工具：offcie的excel，一般人都有，然后复制下面的代码到VBA编辑窗口，如下图：

VBA编辑窗口

代码我也不私藏了：代码如下：

Sub qgqp()

Dim strText As String, n%, temp, r%, l%, brr, temp1, crr(1 To 4000, 1 To 13), g%, temp2

Sheets.Add after