- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- Meglepetés az iPhone Air hajlítópróbáján
- Xiaomi 15 - kicsi telefon nagy energiával
- Poco F6 5G - Turbó Rudi
- Samsung Galaxy A54 - türelemjáték
- iPhone topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Vivo X200 FE – fenséges méret
- Megérkezett a Google Pixel 7 és 7 Pro
- Hetekig bírják töltő nélkül a Huawei sportórái
-
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
-
Mutt
senior tag
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 FunctionMost 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
- Nők, nőügyek (18+)
- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- Meglepetés az iPhone Air hajlítópróbáján
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- exHWSW - Értünk mindenhez IS
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Futás, futópályák
- PlayStation 5
- Xiaomi 15 - kicsi telefon nagy energiával
- Elemlámpa, zseblámpa
- További aktív témák...
- Lenovo ThinkPad X13 Gen 2 i5-1145G7 16GB 512GB FHD+ 100% sRGB - 1 év garancia
- Samsung Galaxy A13 64GB, Kártyafüggetlen, 1 Év Garanciával
- 25+ típus!!! Lenovo ThinkPad, X1 carbon, X1 Yoga 5-12. gen 12,5-15" all-in-one, Workstation, stb.
- Epson Workforce DS-530II dokumentumszkenner
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest