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
124
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
Kalle Palander kertoi fantasioivansa siitä, kuinka Kiira Korpi naisi häntä sträppärillä ahteriin
Sai potkut Yleltä. https://yle.fi/a/74-201400005328497Aamuseuraa/rehevää naista
uhkean rehevät m-xxxl naiset/rouvat/pari 18-80v kutsu luokses 31.1 aamusta päiväpanoille 32v hetero mies.oon innokas nuo4365224h Kirppis
Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?72183Suomessa eletään liian pitkään
"Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy1571143Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain
Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja17786Olen niin haaveillut
Sinusta. Ollut hullun rakastunut. Ajatellut kaikkea mitä yhdessä voisimme tehdä. Mutta ei ei yhtään mitään. Usko vaan lo57722Sun ulkonäkö on
Kyllä viehättävä. Kauniit piirteet. Todella sievät. Ja olemus on ihana. Olet tehnyt vaikutuksen.32703Oletko koskaan
Tavannut/tuntenut ihmistä, jonka kanssa vuosisadan rakkaustarina olisi ollut mahdollinen, mutta joku este tuli väliin?68696- 42676
En voi ottaa
Jos ikinä aiot ottaa yhteyttä, niin tee se nyt. On aika, kun todella todella tarvitsisin sinua. Naiselle.36637