VBA如何获取当前EXCEL文件的路径

1、首先打开Excel数据表，在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些内容。

3、在VBA编辑器中插入模块。

4、Sub获取文件路径()Dim filess, tempfiless=Application.GetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件，程序即将退出！": Exit Subtemp=Split(filess, "\")。

5、MsgBox "你选择的《" &temp(UBound(temp)) &"》的路径为：" &Chr(10) &filess _

&Chr(10) &"当前表路径为：" &Chr(10) &ThisWorkbook.FullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码，然后运行。

6、然后单击“执行”按钮，程序d出“选择文件”对话框。选择一个文件后，程序立即d出所选文件的路径，然后d出当前工作簿的路径。

1.插入一个模块或在已有的模块最上面一行定义一个全局变量

比如: Public iFileName As String

2.在这个工作薄的其他模块中都可以引用这个变量

比如:(先执行一次test1,再执行test2)

Sub test1()

'打开一个选择文件的对话框

iFileName = Application.GetOpenFilename

End Sub

Sub test2()

If iFileName = "False" Then

MsgBox "没有选择文件!"

Else

wz = InStrRev(iFileName, "\")

Path = Left(iFileName, wz)

fname = Right(iFileName, Len(iFileName) - wz)

MsgBox "选择的文件名为:" &fname &vbCrLf &"路径为:" &Path

End If

End Sub

Dim Filename As Variant

Filename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", Title:="请选择文档：", MultiSelect:=True) 'MultiSelect:=True 这里的true就可以同进选择多个文件，是FALSE就只能选一个。

---