vba 获取文件夹路径 教程

1、1.在excel文件中，要获取本文件保存所在目录文本夹的路径，可通过以下代码来获取：

Sub s()

    Dim pth$

    pth = ThisWorkbook.Path

    MsgBox "本文件的路径为：" & pth

End Sub

2、2.在word文件中，要获取本文件保存所在目录文本夹的路径，可通过以下代码来获取：

Sub s()

    Dim pth$

    pth = ThisWorkbook.Path

    MsgBox "本文件的路径为：" & pth

End Sub

1、很多时候，我们需要用于FileDialog对话框来打开文件夹，那么怎么获取打开的文件夹路径呢？可以使用下面的代码来获取：

Sub test()

  Set fileDlg = Application.FileDialog(msoFileDialogFolderPicker)

  With fileDlg

      If .Show = -1 Then

           For Each fld In .SelectedItems

                MsgBox fld

           Next fld

      End If

  End With

End Sub

1、操作系统中会默认定义一些系统变量，vbs中可以对这样变量进行读取，从而获取这个系统文件夹目录路径。如 Environ("SYSTEMDRIVE")，可返回系统根目录所在盘符。

2、又比如 Environ("SYSTEMROOT")函数，可返回系统根目录文件夹的路径；

Environ("TEMP")函数，可返回系统默认临时目录文件夹的路径。

3、还比如，Environ("HOMEPATH")函数，可以返回当前登录用户主目录所在路径（不含盘符）。Environ("HOMEDRIVE")函数，可以返回当前登录用户主目录所在盘符。

4、……等等！还有很多其它的系统变量，具体操作大家可以在cmd命令行窗口中，运行“set”命令，来查看当前系统主要有哪些系统变量。然后，大家用Environ函数调用相应变量名即可。