Makro pro uložení listu do zvláštního sešitu

You are here:

Úvod
Návody
Makra a VBA
VBA – příklady užitečných maker
Makro pro uložení listu do…

Makro pro uložení listu do zvláštního sešitu

Další užitečný kousek makra. Tentokrát vezme předem daný list a uloží ho jako zvláštní soubor do předdefinovaného místa.

Sub SaveSheet()
    ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs "C:\Users\JB\Desktop\novy.xlsx"
End Sub

Sub SaveSheet()

ActiveSheet.Copy

With ActiveSheet.UsedRange

.Copy

.PasteSpecial xlValues

.PasteSpecial xlFormats

End With

Application.CutCopyMode = False

ActiveWorkbook.SaveAs "C:\Users\JB\Desktop\novy.xlsx"

End Sub

Návody

Makro pro uložení listu do zvláštního sešitu

Related:

Napsat komentář Zrušit odpověď na komentář