今天分享一个股友比较关心的很实用的问题,同花顺千股千评网站的评语提取,废话不多说,直接上干货。
首先我们先看下网址:http://www.iwencai.com/stocks/comments
别小瞧这个网址,你们是搜不到的,不信你试试。现在我们打开网址瞧瞧是什么宝贝。
接下来就是股友很关心的问题,就是怎么把网站内容取下来呢?别急,慢慢往下看。
加下来需要准备的工具:offcie的excel,一般人都有,然后复制下面的代码到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