excel - 打开网络目录上的文件

Question

我试图在打开文件对话框中指定网络目录。

Sub Get_Data()
    'ChDrive "M:\"
    ChDir "\\netDrive\xxx$\yyy"
    FileToOpen = Application.GetOpenFilename _
      (Title:="Please choose a file to import", _
      FileFilter:="Excel Files *.xls (*.xls),")
    ''
    If FileToOpen = False Then
        MsgBox "No file specified.", vbExclamation, "Duh!!!"
        Exit Sub
    Else
        Workbooks.Open Filename:=FileToOpen
    End If
End Sub

驱动器映射为 M，因此如果我替换以下代码，它就可以工作:

    ChDrive "M:\"
    ChDir "\yyy"

我不确定用户是否使用相同的字母映射了驱动器。

有没有办法让宏使用网络路径？

Answer 1

您可以使用 Dir() 测试文件夹是否存在:

Sub Get_Data()
    If Dir("M:\", vbDirectory) <> vbNullString Then
        '''Drive mapped
        ChDrive "M:\"
    Else
        '''Drive not mapped
        ChDir "\\netDrive\xxx$\yyy"
    End If

    FileToOpen = Application.GetOpenFilename _
                (Title:="Please choose a file to import", _
                FileFilter:="Excel Files *.xls (*.xls),")

    If FileToOpen = False Then
        MsgBox "No file specified.", vbExclamation, "Duh!!!"
        Exit Sub
    Else
        Workbooks.Open FileName:=FileToOpen
    End If
End Sub