Прощу помочь написать макрос, чтобы сохранить листы с текущимы названия в текушую папку как отдельные PDF файлы, но чтобы сохранял только ту часть которая не сгруппирована.
Если это невозможно то, как сохранить выделенный диапозон текущего листа с текущим именем
Вот вам кусок кода, который сохраняет в выбранную папку:
Код
Private Sub SaveToPDF()
With ActiveSheet.Range("A1:I17")
If Not Application.GetSaveAsFilename(ActiveSheet.Name, "PDF (*.pdf), *.pdf") Then
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(SAF), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
'CreateObject("Shell.Application").Explore (Left(SAF, InStrRev(SAF, "\"))) 'раскомментировать строку, если необходимо открывать указанную папку после сохранения
End If
End With
End Sub
Что касается части, которая не сгруппирована - было бы неплохо уточнить, это строки с 1 по 17 или те, которые в конце располагаются?