Доброго времени суток! Подскажите, пожалуйста, макрос который может сохранять выделенные листы в отдельные файлы со вставкой значений и наименованиями соответствующими именам листов? Заранее спасибо большое.
Доброго времени суток! Подскажите, пожалуйста, макрос который может сохранять выделенные листы в отдельные файлы со вставкой значений и наименованиями соответствующими именам листов? Заранее спасибо большое.euge41
Сохраняет в новые книги только выделенные листы в ту же папку где лежит открытый файл [vba]
Код
Sub CopySelectedSheetsToNewBooks() Dim AW As Window Set AW = ActiveWindow iPath = ActiveWorkbook.Path For Each s In AW.SelectedSheets Set TempWindow = AW.NewWindow s.Copy TempWindow.Close ActiveWorkbook.SaveAs iPath & "\" & s.Name & ".xlsx" Next End Sub
[/vba]
Сохраняет в новые книги только выделенные листы в ту же папку где лежит открытый файл [vba]
Код
Sub CopySelectedSheetsToNewBooks() Dim AW As Window Set AW = ActiveWindow iPath = ActiveWorkbook.Path For Each s In AW.SelectedSheets Set TempWindow = AW.NewWindow s.Copy TempWindow.Close ActiveWorkbook.SaveAs iPath & "\" & s.Name & ".xlsx" Next End Sub
Спасибо, воспользовался готовым файлом, теперь новый вопрос- эксель не сохраняет в PDF вставленную в данный файл картинку, как можно вылечить? [moder]Новый вопрос - в новой теме[/moder]
Спасибо, воспользовался готовым файлом, теперь новый вопрос- эксель не сохраняет в PDF вставленную в данный файл картинку, как можно вылечить? [moder]Новый вопрос - в новой теме[/moder]euge41