未实现定时刷新
Sub抓取股票价格()
OnErrorResumeNext
Setregx=CreateObject("vbscript.regexp")‘
regx.Global=True
regx.Pattern="\[""(.*)"",""(.*)"",(\d+),(.*),(.*),(\d{8}).*\]"‘
arr_stock=Range(Cells(2,1),Cells(Cells(Rows.Count,1).End(xlUp).Row,1))‘股票代码数..
分类：
编程语言 时间：
2017-10-07 21:22:47
阅读次数：
324
VBA从天涯论坛的帖子中提取正文Sub天涯贴子简单抓取()
DimcntAsInteger
arr=Array("评论","举报","楼主","作者","草稿","热贴","论坛","注册","广告","推荐")‘屏蔽词汇
Fory=1To2
Setie=CreateObject("internetexplorer.application")
Withie
.Navigate"http://bbs.tianya.c..
分类：
其他好文 时间：
2017-10-07 14:36:29
阅读次数：
118
hao268网站，风格清新，无任何广告，实在是良心之作。其首页中的邮箱账户，可以方便的直达各个常用邮箱。本程序利用VBA，实现139邮箱的自动登录。<selectid="hao_mail_options"onChange="MailLogin.change(this)"><option></option><option>@163.com&l..
分类：
编程语言 时间：
2017-09-29 23:04:37
阅读次数：
419
