Кнопка перевести в txt

Алексей Гость	#1 22.05.2008 13:57:43 Уважаемые профессионалы Excel! Как возможно сделать кнопку, которая бы перевела значения ячейки (листа) в формат txt?

Лузер™ Гость	#2 22.05.2008 14:38:30 Кнопка жизненно необходима? В экселе есть встроенные функции для работы с текстом с кучей возможностей. Например, =ТЕКСТ().

Алексей Гость	#3 22.05.2008 14:43:15 {quote}{login=Лузер™}{date=22.05.2008 02:38}{thema=}{post}Кнопка жизненно необходима? В экселе есть встроенные функции для работы с текстом с кучей возможностей. Например, =ТЕКСТ().{/post}{/quote} Именно кнопка нужна...

Лузер™ Гость	#4 22.05.2008 14:48:32 activecell.value=trim(str(activecell.value)) или activecell.value=format(activecell.value,"нужный_формат")

mazayZR

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

22.05.2008 14:51:31

хм...
надо:
А- "перевести" значение ячейки (листа) в текстовый формат прям тут же на листе.

Sub Макрос2()
Cells.Select
Range("C12").Activate
Application.CutCopyMode = False
Selection.NumberFormat = "@"
End Sub

к кнопке уж сами привяжите :-) я не умею

Б- сохранить содержимое листа в текстовый файл формата .txt

Sub Макрос4()

ChDir "C:\Documents and Settings\sb1297\Рабочий стол"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\sb1297\Рабочий стол\Книга2.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub

к кнопке тоже сами :-)

Лузер™ Гость	#6 22.05.2008 15:37:05 МазайЗР, Вы совершенно правы. Задачу можно трактовать и так. Игра "Чего хочет ..." продолжается :)

Читают тему