VBA点滴备忘录（持续更新中）

1、判断Excel文件是否已打开以及自动打开文件

Function openWorkbook(ByVal fileName, ByVal filePath)
    On Error Resume Next
    If Len(Workbooks(fileName).Name) <= 0 Then
        Workbooks.Open (filePath)
    End If
End Function

2、从文件全路径中截取文件名

Dim FilePath As String
FilePath = "C:\xxx\xxxx\review.txt"
Dim FileName As String
FileName = Right(FilePath, Len(FilePath) - InStrRev(FilePath, "\"))

3、从文件全路径名中截取文件夹路径

Dim filePath As String
filePath = "C:\xxx\xxxx\review.txt"
Dim forlderPath As String
forlderPath = Left(filePath, InStrRev(filePath, "\"))

4、统计某个文件夹下的文件个数

Function getFileCount(ByVal forlderPath, ByVal filePath, index)
    Dim tmpFilePath As String
    tmpFilePath = Dir(forlderPath & "*.*")
    Dim i As Integer
    i = 0
    Do While tmpFilePath <> ""
        i = i + 1
        If tmpFilePath = filePath Then
            index = i
        End If
        tmpFilePath = Dir
    Loop
    getFileCount = i
End Function

5、获取文件的最近修改的日期与时间

FileDateTime("filePah")

6、在单元格中显示当前工作表名称

首先在 公式 -> 定义名称 中定义一个名称，名字就叫sheetName，引用位置 设置为“=GET.WORKBOOK(1)”

然后在要显示工作表名称的单元格内设置如下公式： =MID(INDEX(sheetName,SHEET()),FIND("]",INDEX(sheetName,SHEET())) + 1, 256)，就能显示当前工作表名称了。

7、Excel取消合并单元格后，每个单元格的内容自动填满

    1.选中要取消合并的单元格，取消合并。

    2.把所选单元格的格式改成“普通”，而不是“字符串”、“日期”等其他格式

    3.按下 CTRL+G

    4.选择空值

    5.输入“=”+上箭头

    6.按下  Ctrl+Enter