VBA获取新浪博客列表 Home » 编程开发 » VBA获取新浪博客列表 Sub Blogsina() Const url As String = “http://www.google.cn/search?q=site%3Ablog.sina.com.cn/u/&num=100&start=” Dim n As Long, p As Long, s() As String, u() As String, i As Long With CreateObject(“Microsoft.XMLHTTP”) For p = 0 To 9 .Open “get”, url & p * 100, False .send s = Split(.responsetext, “</a></h3>”) For i = 0 To UBound(s) – 1 n = n + 1 Application.Goto “R” & n & “c1″ Cells(n, 1).Hyperlinks.Add Anchor:=Cells(n, 1), Address:=”http://” & Split(Split(s(i + 1), “<cite>”)(1), “- </cite>”)(0), TextToDisplay:=Mid(s(i), InStrRev(s(i), “””>”) + 2) Next Next End WithEnd Sub 未曾失败的人恐怕也未曾成功过。 相关文章: eBay店铺的URL是什么?如何运营一个eBay店铺? 虾皮店铺URL在哪里找到?店铺流水要求了解! Ext JS Kitchen Sink [Learning by doing](2)ArrayGrid qiweigo的专栏 帮朋友解答一道题~输入String的运算公式直接输出结果 CString string char* char 之间的字符转换(多种方法) Leetcode: Fraction to Recurring Decimal ERROR 1418 (HY000): This function has none of DETERMINISTIC, 【LeetCode从零单排】No.8 String to Integer (丧心病狂的一道题 Java HashMap与LinkedHashMap的区别 你感兴趣的文章: Android 自定义布局竖向的ViewPager的实现 Python文本特征抽取与向量化算法学习实例详解 汽车车身和外饰材料大解析 Android 模拟器的使用详细介绍 4步让你恢复Win7系统声音 PLD的基本结构 标签云: 亚洲高清电影在线, 免费高清电影, 八戒影院夜间, 八戒电影最新大片, 出轨在线电影, 午夜电影院, 在线影院a1166, 在线电影院, 在线观看美剧下载, 日本爱情电影, 日韩高清电影在线, 电影天堂网, 直播盒子app, 聚合直播, 高清美剧, 高清美剧在线观看 EhViewer-E站, E站, E站绿色版, qqmulu.com, qq目录网, qq网站目录,