Excel 宏打开网站无法在不同的计算机上使用

Excel Macro opening Website not working on different computers

提问人:Olivier Ponton-Lemieux 提问时间:11/17/2023 最后编辑:JohnMOlivier Ponton-Lemieux 更新时间:11/20/2023 访问量:50

问:

我正在尝试创建一个宏,允许我使用 Chrome 打开网站。

我在网上找到了一个简单的代码,它适用于我需要的东西,但我也需要它在不同的计算机上工作,但事实并非如此。

Sub Test()
    navigate = "website"
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & navigate)
End Sub

我在尝试修复它时看到的问题是每台计算机上的chrome.exe路径都不同。

如何修复它,以便宏找到应用程序本身,而无需对路径进行硬编码?

Excel VBA

评论

0赞 SeanC 11/17/2023
它必须是镀铬的吗?如果默认浏览器正常,请在此处检查:stackoverflow.com/questions/3166265/...
0赞 Olivier Ponton-Lemieux 11/18/2023
不,我不必,我查看了您链接的相关帖子,它解决了我的问题。谢谢

答:

0赞 taller 11/17/2023 #1

使用默认浏览器打开网址怎么样

Option Explicit

Sub OpenURL()
    Dim url As String
    url = "https://stackoverflow.com/"
    Shell "cmd /c start " & url, vbNormalFocus
End Sub

评论

0赞 Olivier Ponton-Lemieux 11/17/2023
我在我的电脑上尝试了它,它在打开网站时“工作”了,但它使我的 Excel 窗口崩溃,当我重新打开它时,它不再工作了。甚至没有在另一台计算机上尝试过。
0赞 taller 11/17/2023
我已经在 Win 11 + Office 365 上测试了它,没有任何保证。