如何用vba代码取出当前IE设置的主页信息？

作者：绿色风分类：时间：2022-08-17 浏览：146

楼主 kevinchengcw	Q: 如何用vba代码取出当前IE设置的主页信息？ A: 代码如下： Sub test3() Dim Str$, RegPath$ On Error Resume Next With CreateObject("WScript.Shell") '创建项目 RegPath = "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page" '设定注册表路径 Str = .regread(RegPath) '取出第一个主页 If Trim(Str) <> "" And LCase(Str) <> "about:blank" Then '判断是否是为设置值 RegPath = "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Secondary Start Pages" '第二个主页项的位置（IE7以上支持设置多个主页） If Join(.regread(RegPath), vbNewLine) <> "" Then Str = Str & vbNewLine & Join(.regread(RegPath), vbNewLine) '如果有该项且有内容，则串接到字符串后面 MsgBox "当前设置的主页是：" & vbNewLine & Str '显示结果 Else MsgBox "当前未设置主页" '如果未设置主页则显示未设置 End If End With End Sub
2楼 jingyingtihu	厉害啊，真是高手啊
3楼纵鹤擒龙水中月	来学习一下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表