Как сохранить лист в отдельный файл со значениями? - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Как сохранить лист в отдельный файл со значениями? - Мир MS Excel

Старая форма входа

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

Как сохранить лист в отдельный файл со значениями? (Макросы/Sub)

Как сохранить лист в отдельный файл со значениями?

Дата: Пятница, 20.03.2020, 07:56 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

Добрый день!
Имеется книга, где каждый лист ссылается на предыдущий лист. Необходимо сохранить текущий лист в отдельный файл:
1. заменой формулы на значение
2. чтобы формулы в исходном листе (книге) сохранились
3. что бы автоматически сохранялось в папке с определенным названием
Я поискав на формуах собрал макрос, чтобы он выполнял пунктам 1 и 3, но не могу доделать, чтобы не убивались формулы в исходной книге.
[vba]

Код

Sub CommandButton1_Click()
Dim smallrng As Range
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Dim FileN$
FileN = ThisWorkbook.Path & "\" & "Суточный рапорт_" & Range("V2") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveCopyAs FileN
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Текущий лист сохранен в новой книге" & FileN
End Sub

[/vba]
Я так понимаю, что необходимо сначала копировать всю книгу, затем уже присваивать значения и сохранять в отдельный файл лист. Но я не силен с VBA и не знаю как надо это делать.

Сообщение отредактировал rus102 - Пятница, 20.03.2020, 08:18

Ответить

Дата: Пятница, 20.03.2020, 13:51 | Сообщение № 2

Группа: Проверенные

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

Сообщений: 713

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

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

Excel 2003

Цитата

чтобы не убивались формулы в исходной книге.

Перенесите строку
[vba]

Код

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

[/vba]
после операции копирования
[vba]

Код

ActiveSheet.Copy

[/vba]

Ответить

Дата: Пятница, 20.03.2020, 15:15 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

Kuzmich, К сожалению не помогает, формулы в исходном файле остались, а вот значений в конечном файле нет, т.к. они ссылались на предыдущие листы.
Сделал так:
[vba]

Код

Sub CommandButton1_Click()
Dim smallrng As Range
Dim FileN$
FileN = ThisWorkbook.Path & "\" & "Суточный рапорт_" & Range("V2") & ".xls"
ActiveSheet.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveCopyAs FileN
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Текущий лист сохранен в новой книге" & FileN
End Sub

[/vba]

Сообщение отредактировал rus102 - Пятница, 20.03.2020, 15:17

Ответить

Дата: Пятница, 20.03.2020, 15:54 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата rus102, 20.03.2020 в 15:15, в сообщении № 3 ()

а вот значений в конечном файле нет

Не верю.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 20.03.2020, 17:44 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

RAN, как есть говорю. наверное, это из-за того что у меня не обычные формулы, а ссылки на предыдущий лист при помощи функции ДВССЫЛ. Пример во вложении. Помогите пожалуйста

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

Ответить

Дата: Пятница, 20.03.2020, 18:15 | Сообщение № 6

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

ДВССЫЛ(), конечно, тоже не подарок, но, в данном случае не при делах.
А вот то, что во вновь созданном файле нет вашей UDF, то ОЙ.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 20.03.2020, 18:25 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

RAN, получается что нерешаема задача? То есть не получиться создать временную копию книги с UDF и там применить формулу для присваивания значений, а затем оттуда вытащить лист?

Ответить

Дата: Пятница, 20.03.2020, 19:14 | Сообщение № 8

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Почему нет?

[vba]

Код

Sub CommandButton1_Click()
    Dim smallrng As Range
    Dim FileN$, wb As Workbook
    FileN = ThisWorkbook.Path & "\" & "Суточный рапорт_" & Range("B1") & ".xlsm"
    ThisWorkbook.SaveCopyAs FileN
    Set wb = Workbooks.Open(FileN)
    ActiveSheet.DrawingObjects.Delete    'удаление всех кнопок
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    ActiveSheet.Copy
    wb.Close SaveChanges:=False
    Kill FileN
    Mid(FileN, Len(FileN), 1) = "x"
    ActiveWorkbook.SaveAs FileN, 51
    ActiveWorkbook.Close SaveChanges:=False
    MsgBox "Текущий лист сохранен в новой книге" & FileN
End Sub

[/vba]

К сообщению приложен файл: 5300891.gif (90.7 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 20.03.2020, 19:28 | Сообщение № 9

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

Ранг: Участник клуба

Сообщений: 3691

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

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

365

Когда код UDF есть в надстройке - он не нужен в книге, так что UDF можно применять и в xlsx.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Пятница, 20.03.2020, 19:33 | Сообщение № 10

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Игорь, тогда и танцы с бубном будут без нать!

Не интересно.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 20.03.2020, 19:35

Ответить

Дата: Пятница, 20.03.2020, 21:20 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

RAN, спасибо большое! Вы меня спасли! :up: yahoo

yahoo

Сообщение отредактировал rus102 - Пятница, 20.03.2020, 21:21

Ответить

Как сохранить лист в отдельный файл со значениями? (Макросы/Sub)

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

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!