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
663
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
- 2042358
Törkeä eläinsuojelurikos Sonkajärvellä
Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo401572Jotkut ihmiset pelkäävät syöpää sairastavaa
On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall1351222Lavrov suivaantui Stubbille perustellusti.
Lavrov perusteli suivaantumistaan tosiasioilla Suomen tarinasta sotiemme jälkeen, tutkija Tynkkynen ja pankkihenkilö Sol2881018Se ei ihan oikeasti vaatisi kuin yhden
Tekstiviestin... Jos rakastat minua vielä toivoisin että laittaisit minulle viestiä. Rakastatko? Oletko oikeasti niin pe56972Sukupuolia on vain kaksi- kohukassista tuli kova tuomio perheenisälle oikeudessa.
https://www.iltalehti.fi/kotimaa/a/4d4db0d9-4dda-4ba6-a699-25d725683ad6 Miten näin normaalista kassissa olevasta tekstis288915- 55906
Kääminsä polttanut taksi suomussalmella
Vieläkö sillä hermonsa menettäneellä hulluja ylinopeuksia ajavalla asiakkaansa haukkuvalla( jos ajat paska kyydin hänen20902Jorma Uotinen avaa sanaisen arkkunsa TTK-miesparista ja koko uudistuksesta: "Sehän on..."
Tanssii Tähtien Kanssa -parketilla nähdään ensimmäistä kertaa Suomessa tanssiparina miespari kauden alusta asti. Mikko S18765Aina ku nään sun kuvan
Tekis mieli kirjoittaa viesti: Moi kulta, on ikävä❣️🤗 ihan noin vain, lyhyt ja ytimekäs 😁🤭58763