Makro na uložení dle názvu souboru Vyřešeno

[kosmodrak]

Zdravím, vytvořil jsem si makro na uložení souboru dle názvu, jenže do excelu otvírám soubory .txt a při uložení dle názvu souboru se to ukádá také jako .txt a já bych potřeboval, aby se to ukládalo jako .xls nebo .xlsx. nějaké tipy??

Sub Makro1()
'
' Makro1 Makro
'

'
ChDir "C:\Users\david.kosmak\Desktop\Microsoft"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\david.kosmak\Desktop\Microsoft\" & ActiveWorkbook.Name, FileFormat:= _
xlNormal, CreateBackup:=False
End Sub

[Reklama]

[Mirdad69]

ChDir "C:\Users\david.kosmak\Desktop\Microsoft"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\david.kosmak\Desktop\Microsoft\" & mid(activeworkbook.Name,1,len(activeworkbook.Name)-4), FileFormat:= _
xlNormal, CreateBackup:=False
End Sub

[kosmodrak]

Díky moc, strašně mi to usnadní práci

[Mirdad69]

je to pro případ, že přípona je vždy na 3 místa (TXT).

Jiná varianta je left(activeworkbook.name,WorksheetFunction.Find(".",activeworkbook.Name)-1)
Ale, je to případ, že přípona existuje a v názvu souboru nejsou jiné tečky.