VBA - Save txt file as xls

[lionelnz]

Hi all.

I want to use VBA to save a manually imported txt file as xls. This part of automating several functions as these functions are done several times a week on several files.

I have tried various SaveAs combinations but nothing seems to work.

Do I have to do something line this

Count Filename ( cFn, total characters in the txt file name)

fN = Left(Filename,cFn-4)

File SaveAs Filename=fN, Filetype = xlNormal

Thanks

 

[VBA Geek]

Workbooks.OpenText "H:\Desktop\MYFILE.txt"
Workbooks("MYFILE.txt").SaveAs "H:\Desktop\MYFILE.xls"

 

[lionelnz]

Thanks I will give your simple solution a go but in the meantime I have worked out a more convoluted solution

 Sub FileSaveXls()
Dim strFileName As String
Dim cFn As Integer


strFileName = ActiveWorkbook.Name
cFn = Len(strFileName)
strFileName = Left(strFileName, cFn - 3) & "xls"
ActiveWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlNormal
End Sub