Reading multiple text files and saving as Xlsm with same name as text file

Could you please help me on this? I want to read 3000 text files by opening in excel file and save as .xlsm file with same text file name. I tried many times. Mainly how to save files with same name as text file.