作者：绿色风
分类：
时间：2022-08-17
浏览：94
楼主
kevinchengcw |
Q: 如何用代码根据输入网址自动提取该网址上的邮箱地址？
A: 示例代码如下：
- Sub test()
- Dim Reg, mMatch, Matches
- Dim Url As String
- Dim N As Long
- Url = "" '初始化地址字符串为空（这样可以用于帮助判断是否输入）
- Url = InputBox("请输入要提取邮箱的网址：") '显示输入地址的对话框
- If Url = "" Then Exit Sub '如果未输入内容或按了取消则退出程序
- Set Reg = CreateObject("vbscript.regexp") '创建正则项目
- With Reg '设定正则表达式各项参数
- .Global = True '全程有效为真
- .MultiLine = True '处理多行为真
- .Pattern = "[a-z0-9_.]+@[a-z0-9.]+" '匹配内容为邮箱地址（个人写的，未必完善）
- End With
- With CreateObject("Msxml2.XMLHTTP") '创建网页项目
- .Open "GET", Url, False '获取网页内容
- .Send '发送请求
- Set Matches = Reg.Execute(StrConv(.responseBody, vbUnicode)) '设置匹配集合matches为网页内容转换为unicode格式后的内容中所有匹配内容的集合
- End With
- N = 1 '设定变量N的初始值为1（变量N用来改变单元格的行数）
- For Each mMatch In Matches '利用mMatch变量提取Matches集合中的各项内容
- Cells(N, 1) = mMatch.Value '将提取到的值赋值给对应单元格
- N = N + 1 '单元格位置下移一个
- Next
- Set Reg = Nothing '清空正则项目
- End Sub
|
2楼
水星钓鱼 |
Open\Send\Response三部曲，学习下。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一