Export "selected cells" to a TXT file.

[brunces]

Hello, fellas.

Please, does anybody know how to create a macro to export (save
whatever) only "selected cells" (or only one sheet) to a "TXT" file


I mean... The macro would have 2 steps:

1st - Select A140
2nd - Open the "Export to" dialog box, with the "Save as type" optio
already pointed to "Text (Separated by tabs)".

Is that possible?

---

One more doubt...

Is there any way to change an icon of a single MS Excel file, using VB
or any other way to do it?

I've got this little project wich I created in MS Excel and that woul
be very cool if I could change its icon, just as it was a real littl
software, and not a simple MS Excel file.

Well, thanks for the attention. Hugs for all.

Bruno

 

[Chip Pearson]

Bruno,

See the "Exporting To Text Files" section at
www.cpearson.com/excel/imptext.htm . As for the icon, I don't
believe you can change the display icon for a single Excel file.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Tom Ogilvy]

Dim sh as Worksheet
set sh = activeSheet
workbooks.Add
sh.Range("A140").copy Destination:=Activesheet.Range("A1")
Application.DisplayAlerts = False
activeworkbook.SaveAs filename:=sh.Name & ".xls", FileFormat:=xlText
Activeworkbook.Close SaveChanges:=False
Application.DisplayAlerts = True


for a sheet

Dim sh as Worksheet
set sh = activeSheet
sh.copy
Application.DisplayAlerts = False
activeworkbook.SaveAs filename:=sh.Name & ".xls", FileFormat:=xlText
Activeworkbook.Close SaveChanges:=False
Application.DisplayAlerts = True