Hirdetés

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

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

  • #20246 Mutt senior tag Ba.G #20239
    Új Válasz #20246
    Ú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

    Mutt

    senior tag

    válasz Ba.G #20239 üzenetére

    Szia,

    ...kereshető adatbázis valami javás dolog...

    Megnéztem a linket és mivel az URL nem tartalmazza a keresett kulcsszót, hanem csak a dokumentum azonosítót, ezért csak az a megoldás járható hogy készítesz egy segédtáblát amelyben a szabvány száma és a dokumentum id szerepel.

    A linkben a portlet_ref= után van a dokumentum id (pl. 060001).

    Az alábbi UDF a dokumentum idhez tartozó szabvány számot adja vissza:
    Function GrabWebData(URI As String)
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
    .Visible = False
    .Navigate URI
    Do Until .ReadyState = 4: DoEvents: Loop

    x = .Document.body.innertext
    x = Replace(x, Chr(10), Chr(13))
    x = Split(x, "Hivatkozási szám")
    If UBound(x) < 2 Then Exit Function
    y = Split(x(2), Chr(13))
    .Quit
    End With

    If Len(y(0)) > 0 Then
    GrabWebData = y(0)
    Else
    GrabWebData = ""
    End If
    End Function

    Most már csak a fenti függvényt kell egy ciklusba tenni, hogy a lehetséges dokumentum azonosítókon végigmenjen és meg lesz a segédtáblád.

    üdv

    ps. A ciklus leterhelheti a szervert, ezért óvatosan vele!

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