Mass trim file names in a folder

[TheHack22]

Hi All,

I have daily downloads of files in a folder. The file name suffix always changes with an added "(**) some number in those parentheses. See screen show below.
I would typically, manually edit all the downloaded files suffix, to match my subs syntax can recognize the file name. See two subs examples below.

Is there a way to mass Trim the "(4)"? This number would change daily. Alternatively, is there a way to use a wildcard for each download file name like, "1_CLASS_INTL_Daily***"?



Sub CLASS1_INTL()
Dim MyRange As Range
Windows("1_CLASS_INTL_Daily.csv").Activate
With ActiveSheet.UsedRange
Set MyRange = Range(.Cells(2, 1), .Cells(1, 1).Offset(.Rows.Count - 2, .Columns.Count - 1))
MyRange.Select
Selection.Copy
End With

Windows("Calculator for All Class 8.12.2021.xlsm"). _
Activate
Sheets("CLASS 1 - INTL").Select

Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1_CLASS_INTL_Daily.csv").Close
End Sub


Sub CLASS2_INTL()
Dim MyRange As Range
Windows("2_CLASS_INTL_Daily.csv").Activate

With ActiveSheet.UsedRange
Set MyRange = Range(.Cells(2, 1), .Cells(1, 1).Offset(.Rows.Count - 2, .Columns.Count - 1))
MyRange.Select
Selection.Copy
End With

Windows("Calculator for All Class 8.12.2021.xlsm"). _
Activate
Sheets("CLASS 2 - INTL").Select

Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("2_CLASS_INTL_Daily.csv").Close
End Sub

 

[TheHack22]

Try workbooks(s) instead of windows(s)

HI @bobsan42

Thanks very much for your response. I tried the "workbooks(S)" syntax, but still having the same issues.
Imran

 

[rlv01]

S is a variable that refers to the filename (or window name)of the file (or window) you are trying to close. If the value of S refers to a filename (or window) that does not exist, you will get that error.

 

[bobsan42]

won't it be easier to just use

WB.close

S changes several times so it's value needs to be confirmed at the close attemp.
if it still creates troubles just comment out this row for the moment.
Workbooks can be closed later when all is done.

 

[TheHack22]

won't it be easier to just use

WB.close

S changes several times so it's value needs to be confirmed at the close attemp.
if it still creates troubles just comment out this row for the moment.
Workbooks can be closed later when all is done.

@bobsan42

Thanks very much. I'll try this and let you know.
Imran