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

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

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

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

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

FileDateTime("filePah")

Sub myMerge()
    Set cel = Range("A1")
    If cel.MergeCells Then
        MsgBox cel.Address(0, 0) & "为合并单元格，" & "共有" & cel.MergeArea.Rows.Count & "行" & cel.MergeArea.Columns.Count & "列组成"
    End If
End Sub