Переименование файлов при помощи цикла

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

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

26.12.2021 10:07:36

Добрый день, уважаемые!

Продолжаю придумывать всякие фичи и столкнулся с очередной проблемой:

Есть цикл, который в моей программе делает определённые действия для каждой ячейки, начиная с А2 и заканчивая последней заполненной ячейкой.
По выполнении этих действий я решил создавать отдельный файл с выкопировкой результатов (две вкладки копируются в новую книгу), а затем с помощью того же цикла переименовывать эти файлы, также, начиная с ячейки А2 и заканчивая последней заполненной ячейкой.

Однако на этом этапе у меня всплывает ошибка '1004' Application-defined or object-defined error:

Код
NewName = Workbooks("Раскидка по подрядчикам.xlsm").Worksheets("Клейма статистика").Cells(i, 1) & ".xls"

Пробовал немного видоизменять эту строку, разбивая путь к книге и листу, там вылазила другая ошибка.

Не могли бы вы помочь правильно записать этот код, я находил подобный на других форумах и он работал у других людей, но в моём случае, что-то не выходит.

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

Раскидка по подрядчикам.xlsm (47.58 КБ)

Изменено: Orishniy - 26.12.2021 10:49:38

Ігор Гончаренко

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

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

26.12.2021 10:37:41

в файле 9 модулей, думаете кому-то интересно искать среди этого мусора источник проблемы?

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Orishniy Пользователь Сообщений: 15 Регистрация: 27.12.2019	#3 26.12.2021 10:50:22 Удалил мусор - перезалил файл

Евгений Смирнов

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

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

26.12.2021 12:31:43

Цитата
Orishniy написал: Продолжаю придумывать всякие фичи

У вас хорошо получается

БМВ Модератор Сообщений: 23344 Регистрация: 28.12.2016 Excel 2013, 2016	#5 26.12.2021 13:13:51 кросс По вопросам из тем форума, личку не читаю.

Ігор Гончаренко

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

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

26.12.2021 13:18:30

пробуйте:

Код

Sub Раскидка_Клейм_По_Файлам()
  Dim fn$
  For i = 2 To Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
    fn = Worksheets(1).Cells(i, 1): Worksheets(2).Range("G5") = fn
    Sheets(Array("Черн", "Нерж")).Copy
    fn = "D:\Users\Desktop\Наработки\" & fn & ".xlsx"
    If Dir(fn) <> "" Then Kill fn
    ActiveWorkbook.SaveAs fn, 51, CreateBackup:=False: ActiveWindow.Close
  Next i
End Sub

Orishniy

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

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

27.12.2021 03:08:48

К сожалению, на последней строчке кода возникла ошибка в пути к файлу (" & fn & " что то с этим связанное).

Цитата
написал: кросс

Проблема решена по этой ссылке, Ігор Гончаренко спасибо что уделили внимание моей проблеме!

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#8 27.12.2021 13:17:04 И Вам спасибо за то, что все поняли и в следующий раз сами будете показывать ссылки на параллельное размещение темы.