VBA弹窗打开⽂件,获取⽂件名以及⽂件全路径'改程序没有实际打开任何⽂件
Sub t()
On Error GoTo myErro  '当没有选择打开任何⽂件时会报错,所以添加异常处理
Dim fileToOpen()As Variant, i As Long, filePaths()As String买房子贷款
'设置筛选器,可同时选择多个⽂件面粉面膜
fileToOpen = Application _
.GetOpenFilename(filefilter:="Files (*.txt;*.xlsx), *.txt;*.xlsx", MultiSelect:=True)
吕良伟身高If UBound(fileToOpen)<>0Then号可以改吗 怎么改
涂磊二任老婆照片
For i =1To UBound(fileToOpen)
filePaths = Split(fileToOpen(i), delimiter:="\")
Debug.Print "打开的⽂件的⽂件名:" & filePaths(UBound(filePaths))
鹿晗分手
Debug.Print "打开的⽂件的完整路径:" & fileToOpen(i)
Next i
End If
myErro:
End Sub