Mit excel vba den Wert ändern eines dropdown-Menüs auf einer website

Ich Schreibe ein Excel-makro, um das ausfüllen eines Formulars auf einer Webseite. Ich habe geschrieben, den code, füllen Sie die Textfelder einfach genug, und fand-code zu wählen, radio-Boxen, aber ich habe Probleme mit der Auswahl von Informationen von dropdown-Menüs.

Beispiel 'Geschlecht':

Die combo-box hat drei Optionen:
Select / Male / Female
Habe ich versucht, ein paar Variationen auf diesem:
doc.getElementsByName("xs_r_gender").Item(0).Value="Male"
...aber mit kein Glück.

Dies ist die web-source-code:

<td> <select name="xs_r_gender" id="xs_r_gender">
<option value="" selected>Select</option>
<option value="male">Male</option>
<option value="female">Female</option> </select></td>

Dank.

InformationsquelleAutor Marcus C | 2013-02-21

6

doc.getElementById("xs_r_gender").selectedindex=1

scheint den trick tun. (Wobei 1 für Männlich)

Obwohl es bedeutet, dass ich brauchen, um eine Menge von lookups, um zu bestimmen, was der Wert für die Artikel in meinem dropdown-Menü. (Einfach genug für Sex, wo es nur zwei Optionen, aber ich habe einige comboboxes mit bis zu 50 Optionen). Wenn jemand weiß, der eine schnellere Lösung, das wäre toll. In der Zwischenzeit Krank zu tun beginnen einige Tabellen!!!

Dank.

InformationsquelleAutor Marcus C
1

Versuchen Sie folgenden code unter der Annahme doc = dh.Dokument
```
doc.getElementById("xs_r_gender").value = "Male"
```
Dank ich habe versucht, das aswell, aber ohne Glück.
doc.getElementById("xs_r_gender").value = "male" Versuchen, diese

InformationsquelleAutor

Verwenden Sie diese in Ihrem code aufrufen, um die Funktion weiter unten.

xOffset = SetSelect(IE.Document.all.Item("shipToStateValue"), "Texas")
doc.getElementById("shipToStateValue").selectedindex = xOffset

Dann verwenden Sie diese für Ihre Funktion

Function SetSelect(xComboName, xComboValue) As Integer
    'Finds an option in a combobox and selects it.

    Dim x As Integer

    For x = 0 To xComboName.options.Length - 1
        If xComboName.options(x).Text = xComboValue Then
            xComboName.selectedindex = x
            Exit For
        End If
    Next x

    SetSelect = x

End Function

InformationsquelleAutor Lansman

1

Dank Stack, der für mich arbeitet! Meine Lösung für den Betrieb eines IE-HTML-combobox drop-down-stellte sich heraus, dass zwei Teile.

Teil 1 war, klicken Sie auf das pull-down, hier der code:
```
Dim eUOM1 As MSHTML.HTMLHtmlElement
Set eUOM1 = ie.document.getElementsByTagName("input")(27).NextSibling
eUOM1.Focus
eUOM1.Click
```
Teil 2 war zu wählen, und klicken Sie auf den Wert, wie in diesem (*eigentliche element name geändert):
```
Dim eUOM2 As MSHTML.HTMLHtmlElement
Set eUOM2 = ie.document.getElementsByName("[*PutNameHere]")(0)
eUOM2.Value = "EA"
eUOM2.Click
```
Hier sind die Referenzen:refs

InformationsquelleAutor Longrifle

Function SetSelect(s, val) As Boolean

'Selects an item (val) from a combobox (s)
'Usage:
'If Not SetSelect(IE.Document.all.Item("tspan"), "Custom") Then
'something went wrong
'Else
'continue...
'End If

Dim x As Integer
Dim r As Boolean
r = False
For x = 0 To s.Options.Length - 1
If s.Options(x).Text = val Then
s.selectedIndex = x
r = True
Exit For
End If
Next x

SetSelect = r
End Function

Eine kleine Erklärung hilft auch.
Tut mir Leid. Aber ich dachte, die Kommentare im code erklärt sich selbst... oder nicht? =D

InformationsquelleAutor kazulius

Versuchen, diesen code :

doc.getElementById("xs_r_gender").value = "Male"
doc.getElementById("xs_r_gender").FireEvent("onchange")

InformationsquelleAutor kenneth

0

Können Sie etwas wie das hier tun:

doc.getElementsByName("xs_r_gender").Item(1).Selected=True

oder

doc.getElementById("xs_r_gender").selectedindex = 1

Wobei 1 die männliche option (in beiden Fällen).

Wenn die dropbox muss Feuer etwas geschehen, um zu Erkenntnis Ihrer Wahl, ist es wahrscheinlich, dass es das "onchange" - Ereignis. Feuern können Sie es so:

doc.getElementById("xs_r_gender").FireEvent("onchange")

Wenn Sie jemals wollen, um in der Lage sein, um eine option auszuwählen, basierend auf dem text der option können Sie die Funktion gegeben durch Lansman (hier) .
Basierend auf die gleiche Antwort, wenn Sie wollen, um die option aufzurufen, indem es die Eigenschaft "Wert" (anstelle von text können Sie ändern Sie einfach die Zeile If xComboName.Options(x).Text = xComboValue Then zu If xComboName.Options(x).value = xComboValue Then).

Dies sollte für alle Basen.

Es scheint wie eine praktikable option, obwohl es nicht funktioniert in meinem Fall auch. Die Werte von value="xyz" haben keine Nummern zugewiesen.
Sie nicht brauchen, um eine Zahl explizit zugerechnet. Die Nummer, die Sie verwenden sollten, entspricht die position der option (ersten/zweiten/Dritten/...). Alternativ können Sie iterieren über alle Optionen und vergleichen Sie die .value mit Ihrem text, bis Sie die option finden, die Sie suchen.

InformationsquelleAutor jony
0

Können Sie versuchen, die querySelector Methode der document für ein CSS-Selektor von option - tag mit dem Attribut value = 'male':
```
doc.querySelector("option[value='male']").Click
```
oder
```
doc.querySelector("option[value='male']").Selected = True
```
InformationsquelleAutor QHarr

-1

Kopieren von Hier bis zur letzten Zeile:

Sub Filldata()

Set objShell = CreateObject("Shell.Application")

IE_count = objShell.Windows.Count

For X = 0 To (IE_count - 1)

On Error Resume Next    ' sometimes more web pages are counted than are open

my_url = objShell.Windows(X).document.Location

my_title = objShell.Windows(X).document.Title

   If my_title Like "***Write your page name***" Then

    Set IE = objShell.Windows(X)

        Exit For

    Else

        End If

    Next

With IE.document.forms("***write your form name***")

' Assuming you r picking values from MS Excel Sheet1 cell A2

i=sheet1.range("A2").value 

.all("xs_r_gender").Item(i).Selected = True

End with

End sub

Könntest du bitte erläutern Sie mehr Ihre Antwort das hinzufügen von ein wenig mehr Beschreibung über die Lösung, die Sie bereitstellen?

InformationsquelleAutor Govind Pandey

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.