Activate a CSV file that is already open

[Mike UK]

My code opens 7 new workbooks and saves them as CSV files without closing them. Later in the code I need to activate the relevant CSV file to post data into it. However, I can't seem to activate the appropraite CSV file. If the files are saved as FileFormat:= xlNormal the code runs perfectly however when i change to FileFormat:= xlCSV - the following code won't activate the relevant CSV file. Any ideas?

Workbooks((Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2))).Activate

Thanks

 

[Yongle]

VBA needs
Workbooks("FileName.csv").Activate

At a guess perhaps

Workbooks(Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2) [B]& ".csv"[/B]).Activate

If that does not work, look at the string that is generated by
Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2)
and modify it give VBA what it is looking for

 

[Yongle]

Oops I bolded first
- forgot that VBA code tags do not accept extra formatting ( hence [ B ] & ".csv" [ /B ] )

Should look like this ....

Workbooks(Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2) & ".csv").Activate

 

[Mike UK]

Oops I bolded first
- forgot that VBA code tags do not accept extra formatting ( hence [ B ] & ".csv" [ /B ] )

Should look like this ....

Workbooks(Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2) & ".csv").Activate

Hi Yongle,
Thanks for your reply the code didn't appear to work. I've read that VBA doesn't recognise CSV files as a workbook is that correct?
Mike

 

[Yongle]

Did you test the string Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2) ?

Print it to the Immediate Window in VBA like this

Debug.Print Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2)
Debug.Print Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2) & ".csv"

Display Immediate Window in VBA editor with {CTRL} g

Does either provide the correct file name ?

 

[Mike UK]

Did you test the string Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2) ?

Print it to the Immediate Window in VBA like this

Debug.Print Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2)
Debug.Print Format(Date, "yymmdd") & " " & arrPlatform(0) & " " & arrModelData(R, 2) & ".csv"

Display Immediate Window in VBA editor with {CTRL} g

Does either provide the correct file name ?

Hi Yongle,
Many thanks for your assistance and help with this. Your coding works fine. What I hadn't realised was that when I changed the FileFormat to xlCSV it changed the Active Window and also the sheet name. Needed to add a bit of code to ensure ThisWorkBook.Activate was in place and ignore the name of the sheet tab.

All working fine now. Thanks for you time.
Mike

 

[Yongle]

good - glad you were able to work it out.
thanks for the fedback