Ein freundliches Hallo!
Versuche auf dieser Seite
mws-eu.amazonservices.com/scratchpad/index.html
die erste Dropbox (links oben) API Section zu aktualisieren. Was mir derzeit gelingt, ist die "Beschriftung" zu ändern, es fehlt jedoch noch ein Ereignis, mit dem dann in der zweiten Listbox (darunter) die zulässigen Einträge aktualisiert werden.
Habe mir folgendes aus verschiedenen Beiträgen zusammenkopiert - als nicht zwingend verstanden :
Würde mich riesig über einen Hinweise freuen. Auch ein Link zu einer guten Dokumenten würde mir dauerhauft weiterhelfen
LG & Danke
Fabian
Sub ieöffnen()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://mws-eu.amazonservices.com/scratchpad/index.html"
Do: Loop Until objIE.Busy = False
Do: Loop Until objIE.Busy = False
With objIE.Document
'--- dropdown api section
Set DropDown = .getElementById("apisection")
.getElementById("apisection").Focus
.getElementById("apisection").selectedIndex = 3
.getElementById("apisection")(0).Click
.getElementById("apisection").FireEvent ("onchange")
end with
end sub
Versuche auf dieser Seite
mws-eu.amazonservices.com/scratchpad/index.html
die erste Dropbox (links oben) API Section zu aktualisieren. Was mir derzeit gelingt, ist die "Beschriftung" zu ändern, es fehlt jedoch noch ein Ereignis, mit dem dann in der zweiten Listbox (darunter) die zulässigen Einträge aktualisiert werden.
Habe mir folgendes aus verschiedenen Beiträgen zusammenkopiert - als nicht zwingend verstanden :
Würde mich riesig über einen Hinweise freuen. Auch ein Link zu einer guten Dokumenten würde mir dauerhauft weiterhelfen
LG & Danke
Fabian
Sub ieöffnen()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://mws-eu.amazonservices.com/scratchpad/index.html"
Do: Loop Until objIE.Busy = False
Do: Loop Until objIE.Busy = False
With objIE.Document
'--- dropdown api section
Set DropDown = .getElementById("apisection")
.getElementById("apisection").Focus
.getElementById("apisection").selectedIndex = 3
.getElementById("apisection")(0).Click
.getElementById("apisection").FireEvent ("onchange")
end with
end sub