Makro pro uložení listu do zvláštního sešitu
S tímto tématem se setkáte na našich kurzech ExcelTown:
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.
|
1 2 3 4 5 6 7 8 9 10 |
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 |