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

Sub s()

Dim pth$

pth = ThisWorkbook.Path

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

End Sub

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

Sub s()

Dim pth$

pth = ThisWorkbook.Path

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

End Sub

很多时候，我们需要用于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

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