Excel VBA-在动态文件名中删除日期

Question

I am amateur to VBA.

My objective is to zip the folder with multiple files which i have managed to achieve. But I need to format the file names.

Some files in the folder might contain date either as prefix or suffix of filename (example: ddmmyyyyexpense.xlsx or expenseddmmyyyy.txt ).

I would like to remove the date from the file name.

Note: I could have any file type

.xls
.xlsx
.csv
.txt

I tried using wildcards appending to one of the strings and VBtextcompare but it didn't work.

Answer 1

as I like a RegExp I will :)

This code looks for an eight digit number, tests if this is a valid date, and if so removes it.

If you have more than one possible date, or if the 8 digits are surrounded by other numbers it will need refining.

The code below feeds three sample strings to the cleaning function, it strips the date from the first and third, leaves the second as is.

Sub TestDate()
Debug.Print CleanStr("01142012expense.xlsx")
Debug.Print CleanStr("421142012expense.xlsx")
Debug.Print CleanStr("expense16042015.xlsx")
End Sub

code

Function CleanStr(strIn As String) As String
Dim objRegex As Object
Dim objRegMC As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
    .Pattern = "(\d{2})(\d{2})(\d{4})"
    If .test(strIn) Then
        Set objRegMC = .Execute(strIn)
        If IsDate(objRegMC(0).submatches(0) & "/" & objRegMC(0).submatches(1) & "/" & objRegMC(0).submatches(2)) Then
            CleanStr = .Replace(strIn, vbNullString)
        Else
            CleanStr = strIn
        End If
    End If
End With
End Function