Tervehdys,
minulla on netistä löydetty ja hieman muokattu VBA-koodi jolla saan avattua Excelistä käsin Pdf-tiedoston, mutta pystyykö tuota koodia muokkaamaan jotenkin niin, että koodi itse tutkii mistä polusta AcrobatReader löytyy ettei tule virhettä jos Reader onkin asennettuna eri polkuun?
Sub Open_PDF()
Dim dbRetValue As Double
Dim stAdobeExe As String, stFileName As String
stAdobeExe = "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
stFileName = "C:\Kuluttajaviesti_211207.pdf"
dbRetValue = Shell(stAdobeExe & " " & stFileName, vbMaximizedFocus)
End Sub
-Pasi-
Pdf -avaaminen VBA:lla
-Pasi-
2
711
Vastaukset
Sub AvaaPDF()
Dim Nimi As String
Nimi = "C:\Alpha\AppliedMolding.pdf"
ActiveWorkbook.FollowHyperlink Nimi
End Sub- -Pasi-
niinpä näkyy toimivan, Kiitos.
-Pasi-
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt464924Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.622767Jenkkilahkojen kastekaava
Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan1391084Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh711064Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin1611055Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma
Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?2201045- 1271016
Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok72984- 137895
- 49884