Excel VBA从单元格获取UNC并在explorer.exe中打开它

Question

我有一个包含PC主机名列表的文件，我希望能够通过单击单元格或按钮或其他内容来连接到特定主机的C驱动器。

假设我当前在A列中拥有主机名。我使用CONCATENATE将其转换为正确的网络路径\\\\ hostname \\ C $并将其放在B列中。

现在，我该如何做才能仅单击B列中的单元格以在explorer.exe中打开该位置？ 我有450台PC，所以我需要能够指定范围，将网络路径输入VBA，然后在explorer.exe中打开它，这有意义吗？ ：P

非常感谢您的帮助。 谢谢。

Answer 1

将串联的值包装在“ Hyperlink（）”中。 从那时起，它是可单击的，它将打开资源管理器。

=HYPERLINK(CONCATENATE("\\";A1;"\C$");A1)

或者，您可以将此代码放在“工作表”代码窗格中，然后双击链接所在的单元格。 但是，您不能将其与HYPERLINK结合使用。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
Dim sh As Object
Set sh = CreateObject("Wscript.Shell")
sh.Run ("explorer " & Target.Value)
Cancel = True
End Sub