save sheet as "sheetname.txt"

[igorek]

Hello,
I have a file that contains multiple sheets. I'd like to be able to save
sheets from 5 to 10 as individual files in the .txt format with the name of
the sheets.

thank you
Igor

[Tom Ogilvy]

for i = 5 to 10
worksheets(i).copy
Activeworkbook.SaveAs activesheet.Name & ".xls"
Activeworkbook.Close SaveChanges:=False
Next

--
Regards,
Tom Ogilvy

"igorek" <igorek@discussions.microsoft.com> wrote in message
news:D94A4DE5-490C-495F-A975-1CCC76C07583@microsoft.com...
> Hello,
> I have a file that contains multiple sheets. I'd like to be able to save
> sheets from 5 to 10 as individual files in the .txt format with the name
of
> the sheets.
>
> thank you
> Igor

[igorek]

Tom,

While your code does save file as .txt, it does not actually ask Excel for
any specific txt format (text delimited or OS/2 Mac).
Is there a way to specify it?

Thank you
Igor

[Tom Ogilvy]

Sorry, I missed the .txt in your post. (bad eyes).

for i = 5 to 10
worksheets(i).copy
Activeworkbook.SaveAs activesheet.Name & ".txt" FileFormat:=xlText
Activeworkbook.Close SaveChanges:=False
Next

also xlCSV and others - see excel vba help on FileFormat

--
Regards,
Tom Ogilvy


"igorek" <igorek@discussions.microsoft.com> wrote in message
news:F5E9047D-0EBB-47A4-B0A8-7195B3EBFE49@microsoft.com...
> Tom,
>
> While your code does save file as .txt, it does not actually ask Excel for
> any specific txt format (text delimited or OS/2 Mac).
> Is there a way to specify it?
>
> Thank you
> Igor