Macro to save worksheet
I need help writing a macro that I can place in a .xlt file.
The .xlt file is modified and saved as a .xls file.The macro will allow me to automatically save a worksheet from the workbook as a tab delimited text file with the same name as the .xls file without prompting for a file name Current macro that I am using is: ChDir "C:\Documents and Settings\My Documents\ ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\My Documents\" & InputBox("File Name ?"), FileFormat:=xlText, CreateBackup:=Fals Thank |
Macro to save worksheet
If this lcase(thisworkbook.name,4) = ".xls" then
ChDir "C:\Documents and Settings\My Documents\" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\My Documents\" & _ application.Substitute(thisworkbook.name,".xls",". txt"), _ FileFormat:=xlText, CreateBackup:=False End if -- Regards, Tom Ogilvy "RSVP" wrote in message ... I need help writing a macro that I can place in a .xlt file. The .xlt file is modified and saved as a .xls file.The macro will allow me to automatically save a worksheet from the workbook as a tab delimited text file with the same name as the .xls file without prompting for a file name. Current macro that I am using is: ChDir "C:\Documents and Settings\My Documents\" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\My Documents\" & InputBox("File Name ?"), _ FileFormat:=xlText, CreateBackup:=False Thanks |
Macro to save worksheet
Tom
Problem solved, thanks for the assist. |
All times are GMT +1. The time now is 11:53 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com