Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #31787 bteebi veterán bteebi #31761
    Új Válasz #31787
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    bteebi

    veterán

    válasz bteebi #31761 üzenetére

    Sziasztok!

    Végül sikerült megoldanom :). Megosztom, hátha valakinek jó lesz ötletet nyerni.

    Sub szamkereso()
    Dim azonosito As Long, elso As Long, pageno As Integer, file As Variant
    azonosito = ActiveSheet.Range("A1")
    file = Dir("D:\proba\" & "*.pdf")
    Do While (file <> "")
    If Mid(file, 5, 6) < azonosito And Mid(file, InStrRev(file, "szam") + 4, 6) > azonosito Then
    elso = Mid(file, 5, 6)
    pageno = 1 + Int((azonosito - elso) / 10)
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("D:\proba\" & file & "#page=" & pageno)
    Set IE = Nothing
    End If
    file = Dir()
    Loop
    End Sub

    Egy apróságot leszámítva tökéletesen működik - ez pedig az adott oldalszámra ugrás. Úgy tűnik, hogy 1.4-es és 1.5-ös verziójú pdf-ekkel működik, de az 1.6-tal már nem (nem ugrik arra az oldalra, amelyikre kellene, csak az első oldalt nyitja meg). Van arra ötletetek, hogy miért lehet ez, vagy hogy át lehet-e valahogy állítani? Igazából az a kérdés, hogy ez szkennelési beállítástól függ(het)-e, vagy pedig a pdf verziójától?

Új hozzászólás Aktív témák