Excel worksheet converted to txt file

oz2mk · 07-11-2008, 03:06 AM

Hi,

I have large excel spreadsheet which i need to convert automaticaly to text file, and automaticaly name the file with specific name format (eg. date is part of the name -Nmmddyy1.txt. Is it possible.?
I can do that by Save As, and choose txt document, but is there a way to do this with some command or macro?

CTSNKY · 07-11-2008, 04:17 AM

Try this link:

http://www.techonthenet.com/excel/macros/saveas.php

oz2mk · 07-11-2008, 07:21 AM

Thx but this macro gives Save As dialog with *.xls as the only choice in Save as type field. *.txt is not there and that's the one I need

David M58 · 07-11-2008, 07:58 AM

In that case, let's modify the macro a bit:

Code:

Sub mcrSave()
    Dim fileSaveName As Variant

    'Retrieve file name to use for Save
    fileSaveName = Application.GetSaveAsFilename( _
        fileFilter:="Text Files (*.txt), *.txt")

    'If user specified file name, perform Save and display msgbox
    If fileSaveName <> False Then
        ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlTextWindows

        MsgBox "Save as " & fileSaveName
    End If
End Sub

oz2mk · 07-11-2008, 08:34 AM

thanks a lot mate, you are champ.
it works fine. can we put preset format as a file name, eg. instead of book1, i need for example Nddmmyy1.txt (N1107081.txt for today)
Appreciate your help

David M58 · 07-11-2008, 09:20 AM

Okay, let's modify the line where we retrieve the file name to use for the save:

Code:

    fileSaveName = Application.GetSaveAsFilename( _
        InitialFilename:="N" & Format(Date, "ddmmyy") & "1.txt", _
        fileFilter:="Text Files (*.txt), *.txt")

oz2mk · 07-11-2008, 09:56 AM

Thanks a lot mate,

You are THE MAN,

It really helped me a lot.

Cheers

07-11-2008, 03:06 AM	#1 (permalink)
oz2mk Registered User Join Date: Jul 2008 Posts: 4 OS: winxp	Excel worksheet converted to txt file Hi, I have large excel spreadsheet which i need to convert automaticaly to text file, and automaticaly name the file with specific name format (eg. date is part of the name -Nmmddyy1.txt. Is it possible.? I can do that by Save As, and choose txt document, but is there a way to do this with some command or macro?

07-11-2008, 04:17 AM	#2 (permalink)
CTSNKY Knower of all that is MS Join Date: Aug 2004 Posts: 10,755 OS: (multiple machines) 95, 98, 2K & XP Home & Pro	Re: Excel worksheet converted to txt file Try this link: http://www.techonthenet.com/excel/macros/saveas.php __________________ GO BIG BLUE!!

07-11-2008, 07:21 AM	#3 (permalink)
oz2mk Registered User Join Date: Jul 2008 Posts: 4 OS: winxp	Re: Excel worksheet converted to txt file Thx but this macro gives Save As dialog with .xls as the only choice in Save as type field. .txt is not there and that's the one I need

07-11-2008, 08:34 AM	#5 (permalink)
oz2mk Registered User Join Date: Jul 2008 Posts: 4 OS: winxp	Re: Excel worksheet converted to txt file thanks a lot mate, you are champ. it works fine. can we put preset format as a file name, eg. instead of book1, i need for example Nddmmyy1.txt (N1107081.txt for today) Appreciate your help

07-11-2008, 09:20 AM	#6 (permalink)
David M58 Registered User Join Date: May 2008 Location: Baltimore, Maryland Posts: 94 OS: Windows XP SP3	Re: Excel worksheet converted to txt file Okay, let's modify the line where we retrieve the file name to use for the save: Code: fileSaveName = Application.GetSaveAsFilename( _ InitialFilename:="N" & Format(Date, "ddmmyy") & "1.txt", _ fileFilter:="Text Files (.txt), .txt")

07-11-2008, 09:56 AM	#7 (permalink)
oz2mk Registered User Join Date: Jul 2008 Posts: 4 OS: winxp	Re: Excel worksheet converted to txt file Thanks a lot mate, You are THE MAN, It really helped me a lot. Cheers