VBA:从本地驱动器名称转换为网络驱动器名称

Question

我有这个最初只由我使用的宏。但我现在需要把它分发给其他人。基本上，我写了一个宏，让你浏览文件，然后它将我的本地路径转换为网络驱动器路径(HTML 样式)。从我下面的代码可以看出，我特指的是 R 盘和 Z 盘。但是，如果其他人使用它，他们可以用 A 驱动器和 B 驱动器代替。如何重写以下内容，以便拉网络驱动器而不是本地驱动器？谢谢!

Private Sub GetFilePath_Click()

FilePath = Application.GetOpenFilename()
If FilePath <> False Then
    Range("E6").Value = FilePath
End If

End Sub

将选择的文件转换为 HTML 路径的函数

Function ModFilePath(FilePath As String) As String

Dim HTMLFilePath As String
Dim Drive1 As String
Dim Drive2 As String
Dim Drive3 As String

On Error Resume Next

HTMLFilePath = Replace(FilePath, " ", "%20")

'I know somehow I need to rewrite this part
Drive1 = Replace(HTMLFilePath, "R:\", "\\network_name\apple\")
Drive2 = Replace(HTMLFilePath, "Z:\", "\\network_name\orange\")

If Err.Number = 0 Then
    If Left(HTMLFilePath, 1) = "R" Then
        ModFilePath = Drive1
    Else
        If Left(HTMLFilePath, 1) = "Z" Then
            ModFilePath = Drive2
        End If
    End If

Else
    ModFilePath = "Error"
End If

End Function

Answer 1

就个人而言，我会添加 Inputbox 让 ppl 键入他们的驱动器，并将给定的值与路径的其余部分连接起来。