Pystyykö Exceliin kirjoittamaan makroa, joka sekä tallentaisi työkirjan pdf-muotoon että valmistelisi lisäksi sen lähetyksen sähköpostilla (Outlook) tietystä solusta poimitulla sähköpostiosoitteella. Valmistelulla tarkoitan, että makron lopputuloksena olisi Outlookin uusi sähköposti-ikkuna, jossa liitteenä avoinna oleva taulukko pdf-muotoon tallennettuna ja vastaanottajana tietystä solusta haettu osoite.
Tallennusmakron sain tehtyä täältä löytyneillä ohjeilla, mutta lähettämisen lisäämiseen en löydä ideaa.
Excel-pdf tallennus-lähetysmakro
Excelguru
6
146
Vastaukset
onnistuuhan toi helpostikin, mutta riippuu siitä mikä versio on käytössä ja millä ohjelmalla .pdf tallennus tehdään
- Excelguru
Office on 2010 ja käytetään officen omaa pdf-tallennusta. Tallennus toimii.
Se mitä tarvitaan lisää, olisi ko. pdf:n liittäminen automaattisesti sähköpostiin, joka on haettu tietystä solusta. Tallenuskoodi on tällainen:
Sub Tallenna_nimellä()
Sheets("XXX").Select
Dim SoluB1 As String
Dim SoluM2 As String
SoluB1 = Range("B1")
SoluM2 = Range("M2")
On Error GoTo Virhe
ChDir "\\XXX\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\XXX\" & SoluB1 & "_XXX_" & SoluM2 & ".pdf"
GoTo Loppu
Virhe:
MsgBox ("Tallennus ei onnistunut")
Loppu:
End Sub
muuta hakusolu ja tiedostonpolku oikeaksi.
moduuliin...
Sub sähkäri()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("F1")
.Subject = "Guru vastaa..."
.Body = "ollako vaiko olla guru?" & vbNewLine & vbNewLine & "Keep EXCELing" & vbNewLine & "@Kunde"
.Attachments.Add "E:\koe.pdf"
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Keep EXCELing
@Kunde- Excelguru
Erinomaista, kiitos!
Vähän hitaasti ehtii kokeilemaan ja antamaan palautetta, kun reissua pukkaa joka väliin.
Vielä sen verran säätöä, että miten tämä liite-rivi pitäisi kirjoittaa, kun haettavan liitteen nimi ei ole vakio vaan tiedoston nimi muodostuu kahdesta excelistä haettavasta solusta?
.Attachments.Add "E:\koe.pdf" - Excelguru
"Guru" kiittää! Nyt kaikki toimii niinkuin pitää.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomen kansa haluaa Antti Lindtmanista pääministerin
Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http3255056Miksei Björn Wahlroos jaa rahaa köyhille?
Esimerkiksi Nordean tiloissa? Vai tuovatko ne köyhät hiekkaa marmorilattioille ja siksi ei pysty mursunviiksi pystyyn k1553541Vain 21% kannattaa Lindtmania pääministeriksi
se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?1753227Vassarit kummittelee pääni sisällä joulunakin
Hetki sitten alkoi punakapina. Joulupäivään mennessä ollaan jo Lindtmanin nuoruusvuosien näytelmäkerhossa. Tapaninpäivän142171Jouluksi miettimistä: kuka tai mikä valmistaa rahan?
Nyt kun on ollut vääntöä rahasta ja eritoten sen vähyydestä, niin olisi syytä uida rahan alkulähteille, eli mistä se syn401667Julkinen sektori on elänyt aivan liian leveästi yli varojensa!
Viimeisen 15 vuoden aikana julkisen puolen palkat ovat nousseet n. 40%, kun taas yksitysellä sektorilla vain n. 20%. En2541427Yksikään persu ei ole saanut Nobelin palkintoa
Kertoo paljon persujen älyn puutteesta. Demareista mm. Ahtisaari on kyseisen palkinnon saanut.411401- 481361
Onko 65-vuotias liian vanha lähtemään rintamalle?
Suomessa reserviläisikä nousee ensi vuoden alusta 65 ikävuoteen. Jatkossa asevelvollinen kuuluu reserviin sen vuoden lop3641343Miten antaa merkki hyvin eri ikäiselle miehelle, että kertoisi toiveensa ja ajatuksensa?
Olen pitkään pitänyt miehestä, joka myös varmasti minusta. Hän ei tosin kerro ihastumisesta, eli voi hyvin olla, että tu811264