День добрый. Не могу справиться с сохранением кода в другой проект. Код переносится, но при закрытии книги не сохраняется. Подскажите пожалуйста, что делаю не так?
Скрытый текст
With ActiveWorkbook Set oWb = .VBProject Set compon = oWb.VBComponents("Ëèñò" & kSh) Set modul = compon.codemodule 'âñòàâëÿåì êîä str = ThisWorkbook.VBProject.VBComponents(26).codemodule.Lines(2, 28) compon.codemodule.InsertLines 29, str .SaveAs Filename:="\\SERVER\common\Ñêëàäû, öåíû è ïð\ÏîèñêÖåíû.xls", FileFormat:=xlExcel8 .Close False End With
Offtop Вот что значит человек 1000 лет не был на форуме - и про кнопку оформления кода забыл и про то, что код в русской раскладке копировать нужно. Прям как юнец с первым постом