![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 19.06.2009
Сообщений: 11
|
![]()
Здравствуйте.
Создал эту тему в продолжении темы «Перенос данных из Excel в Word» Посмотрел ваш пример в архиве «письма.rar», то что мне нужно, но возникло несколько вопросов : 1) Почему у меня не подхватывается значение {оклад} - ? 2) Как вставить 2 одинаковых значения в документ, т.е. мне нужно, чтобы адрес отправления напечатался в документе 2 раза в разных местах. 3) Как реализовать, чтобы каждый лист сохранялся как отдельный документ и название бралось из строки таблицы «Название фирмы»? (на этот случай у меня есть макрос (файл 1.txt), но в нем не могу разобраться, что то напутано с синтаксем ) 4) Как сделать, чтобы при сохранении автоматом отправлялось все на печать? |
![]() |
![]() |
![]() |
#2 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Вы бы хоть сслыку на тему тему привели...
Цитата:
Вам остаётся только поискать на форуме. Впрочем, можно и этот макрос переделать - там изменить-то совсем немного. Цитата:
Что "всё" должно отправляться на печать? А если по-новой нажать кнопку Сохранить, должно печататься ещё раз? |
||
![]() |
![]() |
![]() |
#3 | |||
Пользователь
Регистрация: 19.06.2009
Сообщений: 11
|
![]()
Тема тут: http://programmersforum.ru/showthread.php?t=28058
Цитата:
Цитата:
Цитата:
Самый главный вопрос почему в шаблоне не подтягивается {оклад}-? |
|||
![]() |
![]() |
![]() |
#4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Цитата:
![]() Но пример в личных архивах сохранился... Извлеките оба файла из вложения в одну папку, откройте файл Excel, и нажмите желтую кнопочку. Возможно, такой Вариант Вас устроит. |
|
![]() |
![]() |
![]() |
#5 | |
Пользователь
Регистрация: 19.06.2009
Сообщений: 11
|
![]() Цитата:
![]() Посмотрите этот макрос. (1.txt) 'Имя файла берем из ячейки пятой строки второго столбца sFileName = Trim(Right(oRng.Tables(1).Cell(3, 2).Range.Text, Len(oRng.Tables(1).Cell(3, 2).Range.Text) - 2)) sFileName = Trim(Right(oRng.Tables(1).Cell(3, 1).Range.Text, Len(oRng.Tables(1).Cell(3, 1).Range.Text) - 2)) & amp & sFileName Мне нужно сделать, чтобы макрос имя документа брал из строки (Название фирмы). Как это реализовать. И если можно поясните команды в этой части макроса. У меня ошибка Последний раз редактировалось The_Andrei; 21.06.2009 в 14:38. |
|
![]() |
![]() |
![]() |
#6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Замените Right на Left
Код:
Надо проверять текст в ячейке на наличие запрещённых символов, в том числе отсекать непечатаемые символы в конце ячейки (зря Вы так уверены, что их всегда 2 - может быть и больше...) |
![]() |
![]() |
![]() |
#7 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Удалить непечатаемые символы в конце ячейки таблицы (это символы с кодами 7 и 13) можно так:
Код:
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#8 | |
Пользователь
Регистрация: 19.06.2009
Сообщений: 11
|
![]() Цитата:
Интересует такой вопрос почему не подтягивается значения {оклад} в моем варианте? |
|
![]() |
![]() |
![]() |
#9 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Цитата:
Всё будет работать, если расположить строки в нужном порядке: Код:
|
|
![]() |
![]() |
![]() |
#10 | |
Пользователь
Регистрация: 19.06.2009
Сообщений: 11
|
![]() Цитата:
Для создания окончательно моего документа осталась только. Рассчитать контрольную сумму CRC и вставить её в документ. Скажите пожалуйста можно как нибудь средствами VBA посчитать контрольную сумму и вставить её например в Excel? Если это невозможно, то программа Total Commander позволяет рассчитать CRC сумму и сохраняет её в файле с расширением .sfvю можно средствами VBA открыть этот файл и скопировать его содержимое в определенную ячейку в Excel? |
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
настроить при открытии Excel 2003 в окошке "Тип файлов" вывод пункта "Все файлы (*.*)" по умолчанию? | Unior | Microsoft Office Excel | 2 | 01.03.2009 02:42 |
Перенос данных из Excel в Word | Volch | Microsoft Office Excel | 6 | 19.10.2008 20:36 |
Перенос данных из MS Word в MS Excel ? | Nickd5 | Помощь студентам | 2 | 28.06.2008 20:40 |
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) | Dorvir | Microsoft Office Excel | 2 | 28.03.2008 10:03 |