VBA打开本地文件夹目录


需求：在一个字段中记录了一个文件的存放地址，希望能在查阅模板时，打开此文件夹。
效果：

方法：

1.             Dim Shell As Object = AutomationFactory.CreateObject("Shell.Application")
   
2.             Dim FolderAdr As String
   
3.             FolderAdr = ActiveWorkbook.ActiveWorksheet.Range("D9").Value
   
4. 
   
5.             If e.Shape.Name = "Button 1" Then
   
6.                 Shell.ShellExecute(FolderAdr)
   
7.             End If

复制代码

Imports System.Runtime.InteropServices.Automation

这个服务器上的共享目录下的能打开吗?
就是说支持配置用户与密码吗?

要是导出文件到本地。能在快表里打开这个文件，那就方便很多了。

Imports System.Runtime.InteropServices.Automation

这个服务器上的共享目录下的能打开吗?
就是说支持配置用户与密码吗?

要是导出文件到本地。能在快表里打开这个文件，那就方便很多了。