![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#51 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
Проверьте что возвращает ThisWorkbook.FullName. Кажется результатом будет имя файла, например, Книга1 но без разширения, и тогда ошибка будет о сохранении файла с существующим именем
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#52 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]()
Спасибо за Ваши ответы, но у нас ничего не выходит.
Вот суть: 1. Из различных источников формируем СВОД. 2. Из СВОДА формируем Приложение 2 (ВПРим). 3. Начинается самое интересное: Надо разбить Приложение 2 на отдельные файлы EXCEL и PDF, чтобы названия файлов строго соответствовало Идентификатору. Да, и чтобы подписи! Когда проектов было 50+ делали вручную. Сейчас их за 3 тысячи и хотелось бы процесс автоматизировать. Лазая по форумам, перепробовали большое количество предлагаемых решений по разделению этой хрени на отдельные файлы. Ничего не помогает. Если кто-то из Профессионалов сумеет чем-то помочь - большое человеческое спасибо! Не дайте умереть в выходные на работе! |
![]() |
![]() |
![]() |
#53 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
Смотрите, я пользуюсь таким подходом (см файл)
Жмем PressMe. Ползунок просто для красоты.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#54 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]()
Александр! Большое спасибо!
Извините за наглость, но что необходимо сделать, чтобы 1. не нажимать "PressMe" 3,5 тысячи раз. 2. имя сохраняемого файла было без текущей даты. 3. как-то закрепить ширину хотя бы столбца "В", чтобы не лазать по всем 3,5 тыс. фалов для форматирования. Еще раз СПАСИБО! |
![]() |
![]() |
![]() |
#55 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]()
Александр! С датой разобрался. Что-то ступил.
С остальным пока проблемы. |
![]() |
![]() |
![]() |
#56 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
1. PressMe жмется 1 раз, макрос в цикле пройдет от 1 до КоличествоЗаписейВСтолбцеАЛистаСВОД и подставит нужные данные
2. Код:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. Последний раз редактировалось Aleksandr H.; 25.08.2016 в 13:19. |
![]() |
![]() |
![]() |
#57 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]()
Спасибо за ответ.
Да, PressMe жмется один раз, но каждый раз необходимо нажимать ОК на сообщении, что "лист сохранен...". За пп. 2 и 3 спасибо. Не судите меня чайника строго... |
![]() |
![]() |
![]() |
#58 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#59 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]()
Александр, я Вам уже наверное надоел. Сделал все как Вы советовали. Стал запрашивать о сохранении изменений в каждом создаваемом файле. Если ДА - сохраняет с нужной шириной столбца, если НЕТ - то ширина всех столбцов одинаковая. Но в любом случае в созданных файлах везде НУЛИ.
Sub Split_Click() Dim counter As Integer Dim FileN$ Dim ws As Worksheet Set ws = ActiveSheet For counter = 1 To CInt([r3]) [q3] = counter FileN = ThisWorkbook.Path & "\" & Replace([c5], "-", "-") & ".xlsx" Workbooks.Add xlWBATWorksheet: ws.Range("A1:O31").Copy [a1] 'Range ("A1") ' Special Paste:=xlPasteAllUsingSourceTheme ActiveWorkbook.SaveAs FileN ', xlDBF3 ActiveWorkbook.ActiveSheet.Columns( 2).ColumnWidth = 60 '<===НОВАЯ СТРОКА ActiveWorkbook.Close Next End Sub |
![]() |
![]() |
![]() |
#60 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
Бывает. Поменяйте строки изменения ширины и сохранения местами
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа разделения экрана на несколько частей | ArtInt | Софт | 8 | 14.05.2012 10:29 |
Файл в несколько терабайт в архиве. | Alex Cones | Свободное общение | 28 | 01.03.2010 17:08 |
Разбить Bitmap на несколько частей | apromix | Мультимедиа в Delphi | 4 | 24.02.2010 11:26 |
Можно ли разделить сразу несколько цифр на одно и тоже число? | Xell | Microsoft Office Excel | 2 | 12.01.2009 13:32 |
Как добавить в файл несколько строк?! | zotox | Помощь студентам | 4 | 11.09.2008 22:32 |