Extracting specific data from a string

[Bishop]

I have several reports that are named using a specific naming protocol:

Center "C&A PF" Month Year Week Analyst Initials

Here a few examples:

Greensboro C&A PF Jan 09 wk2 lw
Heathrow C&A PF Mar 09 wk3 et
London C&A PF Feb 09 wk5 bm

I need to extract the month from the file name and assign it to a variable,
say Mnth. So for the Greensboro report Mnth = Jan. For the London report
Mnth = Feb, etc. How can I do this?

 

[Gary''s Student]

Use Split:

Sub MonthGetter()
Dim s As String
s = "Greensboro C&A PF Jan 09 wk2 lw"
v = Split(s, " ")
MsgBox (v(3))
End Sub

Split in VBA is similar to Text to Columns in the worksheet.

 

[Jacob Skaria]

Suppose..

strReport = "Greensboro C&A PF Jan 09 wk2 lw"
strMonth = Split(strReport)(3)

If this post helps click Yes