Pdf -avaaminen VBA:lla

-Pasi-

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-

2

638

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      20
      4534
    2. Immu otti pataan

      Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!
      Kotimaiset julkkisjuorut
      239
      3607
    3. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      497
      1909
    4. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      141
      1680
    5. Tykkäätkö halaamisesta?

      Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo
      Maailman menoa
      152
      1581
    6. Hinduilu on suurta eksytystä

      tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa
      Hindulaisuus
      579
      1491
    7. Näetkö feminismin uhkana

      Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?
      Ikävä
      217
      1437
    8. Miksi kaivata miestä

      jolla ei edes muna toimi?
      Ikävä
      116
      1408
    9. Oot nainen kaunis

      muista hymyillä jatkossakin.
      Ikävä
      49
      1129
    10. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      75
      1075
    Aihe