Архивная копия листа с маросом из книги в обычный лист

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

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

Архивная копия листа с маросом из книги в обычный лист (Макросы/Sub)

AlexOD

Дата: Воскресенье, 10.10.2021, 21:05 | Сообщение № 1

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

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

Сообщений: 5

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

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

Добрый вечер! Необходима ежедневная копия определенного листа содержащего макрос из книги в обычный файл .xlsx сохраняя только значения ячеек. Вроде создал макрос который делает это кроме ячеек которые заполняются макросом с другого листа из книги, в этих ячейках значение ноль. Приходится копировать эти ячейки из исходной книги и вставлять значения.
[vba]

Код

Public Sub UnLoadSut()
'
' Выгружает суточную в формате xlsx (без макросов ;))
    Sheets("Суточная").Select
    Sheets("Суточная").Copy
    Dim oVBComponent As Object, lCountLines As Long
    Set oVBComponent = ActiveWorkbook.VBProject.VBComponents("Лист7")
    With oVBComponent
        lCountLines = .CodeModule.CountOfLines
        .CodeModule.DeleteLines 1, lCountLines
    End With
    Set oVBComponent = Nothing
    Range("A1:N46").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("N27").Select
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents\Aрхивы\Строевки ежедневные\2021\" & Format(Now + 1, "dd.mm.yyyy") + ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    'ActiveWindow.Close
End Sub

[/vba]
Знатоки VBA подскажите как доработать макрос, что делаю не так?

К сообщению приложен файл: Original.xlsm (156.3 Kb) · Nuzhnyi_rezulta.xlsx (144.5 Kb)

Сообщение отредактировал AlexOD - Воскресенье, 10.10.2021, 22:01

Ответить

Pelena

Дата: Понедельник, 11.10.2021, 09:27 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Подозреваю, что надо отключать события. Попробуйте такой вариант
[vba]

Код

Public Sub UnLoadSut()
'
' Выгружает суточную в формате xlsx (без макросов ;))
    Application.EnableEvents = False
    Sheets("Суточная").Select
    Sheets("Суточная").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
                          "D:\Documents\Aрхивы\Строевки ежедневные\2021\" & Format(Now + 1, "dd.mm.yyyy") + ".xlsx", FileFormat:= _
                          xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

[/vba]