Thread: VBA script- save file with current filename

Hi guys, I'm sure this is an easy one but I couldn't find anything from searching.

I want to save the current .csv file and a .txt with the same name. The file type is not problem but I can't find out how to specify the filename as the current filename.

Thanks in advance for any help,
James


EDIT
This is what I have now but I want "Filename.txt" to be the current workbook filename.

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\user\Documents\Emails\5Milla\Full Email File_1.csv_Pieces\Filename.txt" _
, FileFormat:=xlText, CreateBackup:=False

Something like:

ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\user\Documents\Emails\5Milla\Full Email File_1.csv_Pieces\" & _
    Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 3) & "txt", _
    FileFormat:=xlText, CreateBackup:=False

Please use Code Tags next time, thanks.


Regards, TMS

Hello James,

This should do it...

Dim n As Long

    n = InStrRev(ActiveWorkbook.Name, ".")
    
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\user\Documents\Emails\5Milla\Full Email File_1.csv_Pieces\" _
        & Left(ActiveWorkbook.Name, n) & "txt" _
        , FileFormat:=xlText, CreateBackup:=False

or use the builtin VBA facilities:

sub snb()
  ActiveWorkbook.SaveAs "C:\Users\user\Documents\Emails\5Milla\Full Email File_1.csv_Pieces\" & CreateObject("scripting.filesystemobject").getbasename(ActiveWorkbook.FullName)  , xlText
End Sub