Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife für QR Datei Download via Makro von Website
15.04.2021 11:16:48 Nico
NotSolved

Ansicht des Beitrags:
Von:
Nico
Datum:
15.04.2021 11:16:48
Views:
84
Rating: Antwort:
  Ja
Thema:
Schleife für QR Datei Download via Makro von Website

Hallo zusammen,

ich hänge an einem Problem. Ich habe ein Makro, dass von einer Webseite in Zelle A1 in meiner Tabelle1 auf eine Webeite zugreift und dort im QR-Code Felt den Link aus B1 einfügt, um dann die Datei per "speichern unter" runter zu laden. Alles was man so manuell machen würde.

Es gelingt mir aber nicht eine Schleife zu erstellen, dass ich mehrere Links untereinander in die Excel schreiben kann, sodass ich bei Bedarf z. B. Links hintereinander zu QR-Codes speichern und runterladen könnte.

Kann mir da jemand weiterhelfen? Vielen Dank schonmal.

Hier der Code:

 

Sub url()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

url_name = Tabelle1.Range("A2") 'www.terryburton.com
gtin = Tabelle1.Range("B2")

If url_name = "" Then Exit Sub

IE.navigate (url_name)

Do
DoEvents
Loop Until IE.ReadyState = 4

IE.Document.all("data").Value = (gtin) 'Wert aus B1 in Feld "Contents"
    
Application.Wait Now + TimeSerial(0, 0, 5) '5 Sekunden Seitenaufbau inkl. einpflegen B1

IE.Document.all("encoder").Value = ("qrcode") 'Dropdown umschalten auf QR Code
Application.Wait Now + TimeSerial(0, 0, 3) '3 Sekunden Timeout

Set AllHyperLinks = IE.Document.GetElementsByTagName("A") 'Contents Inhalt verwenden

    For Each hyper_link In AllHyperLinks
        
        If IE.Document.all("submitbtn").Value = "Make Barcode" Then 'button "Make Barcode" ansteuern
            IE.Document.all("submitbtn").Click
            Application.Wait Now + TimeSerial(0, 0, 3)
                IE.Document.GetElementByID("pnglink").Click 'PNG ansteuern
                Application.Wait Now + TimeSerial(0, 0, 3)
                Application.SendKeys "%{S}" 'speichern unter für den Download
            Exit For
        End If
    
    Next
    
    MsgBox "Fertig"

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife für QR Datei Download via Makro von Website
15.04.2021 11:16:48 Nico
NotSolved