Parsing data from worksheet name

[Rocky0201]

Hi folks...

I have a routine where I open the latest .csv file in my folder. The file has a worksheet with the name:

Activity_05242011_135415_0689.csv

This name is in the string SrcWks

In VB code, I would like to parse out the date and write it to a cell and then parse out the time and write it to another cell.

In advance, thanks for the help.

 

[pgc01]

Hi

Here's an option that you can adapt:

Sub Test()
Dim SrcWks As String
Dim vArr As Variant
 
SrcWks = "Activity_05242011_135415_0689.csv"
vArr = Split(SrcWks, "_")
 
Range("A1").NumberFormat = "yyyy-mm-dd"
Range("A1") = DateSerial(Right(vArr(1), 4), Left(vArr(1), 2), Mid(vArr(1), 3, 2))
 
Range("A2").NumberFormat = "hh:mm:ss"
Range("A2") = TimeValue(Format(vArr(2), "00\:00\:00"))
End Sub

 

[Rocky0201]

Thanks a bunch PGC... Works Great!!!