如何用VBA打开选择文件和选择路径的对话框

ifilename = Application.GetOpenFilename("Excel 表格 (*.xls), *.xls", 谈源, , , False)

ifilename就是选中文件的带路径的文件名，用InStrRev(ifilename, "\"仿乱)，配以left()函数就可以获得文件所含大态在文件夹。

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

---