Excel VBA批量邮件提取器添加正则及社媒链接提取的代码适配求助

开发基础 #

• 具备基础VBA开发能力，当前正在推进基于Excel的批量网页信息抓取工具开发

改造要求与现存卡点 #

• 邮箱提取逻辑局部改造：
  • 原代码实现逻辑：匹配页面内mailto:链接提取邮箱地址
  • 目标调整方向：通过RegExp正则表达式直接提取页面全文中的邮箱内容
  • 硬性约束：仅做局部代码修改、不整体重写，此前收到的全量重写版本逻辑过于复杂，受限于自身VBA能力，无法快速适配调整
  • 已尝试的无效方案：曾将邮件判断条件调整为“链接包含@”，提取效果不佳；虽参考过社区提供的VBA正则提取邮件的函数代码，但不清楚如何将其嵌入现有代码执行流程
• 已落地的功能进展：
  • 经过前期代码简化优化，目前已经可以通过RegExp正则规则，稳定匹配提取页面中的电话号码、邮箱地址
• 待补全的功能缺口：
  • 需要适配现有代码逻辑的Facebook、Twitter等社交媒体链接提取实现方案，可直接嵌入现有抓取流程

内容的提问来源于stack exchange，提问作者Sharid