Excel - kopírování listu
Napsal: 21 dub 2011 13:46
od lami26
Dobrý den - potřebuji prosím radu jak mohu odeslat napr mailem - jeden list ze sešitu - kopírováním z listu na list se mi zobrazí nabídka abych mohla zachovat šířky sloupců a pod - ovšem při kopírování listu do nového sešitu se tak něděje.
Děkuji za rady.
Re: Excel - kopírování listu
Napsal: 21 dub 2011 23:40
od Branscombe
Možná hloupý nápad, ale první co mě napadlo je "uložit soubor jako" pod jiný název a smazat ostatní listy které nechci odeslat. Budu mít požadovaný soubor k odeslání a původní mi zůstane nezměněn ...
Re: Excel - kopírování listu
Napsal: 22 dub 2011 05:37
od mike007
Co takhle:
Do sešitu si vlož makro... To se postará o kopii záložky a její odeslání na požadovaný email ...
Návod jak vložit makro do VBA -
http://www.bastleni.eu/vba/71-vlozit-makroKód: Vybrat vše
Sub odeslat_zalozku()
mail = InputBox("Zadej email", "Email", "@")
ThisWorkbook.Sheets("zalozka").Copy
With ActiveWorkbook
.SendMail Recipients:=mail, _
Subject:="Název " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Subzalozka = tady si nastav název záložky, kterou chceš odeslat mailem
Subject:=.... = zde si uprav předmět emailu.