Sub selectExce1lfile()
Dim aFile, fileNameObj As Variant
Dim fullName, fileName As String
Dim i As Integer
Dim ExcelFullPathAndName As String, workbookName As String
'调用Windows打开文件对话框,数组的最后一个元素为文件名
fileNameObj = Application.GetOpenFilename("所有文件 (*.*),*.*")
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
Range("A1") = "文件路径"
Range("B1") = "文件名"
Range("A2") = fullName
Range("B2") = fileName
MsgBox "您选择的全路径式文件名是: " & vbCr & fullName
End Sub
小贴士:
- '选择文件时只显示excel文件:
fileNameObj = Application.GetOpenFilename("Excel 文件 (*.xls*),*.xls*")
- 回车换行符:
vbCr