Сохранение определенных листов в отдельную книгу по условиям

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сохранение определенных листов в отдельную книгу по условиям (Макросы/Sub)

Anis625

Дата: Суббота, 10.02.2018, 10:08 | Сообщение № 1

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Добрый день уважаемые коллеги!

Обращаюсь с просьбой допилить один макрос, который нашел в просторах интернета и наиболее приближен к решению текущей задачи.
В нем только не учтены следующие моменты (помогите, пожалуйста их зашить в существующий макрос):
1) При экспорте листов и сохранении их все формулы и ссылки превращаются в значения. Необходимо чтобы оборвались только связи с этой исходной книгой, а формулы оставить без изменений.
2) В данном макросе указываются конкретные порядковые номера листов для экспорта (с учетом скрытых).
Возможно ли сделать например ссылку на ячейку в которой через , или ; я укажу названия нужных листов?
3) Необходимо сохранить в нужное место (указанное в ячейке), с нужным именем (тоже из ячейки) и заданным расширением (можно в макросе указать, например, *.xlsm)

На сколько решаема данная задачка?

К сообщению приложен файл: -1.xlsm (26.3 Kb)

Ответить

InExSu

Дата: Воскресенье, 11.02.2018, 22:49 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 650

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Привет

Цитата Anis625, 10.02.2018 в 10:08, в сообщении № 1 ()

формулы и ссылки превращаются в значения

Попробуйте закомментировать эти строки:
[vba]

Код

    For Each n In Ar
        With ActiveWorkbook.Worksheets(n).UsedRange.Cells
            .Value = .Value
        End With
    Next

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Anis625

Дата: Понедельник, 12.02.2018, 08:29 | Сообщение № 3

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Закомментировать - это как?

Ответить

Anis625

Дата: Понедельник, 12.02.2018, 15:51 | Сообщение № 4

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Цитата Anis625, 10.02.2018 в 10:08, в сообщении № 1 ()

3) Необходимо сохранить в нужное место (указанное в ячейке), с нужным именем (тоже из ячейки) и заданным расширением (можно в макросе указать, например, *.xlsm)

Нашел такой код:
[vba]

Код

ActiveWorkbook.SaveAs Filename:="C:\Folder\" & Range("d6").Value & " " & Range("d7").Value & ".xlsb"

[/vba]

Подскажите как его прикрутить. Сам пробовал - ошибку выдает, похоже не туда прикручиваю

Ответить

Anis625

Дата: Понедельник, 12.02.2018, 15:52 | Сообщение № 5

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Цитата Anis625, 10.02.2018 в 10:08, в сообщении № 1 ()

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

Возможно какая-то строка это делает. Подскажите пожалуйста.

Ответить

Anis625

Дата: Понедельник, 12.02.2018, 15:52 | Сообщение № 6

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Цитата InExSu, 11.02.2018 в 22:49, в сообщении № 2 ()

Попробуйте закомментировать эти строки:

А это как сделать?

Ответить

Сохранение определенных листов в отдельную книгу по условиям (Макросы/Sub)

Страница 1 из 1
1