作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
水星钓鱼 |
Q：由于社区的原因某些VBA代码含有HTML标记，如何快速地提取纯的VBA代码
A：如下所示为含HTML标记的VBA代码：- <p>Function xyf_EncodeURI(str)</p><p> Dim obj</p><p> Set obj = CreateObject("ScriptControl")</p><p> With obj</p><p> .Language = "JavaScript"</p><p> xyf_EncodeURI = .Eval("encodeURI(""" & str & """)")</p><p> End With</p><p> Set obj = Nothing</p><p>End Function</p>
由于HTML标记的格式都是以“<”字符开头，以“>”字符结尾，所以可以利用Excel的查找替换功能，快速地删除这些标记。
1.把要处理的代码复制、粘贴进入单元格
2.按下组合快捷键Ctrl+F,在“查找内容”文本框中输入“<*>”
在“替换为”文本框中用小数字键盘输入换行符 ALT+10，
3.单击“全部替换”按钮即可。
|
2楼
minren118 |
这个技巧真棒，开始还以为要用正则等高级方法来弄，真是学习了 |
3楼
minren118 |
版主这段代码的作用是什么来的？网抓这一块真是太高深了，这个Set obj = CreateObject("ScriptControl") 还真很少见到过，有专门的帖子拜读一下么？ |
4楼
水星钓鱼 |
另外MSDN帮助文件参考
- http://msdn.microsoft.com/en-us/library/aa227633(v=vs.60).aspx
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一