Question

VBA中怎么通过打开文件的对话框获取选择文件的路径并在其他模块中引用该路径？

引用时要怎么写

Answer 1

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

Answer 2

'在文件对话框对中返回选择一个文件夹的路径. Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) With dlgOpen If .Show = -1 Then ChooseFolder = .SelectedItems(1)End IfEnd With Set dlgOpen = Nothing End Function '-------------------------------------------------------- '在文件对话框对中，选择一个文件。

搜索
如何生成文件路径
vba编程课程免费全套
打开文档用什么软件
文档的目录如何生成
python和vba区别
怎么让目录自动生成

Answer 3

fname = Application.GetOpenFilename("Microsoft Excel(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
If fname = "False" Then
Exit Sub
Else
msgbox fname
End If

Answer 4

不是很清楚你想问什么，下面这段代码或许可以帮到你。
Sub getroot()
yourFile = Application.GetOpenFilename
MsgBox yourFile
Workbooks.Open Filename:=yourFile
End Sub

Answer 5

定义全局变量
public *** as ***