VBA 部分实用函数

今天的学习课程一共是两个，一个是把昨天提到的常用的函数写一遍，另一个是学习一些新函数

 

一、昨天提到的相关函数

https://blog.csdn.net/Di77HaoWenMing/article/details/107886745

1.判断文件是否存在的函数 FileExists

文件是否存在主要是用Dir(path)进行判断，不为空留存在啦

Private Function FileExistx(path As String) As Boolean
    FileExistx = False
    If Dir(path) <> "" Then
        FileExistx = True
    End If
End Function

2.根据路径只获取文件名称 FileNameOnly

主要思路是根据文件的路径地址，截取最右边的小数点 . 到最右边的斜杠 \ 之间的内容，即为文件名。需要用到split函数

如果截取文件名+后缀的话，以下语句即可

Private Function FileNameOnly(filePath As String)
    If Dir(filePath) <> "" Then
        FileNameOnly = Dir(filePath)
    End If
End Function

如果不需要后缀的话，可以用以下方式

Private Function FileNameOnly(filPath As String)
    If Dir(filPath) <> "" Then
        FileNameOnly = Split(Dir(filPath), ".")(0)
    End If
End Function

但是这个会有个问题，就是文件名本身带有小数点的话，截取文件名会出错，比如文件地址是"E:\VBA\