vba打开文件后如何获得打开文件的路径

Dim Filename As Variant

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

给你个思路:

Public Sub ds()

Dim She As New Shell

Dim Fo As Shell32Folder

Set Fo = SheBrowseForFolder(0, "", 0)

MsgBox FoItemsItemPath

End Sub

记得在引用里面将这个打勾,否则会报错

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

比如: Public iFileName As String

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

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

Sub test1()

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

iFileName = ApplicationGetOpenFilename

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

以上就是关于vba打开文件后如何获得打开文件的路径全部的内容，包括:vba打开文件后如何获得打开文件的路径、VBA中如何获取已复制文件的路径、VBA中怎么通过打开文件的对话框获取选择文件的路径并在其他模块中引用该路径等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！