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

• #3140 Papa100 csendes tag

  Új Válasz 2020-05-21 14:10:53 #3140

  Ú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

  

  Papa100

  csendes tag

  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