Új hozzászólás Aktív témák
-
Papa100
friss újonc
Kedves Fórumozók!
Nem boldogulok az alábbi feladattal. Egy QR kódot szeretnék excel táblába menteni.
A QR kódot Internet Explorerrel online generálom, és az IE oldalról kellene átmásolni a munkalapra. A QR megjelenik az Explorer oldalon, de nem tudom átmásolni.Sub FillInternet2()
Dim IE As Object
Dim adat As String
adat = "https://chart.googleapis.com/chart?chs=200x200&cht=qr&chl=BEGIN:VCARD%0AN:Teszt%20Elek%0AEND:VCARD"
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate adat
While IE.ReadyState <> 4
DoEvents
Wend
IE.Visible = True
For Each itm In IE.document.all
n = n + 1
Cells(20 + n, 1) = itm
If itm = "[object HTMLImageElement]" Then
'Cells(2, 27) = Img.getAttribute("src")
End If
Next
IE.Quit
End Sub
Segítségeteket előre is nagyon köszönöm.
Új hozzászólás Aktív témák
- Apple iPhone SE 2020 64GB, Yettel függő, 1 Év Garanciával
- LG 65B4 - 65" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- ÁRGARANCIA!Épített KomPhone i5 13400F 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RX 9070 16GB GAMER PC termékbeszámítással
- Bomba ár! Dell Precision M4600 - i7-QM I 8GB I 500GB I Nvidia I HDMI I 15,6" FHD I W10 I Gari!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest