Сохранение листа с заданным форматированием - Microsoft Office Excel

Melnan · 14.07.2014, 13:27

Здравствуйте.
Во вложении файл "Заявки_тест" с прописанными макросами. В лист "Заявка" вносятся данные и при нажатии одной из ячеек "Расчеты" или "Тек.деят-ть" автоматически происходит отправка файла по почте, и предлагается сохранение файла (путь указывается самостоятельно). Файл лежит на обмене, и доступен каждому сотруднику. Проблема заключается в следующем: если Лист "Заявка" заполняется с моего компьютера, то лист сохраняется с заданным форматированием (размер строк выдержан), а если эту заявку заполняют с другого компьютера, то форматирование не сохраняется - все строки одного размера. Примеры во вложении.
Подскажите, как устранить данную проблему? У всех стоит офис 2010.

gling · 14.07.2014, 21:39

Здравствуйте. У Вас создается новый лист и в него вставляются значения, а попробуйте формировать на базе шаблона.

Melnan · 15.07.2014, 16:17

gling,
внесенные Вами изменения в код не работают - Excel виснет.

gling · 15.07.2014, 19:15

Извиняюсь, не учел поставленных Вами паролей на листы. Порядок установки разбирать не стал. Поставите как надо, просто убрал.

Melnan · 17.07.2014, 10:10

gling,
большое спасибо. Все работает. Вопрос: что было изменено во втором варианте? Отличия не нашел, кроме как отключенной защиты первого листа. Пришлите пожалуйста первоначальный код и измененный, в дальнейшем пригодится.

Melnan · 17.07.2014, 13:42

gling,
поторопился сказать, что все работает... подставил коды в существующий файл - возникает ошибка... "Run-time error '6' Overflow". Ошибка эта возникает в строке

Код:

If Target.Cells.Count > 1 Then Exit Sub

новой созданной книге .
В чем может быть причина?

Step_UA · 17.07.2014, 16:49

используйте

Код:

If Target.Cells.CountLarge > 1 Then Exit Sub

Melnan · 17.07.2014, 17:52

Step_UA, спасибо за ответ. Я разобрался в чем ошибка. Ошибка заключалась в следующем:
в своем файле я создал шаблон по рекомендации gling и вставил его код. Только я одно упустил - я создал шаблон путем копирования базового листа и не удалил прописанные коды для этого листа. Вот ошибка и выскакивала.

Melnan · 17.07.2014, 17:54

Step_UA, спасибо за ответ. Я разобрался в чем ошибка. Она заключалась в следующем:
в своем файле я создал шаблон по рекомендации gling и вставил его код. Только я одно упустил - я создал шаблон путем копирования базового листа и не удалил прописанные коды для этого листа. Вот ошибка и выскакивала.

17.07.2014, 13:42	#6
Melnan Регистрация: 12.03.2011 Сообщений: 8	gling, поторопился сказать, что все работает... подставил коды в существующий файл - возникает ошибка... "Run-time error '6' Overflow". Ошибка эта возникает в строке Код: `If Target.Cells.Count > 1 Then Exit Sub` новой созданной книге . В чем может быть причина?

17.07.2014, 16:49	#7
Step_UA Форумчанин Регистрация: 09.06.2011 Сообщений: 388	используйте Код: `If Target.Cells.CountLarge > 1 Then Exit Sub` на неконкретные вопросы даю неконкретные ответы ...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сохранение листа как книгу и отправка его на почту.	NoLL	Microsoft Office Excel	5	23.11.2010 18:14
сохранение листа Excel в отдельном файле	mmzzmm	Microsoft Office Excel	2	07.10.2010 15:51
Сохранение листа в отдельный файл	barbus	Microsoft Office Excel	11	26.02.2010 19:15
Автоматическое сохранение листа в файл Csv	flylive	Microsoft Office Excel	13	02.04.2009 10:50
Сохранение текущего листа Excel в отдельный файл	IpS	Microsoft Office Excel	10	04.10.2008 13:45

15.07.2014, 16:17	#3
Melnan Регистрация: 12.03.2011 Сообщений: 8	gling, внесенные Вами изменения в код не работают - Excel виснет.

17.07.2014, 10:10	#5
Melnan Регистрация: 12.03.2011 Сообщений: 8	gling, большое спасибо. Все работает. Вопрос: что было изменено во втором варианте? Отличия не нашел, кроме как отключенной защиты первого листа. Пришлите пожалуйста первоначальный код и измененный, в дальнейшем пригодится.

17.07.2014, 17:52	#8
Melnan Регистрация: 12.03.2011 Сообщений: 8	Step_UA, спасибо за ответ. Я разобрался в чем ошибка. Ошибка заключалась в следующем: в своем файле я создал шаблон по рекомендации gling и вставил его код. Только я одно упустил - я создал шаблон путем копирования базового листа и не удалил прописанные коды для этого листа. Вот ошибка и выскакивала.

17.07.2014, 17:54	#9
Melnan Регистрация: 12.03.2011 Сообщений: 8	Step_UA, спасибо за ответ. Я разобрался в чем ошибка. Она заключалась в следующем: в своем файле я создал шаблон по рекомендации gling и вставил его код. Только я одно упустил - я создал шаблон путем копирования базового листа и не удалил прописанные коды для этого листа. Вот ошибка и выскакивала.