À l'aide de vba excel pour modifier la valeur d'un menu déroulant sur un site web

Je suis en train d'écrire une macro Excel à remplir un formulaire sur un site web. J'ai écrit le code qui peuplent les zones de texte assez facilement, et a trouvé le code de choisir la radio des cases, mais je vais avoir des problèmes avec le choix des informations à partir de menus déroulants.

Exemple, "Sexe":

La liste déroulante a trois options:
Select / Male / Female
J'ai essayé quelques variations sur ce:
doc.getElementsByName("xs_r_gender").Item(0).Value="Male"
...mais avec pas de chance.

C'est le code source web:

<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>

Grâce.

OriginalL'auteur Marcus C | 2013-02-21

6

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

semble faire l'affaire. (Où 1 représente mâle)

Bien que cela signifie que j'ai besoin de faire beaucoup de recherches pour déterminer quelle en est la valeur pour les éléments dans ma liste déroulante. (Assez facile pour le Sexe, où il y a seulement deux options, mais j'ai quelques zones de liste modifiables avec jusqu'à 50 options). Si quelqu'un connaît une solution plus rapide, ce serait sympa. Dans l'intervalle, les Mauvais de commencer à faire des tableaux!!!

grâce.

OriginalL'auteur Marcus C
1

Essayer de code ci-dessous en supposant doc = ie.document
```
doc.getElementById("xs_r_gender").value = "Male"
```
Merci, j'ai essayé ça aussi, mais avec pas de chance.
doc.getElementById("xs_r_gender").value = "homme" Essayez ceci

OriginalL'auteur

L'utiliser dans votre code pour appeler la fonction ci-dessous.

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

Puis les utiliser pour votre fonction

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

OriginalL'auteur Lansman

1

Grâce Pile, fonctionne pour moi! Ma solution pour l'exploitation d'une IE HTML zone de liste déroulante liste déroulante s'est avéré être deux parties.

Partie 1 cliquez sur la liste déroulante, voici le code:
```
Dim eUOM1 As MSHTML.HTMLHtmlElement
Set eUOM1 = ie.document.getElementsByTagName("input")(27).NextSibling
eUOM1.Focus
eUOM1.Click
```
La partie 2 a été de choisir et cliquez sur la valeur (*le nom de l'élément modifié):
```
Dim eUOM2 As MSHTML.HTMLHtmlElement
Set eUOM2 = ie.document.getElementsByName("[*PutNameHere]")(0)
eUOM2.Value = "EA"
eUOM2.Click
```
Voici les références:refs

OriginalL'auteur Longrifle
1

Vous pouvez essayer le querySelector méthode de document pour appliquer un sélecteur CSS de option balise avec l'attribut value = 'male':
```
doc.querySelector("option[value='male']").Click
```
ou
```
doc.querySelector("option[value='male']").Selected = True
```
OriginalL'auteur QHarr

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

Une petite explication aide aussi.
Je suis désolé. Mais je pensais que les commentaires dans le code expliqué lui-même... ou pas? =D

OriginalL'auteur kazulius

Essayez ce code :

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

OriginalL'auteur kenneth

0

Vous pouvez faire quelque chose comme ceci:

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

ou

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

Où 1 est le mâle de l'option (dans les deux cas).

Si la dropbox doit déclencher un événement dans le but d'attirer votre choix, il est probable qu'il sera le "onchange" de l'événement. Vous pouvez tirer de la sorte:

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

Si jamais vous voulez être en mesure de sélectionner une option en fonction de l'option de texte vous pouvez utiliser la fonction donnée par Lansman (ici) .
Basé sur la même réponse, si vous voulez appeler l'option par la valeur de la propriété (à la place du texte, il vous suffit de modifier la ligne If xComboName.Options(x).Text = xComboValue Then à If xComboName.Options(x).value = xComboValue Then).

Cela devrait couvrir toutes les bases.

Il semble comme une option viable, bien qu'il ne fonctionne pas dans mon cas. Les valeurs de la value="xyz" n'ont pas de numéros attribués.
Ils n'ont pas besoin d'avoir un certain nombre explicitement attribuées. Le numéro que vous devriez utiliser correspond à la position de l'option (premier/deuxième/troisième/...). Alternativement, vous pouvez effectuer une itération sur toutes les options et de comparer les .value avec votre texte jusqu'à ce que vous trouver l'option que vous cherchez.

OriginalL'auteur jony

-1

Copie à partir d'Ici jusqu'à la dernière ligne:

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

Pourriez-vous préciser votre réponse en ajoutant un peu plus de description sur la solution que vous fournissez?

OriginalL'auteur Govind Pandey

Vous devez vous connecter pour publier un commentaire.