level 5
手动置顶
2021年07月27日 02点07分
level 5
level 10
level 11
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
level 5
level 10
自己检查一下注*册*表的数据参数吧。
（要“以管理员身份运行”启动RegEdit）
首先打开：HKEY_CLASSES_ROOT\InternetExplorer.Application
注意它的子项：
CLSID: (默认){0002DF01-0000-0000-C000-000000000046}
CurVer: 这儿自己记住(默认)的内容具体是什么
然后打开：
HKEY_CLASSES_ROOT\CLSID\{0002DF01-0000-0000-C000-000000000046}
然后看它的子项： ProgID
它的(默认)内容是什么，跟上面的CurVer的(默认)是否一样？
如果不一样，把上面那个CurVer的默认内容按刚才的ProgID内容改一下。
再看子项： LocalServer32
这个(默认)的内容，应该是你“希望运行"的浏览器exe路径。
不是的话，自己改一下。
2021年07月28日 11点07分
9
（要“以管理员身份运行”启动RegEdit）
首先打开：HKEY_CLASSES_ROOT\InternetExplorer.Application
注意它的子项：
CLSID: (默认){0002DF01-0000-0000-C000-000000000046}
CurVer: 这儿自己记住(默认)的内容具体是什么
然后打开：
HKEY_CLASSES_ROOT\CLSID\{0002DF01-0000-0000-C000-000000000046}
然后看它的子项： ProgID
它的(默认)内容是什么，跟上面的CurVer的(默认)是否一样？
如果不一样，把上面那个CurVer的默认内容按刚才的ProgID内容改一下。
再看子项： LocalServer32
这个(默认)的内容，应该是你“希望运行"的浏览器exe路径。
不是的话，自己改一下。
![[狂汗]](/static/emoticons/u72c2u6c57.png)
楼中楼回复字数有限，只能省略一些非关键文字。我上面主要说的就是HKEY_CLASSES_ROOT\CLSID\下的那一串“类ID”。按你说的来看，已经绕回去了。再找HKEY_CURRENT_USER\Software\Classes下的信息，把它修复看看。
好的谢谢！我试试😭因为自己电脑里可以运行，公司电脑就不行了，我每天都要打开100+个超链接太痛苦了
2021年08月02日 05点08分
呜呜呜我改了，把默认改成firefox.exe的路径，结果运行以后还是360浏览器打开😰
2021年08月02日 06点08分
我刚试了一下你的代码，是能用IE打开的（没安过360的东西），上面那些信息都是IE相关的。你再看一下InternetExplorer.Application下的CurVer内容是什么（比如Inter…….Application.1），再看看Inter…….Application.1下的CLID是啥、在HKR\CLSID下找到它看它关联的程序。
2021年08月02日 12点08分
吧务
level 13
' 用默认浏览器打开指定网页
Dim oShell, cWY
Set oShell = WScript.CreateObject("WSCript.shell")
cWY = "http://www.163.com/"
oShell.run cWY
Set oShell = Nothing
' 用 IE 浏览器打开百度网站的主页。
Dim fnt As String
fnt = "C:\Program Files\Internet Explorer\"
fnt = fnt & "iexplore.exe http://www.BaiDu.com"
Shell fnt, 1
2021年08月01日 03点08分
10
Dim oShell, cWY
Set oShell = WScript.CreateObject("WSCript.shell")
cWY = "http://www.163.com/"
oShell.run cWY
Set oShell = Nothing
' 用 IE 浏览器打开百度网站的主页。
Dim fnt As String
fnt = "C:\Program Files\Internet Explorer\"
fnt = fnt & "iexplore.exe http://www.BaiDu.com"
Shell fnt, 1
level 5
![[泪]](/static/emoticons/u6cea.png)
吧务
level 13
' 如果要打开【Excel】电子表格的单元格里存放的一些链接的话，
' 那还应该懂得用 VB 来描述【Excel 】表格的单元格。
' VB 对 Excel 表格单元格的描述
Dim Oexcel, Oworkbooks, Newbook, Newsheet
Dim Wjm As String, i As Integer, j As Integer
Wjm = App.Path & "Excel_表格文件名.XLS"
Set Oexcel = CreateObject("Excel.application")
Set Oworkbooks = Oexcel.workbooks
Set Newbook = Oworkbooks.open(Wjm)
Set Newsheet = Newbook.worksheets(1) ' 第1张表
' ……
' 单元格描述；i 表示行号，j 表示列号
Newsheet.cells(i, j) = …… ' 向单元格里面写入
变量名 = Newsheet.cells(i, j) ' 读出单元格的数据
' ……
Newbook.Close ' 关闭表
Oexcel.quit ' 退出 Excel 文件打开状态
2021年08月04日 22点08分
12
' 那还应该懂得用 VB 来描述【Excel 】表格的单元格。
' VB 对 Excel 表格单元格的描述
Dim Oexcel, Oworkbooks, Newbook, Newsheet
Dim Wjm As String, i As Integer, j As Integer
Wjm = App.Path & "Excel_表格文件名.XLS"
Set Oexcel = CreateObject("Excel.application")
Set Oworkbooks = Oexcel.workbooks
Set Newbook = Oworkbooks.open(Wjm)
Set Newsheet = Newbook.worksheets(1) ' 第1张表
' ……
' 单元格描述；i 表示行号，j 表示列号
Newsheet.cells(i, j) = …… ' 向单元格里面写入
变量名 = Newsheet.cells(i, j) ' 读出单元格的数据
' ……
Newbook.Close ' 关闭表
Oexcel.quit ' 退出 Excel 文件打开状态