VBA save as txt file - Uppercase file extension

[ddoublev]

Hi,

Currently the below code snippet is used to save a range of data into a tab delimted text file for upload into a database.
I have just found out the file name including extension needs to be uppercase throughout.

ActiveWorkbook.SaveAs SaveToDirectory & SaveName, xlText

Is there a way to force through VBA the file name save as *.TXT ?

Cheers

Dylan

 

[Tetra201]

Just add ".TXT" to SaveName, for example:

...
SaveName = "MYFILE.TXT"
...

 

[ddoublev]

Thanks for the response
I have tried that already, no luck.
Below is all the save as code, works perfectly as is except saves as *.txt

     'To save worksheet as csv
     Sheets(EnviroSys).Activate
     SaveName = "SGS_BHPBIO_" & Site & "_WATER_POTABLEWATER_" & Recorder & "_" & Format(Now, "dd-mm-yy_hh_mm") 'Save file as
     ActiveSheet.Copy 'copies EnviroSys Template
     ActiveWorkbook.SaveAs SaveToDirectory & SaveName, xlText 'saving into C:\temp\
     ActiveWorkbook.Close Savechanges:=False

Any other ideas? Im all out

 

[Tetra201]

This sub has been tested to save the file with the upper-case extension:

Sub Test()
    Site = "Site1"
    Recorder = "Recorder1"
    SaveToDirectory = "C:\Temp\"
    SaveName = "SGS_BHPBIO_" & Site & "_WATER_POTABLEWATER_" & Recorder & "_" & Format(Now, "dd-mm-yy_hh_mm") [COLOR=#ff0000]& ".TXT"[/COLOR]
    ActiveWorkbook.SaveAs SaveToDirectory & SaveName, xlText
End Sub

 

[ddoublev]

Tetra201 - thankyou very much for your assistance

 

[Tetra201]

You are welcome.