макрос! с чего начать?! - Microsoft Office Excel - Страница 2

EducatedFool · 22.02.2011, 17:53

уже догадались, что и где надо поменять?

Код:

Sub Макрос1()
    ActiveWorkbook.SaveAs filename:="D:\" & [a1] & ".txt", FileFormat:=xlTextPrinter
End Sub

deemka777 · 22.02.2011, 18:01

да, точно. лидирующими пробелами.
в этом есть необходимость.

IgorGO, как его впихнуть? или как им пользоваться?

deemka777 · 22.02.2011, 18:03

если я правильно понял, их надо последовательно выполнять?

IgorGO · 22.02.2011, 18:06

пользоваться так:
1) открываете приатаченый файл, и жмете кнопку "БАНЗАЙ!"
2) открываете проводник и задаете поиск файла "ст1" (там же будут файлы ст2, ст3, ст4)
3) щелкаете мышом по файлу ст1, указываете открыть с помощью БЛОКНОТ
успехов)

deemka777 · 22.02.2011, 18:17

IgorGO, да неплохо.
а как сделать такую кнопочку?)

но всё же вариант EducatedFool, мне подходит, но я не догнал, где поменять!

IgorGO · 22.02.2011, 18:22

Дима, EducatedFool - крупнейший специалист по созданию кнопочек, он Вам все расскажет. а мне пора уходить, извините.

deemka777 · 22.02.2011, 18:39

Цитата:

уже догадались, что и где надо поменять?

пока что, не понял.

deemka777 · 22.02.2011, 18:42

Код:

ActiveWorkbook.SaveAs filename:="D:\" & [a1] & ".txt", FileFormat:=xlTextPrinter

SaveTXTfile папка & [a1] & ".txt", Range2TXT([a2:a13])

связь тут??
вероятно

Код:

ActiveWorkbook.SaveAs папка & [a1] & ".txt", FileFormat:=xlTextPrinter, Range2TXT([a2:a13])

не получилось

deemka777 · 23.02.2011, 11:25

помогите закончить! я так понял, тут просто что-то поменять необходимо?

Код:

ActiveWorkbook.SaveAs filename:="D:\" & [a1] & ".txt", FileFormat:=xlTextPrinter

сохраняет весь лист, а нужно чтоб отдельно по столбцам.

deemka777 · 23.02.2011, 14:43

IgorGO, а как убрать кнопку, или переместить?(выше, ниже)

22.02.2011, 17:53	#11
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	уже догадались, что и где надо поменять? Код: `Sub Макрос1() ActiveWorkbook.SaveAs filename:="D:\" & [a1] & ".txt", FileFormat:=xlTextPrinter End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

22.02.2011, 18:06	#14
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	пользоваться так: 1) открываете приатаченый файл, и жмете кнопку "БАНЗАЙ!" 2) открываете проводник и задаете поиск файла "ст1" (там же будут файлы ст2, ст3, ст4) 3) щелкаете мышом по файлу ст1, указываете открыть с помощью БЛОКНОТ успехов) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

22.02.2011, 18:22	#16
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Дима, EducatedFool - крупнейший специалист по созданию кнопочек, он Вам все расскажет. а мне пора уходить, извините. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

22.02.2011, 18:42	#18
deemka777 Пользователь Регистрация: 22.02.2011 Сообщений: 38	Код: `ActiveWorkbook.SaveAs filename:="D:\" & [a1] & ".txt", FileFormat:=xlTextPrinter SaveTXTfile папка & [a1] & ".txt", Range2TXT([a2:a13])` связь тут?? вероятно Код: `ActiveWorkbook.SaveAs папка & [a1] & ".txt", FileFormat:=xlTextPrinter, Range2TXT([a2:a13])` не получилось Последний раз редактировалось deemka777; 23.02.2011 в 00:23.

23.02.2011, 11:25	#19
deemka777 Пользователь Регистрация: 22.02.2011 Сообщений: 38	помогите закончить! я так понял, тут просто что-то поменять необходимо? Код: `ActiveWorkbook.SaveAs filename:="D:\" & [a1] & ".txt", FileFormat:=xlTextPrinter` сохраняет весь лист, а нужно чтоб отдельно по столбцам. Последний раз редактировалось deemka777; 23.02.2011 в 11:30.

22.02.2011, 18:01	#12
deemka777 Пользователь Регистрация: 22.02.2011 Сообщений: 38	да, точно. лидирующими пробелами. в этом есть необходимость. IgorGO, как его впихнуть? или как им пользоваться?

22.02.2011, 18:03	#13
deemka777 Пользователь Регистрация: 22.02.2011 Сообщений: 38	если я правильно понял, их надо последовательно выполнять?

22.02.2011, 18:17	#15
deemka777 Пользователь Регистрация: 22.02.2011 Сообщений: 38	IgorGO, да неплохо. а как сделать такую кнопочку?) но всё же вариант EducatedFool, мне подходит, но я не догнал, где поменять!

23.02.2011, 14:43	#20
deemka777 Пользователь Регистрация: 22.02.2011 Сообщений: 38	IgorGO, а как убрать кнопку, или переместить?(выше, ниже)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
С чего начать?	fesked	Qt и кроссплатформенное программирование С/С++	4	16.06.2010 10:05
С чего начать?	jekos	Свободное общение	2	08.04.2010 13:52
С чего начать?	ProgramerBeatz	Помощь студентам	5	31.05.2009 18:54
незнаю с чего начать... а начать очень нужно	ОСЯНЯ	Помощь студентам	2	26.11.2008 20:08