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
131
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
4 kuoli kolarissa
Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.1777362Suomea odottaa karu kohtalo
Mitäs menitte uhkailemaan ja leikkimään kovaa. Ei mitään mahdollisuuksia Venäjää vastaan.2651813- 671274
Nainen, moraali on koetuksella sun kanssa
Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei641177- 681176
- 561166
Bachelor-Joonas tapasi Monican isän - "Appiukko" antoi koulutusta vävypojalle - Katso kuvat tästä!
Joonas ja Monica ovat pitäneet yhtä Bachelor Suomi -kuvausten jälkeen. Tämä todistaa, että tosi-tv:ssä voi syntyä rakkau51108Tosiaankin, jos julkaisette täällä henkilötietoja
Minkäänlaisia, se on poliisiasia. VPN, proxy- tai julkinen yhteys ei salaa mitään. Poliisi pystyy jäljittämään ja saamaa931102Gallup: Mitä mieltä olet uudesta Putous-kaudesta: hyvä, keskinkertainen, huono?
Putous on saanut kuraa niskaan mm. kaksimielisistä jutuista. Ohjelma on lasten suosikki ja lapset toistelevat hokemia ti511075- 361036