Sub t()
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
发布评论