SPLIT FUNCTION IN VBA

[CLINT WILLIAMS]

Good afternoon All

I am hoping that someone can help me please, I am using the split function as below to split the file name with "." which works fine but filename has now changed to : Filename = "Bulk(011)_1021.xlsx" that includes an underscore. How would I alter the MySplit part of the code to include the "_". Any help would be appreciated.

Filename = "Bulk(011).1021.xlsx"
MySplit = Split(Filename, ".", -1)
Mynewfilename = MySplit(0) & "." & SF_YYYY & "." & MySplit(2)
Workbooks.Open Filename:=Path & Mynewfilename, UpdateLinks:=False
MyBook2 = ActiveWorkbook.Name

Thanks
Clint

 

[Joe4]

What is your desired result?
And what is the value of SF_YYYY, which appears to be some sort of variable (though you do not show the value in the code you posted)?

 

[Fluff]

How about

Filename = "Bulk(011)_1021.xlsx"
MySplit = Split(Filename, "_")
Mynewfilename = MySplit(0) & "_" & SF_YYYY & "." & Split(MySplit(1), ".")(1)

 

[CLINT WILLIAMS]

How about

Filename = "Bulk(011)_1021.xlsx"
MySplit = Split(Filename, "_")
Mynewfilename = MySplit(0) & "_" & SF_YYYY & "." & Split(MySplit(1), ".")(1)

Hi Fluff works perfectly!!!!!

 

[Fluff]

You're welcome & thanks for the feedback.