VBA打开⽂件选择框、取得⽂件全路径与⽂件名在VBA编程中我们，常常需要⼿动打开⽂件选择框、取得⽂件全路径与⽂件名，下载这个例⼦可以实现这些功能，代码如下：
'VBA打开⽂件选择框、取得⽂件全路径与⽂件名
Sub selectExcelfile()
Dim fileNameObj As Variant
Dim aFile As Variant                            '数组，提取⽂件名fileName时使⽤
'打开⽂件对话框返回的⽂件名，是⼀个全路径⽂件名，其值也可能是False，因此类型为Variant
Dim fullName As String
黄百鸣的女儿Dim fileName As String                        '从FileName中提取的路径名
托尔巴拉德怎么去Dim i As Integer
fileNameObj = Application.GetOpenFilename("Excel ⽂件 (*.xls),*.xls")
'调⽤Windows打开⽂件对话框
朴和善If fileNameObj <> False Then                      '如果未按“取消”键
aFile = Split(fileNameObj, "\")
fileName = aFile(UBound(aFile))            '数组的最后⼀个元素为⽂件名
fullName = aFile(0)
For i = 1 To UBound(aFile)                '循环合成全路径
fullName = fullName & "\" & aFile(i)
Next集成显卡和独立显卡区别
Else
MsgBox "请选择⽂件"
六级听力分值End
End If
'得到Excel全路径
小说
allExcelFullPath = fullName
'得到Excel⽂件名
workbookName = fileName
End Sub