Шаблон письма word 2003 + данные excel 2003.

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

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

09.07.2011 23:22:25

В прикрепленном файле - шаблон письма, excel с данными и результат работы макроса - папка с готовыми письмами.
Прошу подправить макрос, так чтобы письма на выходе были с расширением DOC.
P.S. Кавычки в названиях организаций если можно- не убирайте.

Прикрепленные файлы

post_240151.rar (38.97 КБ)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 10.07.2011 00:04:47 Файл не смотрел, но Вы загляните сюда: http://www.planetaexcel.ru/tip.php?aid=203 Без макросов.

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#3 10.07.2011 01:09:36 Почитайте мои комментарии в том месте, где вы взяли макрос.

vitaland Пользователь Сообщений: 44 Регистрация: 01.01.1970	#4 10.07.2011 08:41:03 RAN, уже не помню откуда брал этот макрос.

vitaland Пользователь Сообщений: 44 Регистрация: 01.01.1970	#5 10.07.2011 08:42:20 Может кто-нибудь посмотрит макрос? Плиз!!!

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#6 10.07.2011 10:43:33 http://www.excelvba.ru/

EducatedFool

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

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

10.07.2011 11:09:32

Проблема в том, что при формировании имени файла вы не убираете запрещённые символы.

Сделать это можно при помощи специальной функции: http://excelvba.ru/code/Replace_symbols

В итоге код будет выглядеть так:

Наименование = Trim$(.Cells(1)) & "_" & Trim$(.Cells(2))
' чтобы оставить кавычки (одинарные вместо двойных)
Filename = НоваяПапка & Replace_symbols(Replace(Наименование, """", "'")) & РасширениеСоздаваемыхФайлов

Замените свой файл Excel на этот (с исправленным макросом):
http://excelvba.ru/XL_Files/Sample__10-07-2011__13-09-13.zip

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

vitaland Пользователь Сообщений: 44 Регистрация: 01.01.1970	#8 10.07.2011 15:10:19 Большое спасибо всем за помощь!!!

Читают тему