Разделить файл на несколько частей

[Aleksandr H.]

Проверьте что возвращает ThisWorkbook.FullName. Кажется результатом будет имя файла, например, Книга1 но без разширения, и тогда ошибка будет о сохранении файла с существующим именем

[GMV20061]

Спасибо за Ваши ответы, но у нас ничего не выходит.
Вот суть:
1. Из различных источников формируем СВОД.
2. Из СВОДА формируем Приложение 2 (ВПРим).
3. Начинается самое интересное: Надо разбить Приложение 2 на отдельные файлы EXCEL и PDF, чтобы названия файлов строго соответствовало Идентификатору. Да, и чтобы подписи!
Когда проектов было 50+ делали вручную. Сейчас их за 3 тысячи и хотелось бы процесс автоматизировать. Лазая по форумам, перепробовали большое количество предлагаемых решений по разделению этой хрени на отдельные файлы. Ничего не помогает.
Если кто-то из Профессионалов сумеет чем-то помочь - большое человеческое спасибо! Не дайте умереть в выходные на работе!

[Aleksandr H.]

Смотрите, я пользуюсь таким подходом (см файл)
Жмем PressMe. Ползунок просто для красоты.

[GMV20061]

Александр! Большое спасибо!
Извините за наглость, но что необходимо сделать, чтобы
1. не нажимать "PressMe" 3,5 тысячи раз.
2. имя сохраняемого файла было без текущей даты.
3. как-то закрепить ширину хотя бы столбца "В", чтобы не лазать по всем 3,5 тыс. фалов для форматирования.
Еще раз СПАСИБО!

[GMV20061]

Александр! С датой разобрался. Что-то ступил.
С остальным пока проблемы.

[Aleksandr H.]

1. PressMe жмется 1 раз, макрос в цикле пройдет от 1 до КоличествоЗаписейВСтолбцеАЛистаСВОД и подставит нужные данные
2.

FileN = ThisWorkbook.Path & "\" & Replace([c5], "-", "_") & ".xlsx"

3.

ActiveWorkbook.SaveAs FileN ', xlDBF3
        ActiveWorkbook.ActiveSheet.Columns(2).ColumnWidth = 60 '<===НОВАЯ СТРОКА
        ActiveWorkbook.Close

я бы, если не умею вставлять как мне надо, запустил 2 цикла (по строках и столбцах исходника) и брал ширину/высоту и изменял в новом файле.

[GMV20061]

Спасибо за ответ.
Да, PressMe жмется один раз, но каждый раз необходимо нажимать ОК на сообщении, что "лист сохранен...".
За пп. 2 и 3 спасибо.
Не судите меня чайника строго...

[Aleksandr H.]

Сообщение от GMV20061

сообщении, что "лист сохранен...".

удалите строки MsgBox

[GMV20061]

Александр, я Вам уже наверное надоел. Сделал все как Вы советовали. Стал запрашивать о сохранении изменений в каждом создаваемом файле. Если ДА - сохраняет с нужной шириной столбца, если НЕТ - то ширина всех столбцов одинаковая. Но в любом случае в созданных файлах везде НУЛИ.
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

[Aleksandr H.]

Бывает. Поменяйте строки изменения ширины и сохранения местами

ActiveWorkbook.ActiveSheet.Columns(2).ColumnWidth = 60 '<===НОВАЯ СТРОКА
ActiveWorkbook.SaveAs FileN ', xlDBF3
ActiveWorkbook.Close