Excel Texbox设置google chrome路径？

我有一个命令按钮，当点击时，它会打开谷歌。 这是我正在使用的代码

    Private Sub CommandButton1_Click()
    Dim chromePath As String
    chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
      Shell (chromePath & " -url https://google.com"), vbNormalFocus
      Unload Me
    End Sub

此工作簿与其他人共享，但在他们的PC上不起作用，因为他们中的一些人有不同的chrome路径，也不知道如何转到VB编辑器进行必要的更改

我的问题:

---

是否可以在userform的文本框中输入chromepath，然后在VBE中进行更改，而无需转到VBE？

使用单元格来保留用户对chrome.exe路径的首选项如何。然后可以使用单元格值而不是硬编码的值

Dim chromePath作为字符串
chromePath=ThisWorkbook.Names（“chromePath”）.refrestorange.Value
如果chromePath=”“，则
chromePath=“C:\Program Files\Google\Chrome\Application\Chrome.exe”
如果结束
Shell（“”）&chromePath&“”-urlhttps://google.com）、vbNormalFocus

如果您的目的是以google作为URL启动chrome，那么您可以尝试下面的代码。只要安装了chrome，它就可以在所有计算机上运行（因为chrome.exe不需要路径）

使用WScript.Shell:

Dim oShell As Object
Set oShell = CreateObject("WScript.Shell")
Dim strCmd As String
strCmd = "cmd /k start chrome.exe -url https://google.com"
oShell.Exec strCmd
Set oShell = Nothing

使用普通外壳

Dim strCmd As String
strCmd = "cmd /k start chrome.exe -url https://google.com"
Shell strCmd, vbHide

---

如果你只是打开一个网页，你不需要知道Chrome安装在哪里。这个评论根本没有帮助。好的，那么让我回答你的问题。是的，可以在路径中使用文本框，这不是最好的解决方案，因为用户也不知道路径。如果你正试图这样做，它不会为你修改代码。如果此人没有安装Chrome怎么办？他们都知道如何找到Chrome的路径，右键单击Chrome应用程序或桌面上的快捷链接，检查目标。然后复制目标路径，将其粘贴到文本框中，这将更改VBA中的代码。但是既然你提到它不会改变代码，你已经回答了我的问题。这听起来是个不错的选择。我一到办公室就会试试。：-）哇，刚刚试过。这甚至更好。你解决了我的问题。：-）我用来测试的电脑是64位的，chrome是64位的，所以我会说是的！