Extracting attachments and rename file names

[gmayor]

This request is somewhat confusing. Your message appears to suggest that you receive reports in ZIP format. Do you want to rename the ZIP file, or do you want to extract the files from the zip and rename those? What exactly is in the Zip file? Is it just the one CSV format file, or XLSX file or both?

1 - see http://www.rondebruin.nl/win/s7/win002.htm
2 -

Dim strName As String
Dim strNewName As String: strNewName = ""
Dim strPath As String
Dim strExt As String
Dim strDate As String
    strPath = "C:\Path\"
    strName = "report_20170831070501.csv"
    If InStr(1, strName, "_") > 0 Then
        strExt = Right(strName, Len(strName) - InStrRev(strName, Chr(46)) + 1)
        strNewName = Left(strName, Len(strName) - Len(strExt) - 2)
        strDate = Split(strNewName, "_")(1)
        If Len(strDate) = 12 And IsNumeric(strDate) = True Then
            strNewName = Left(strNewName, Len(strNewName) - 2) & strExt
        End If
        Name strPath & strName As strPath & strNewName
    End If

3 - You should be able to work out 3 from 2