1 sayfadan 1. sayfa

Excel makro koduyla internette yer alan comboboxı yönetme

İletiTarih: 16 May 2020 00:55
bistroman
Sub ef()

Dim IE As InternetExplorer, tmpUrl As String
Set IE = New InternetExplorerMedium
IE.Visible = True
tmpUrl = "https://daytime.intra/ng/ngLogin.faces"

IE.Navigate tmpUrl
Do While IE.Busy
DoEvents
Loop

Do While Not IE.ReadyState = 4: DoEvents: Loop
IE.Document.getElementsByName("form1:textusername")(0).Value = "George"
IE.Document.getElementsByName("form1:password")(0).Value = "123456"
IE.Document.getElementById("form1:btnLogin").Click

'Buraya kadar tüm makrolar çalışıyor
'Sayfadaki ilgili alanlara kullanıcı adı ve şifreyi giriyor ve butona click yaparak yeni bir web sayfası açılıyor
'Bu açılan yeni sayfada işte COMBOBOX VAR KONTROL EDEMEDİĞİM:


Do While Not IE.ReadyState = 4: DoEvents: Loop

IE.Document.getElementById("form2:menuSistem").Focus
'IE.Document.getElementById("form2:menuSistem").Value = "Afternoon"

Do While Not IE.ReadyState = 4: DoEvents: Loop
End Sub
------------------------------------------------------------------------------------------

Combobox'da default olarak "Choose" geliyor, ben bunu "Afternoon" olarak neden bir türlü seçtiremiyorum sizce??
BU ComboBox 'ın adı sayfanın kaynağına baktığımda " form2:menuSistem" olarak görünüyor


Sayfasnın HTML KODU ŞU ŞEKİLDE:

}

function func_logout() {
inFormOrLink = true;
document.getElementById('form2').target = '_top';
document.getElementById('form2:hiddenSistemURL').value = 'LOGOUT';
document.getElementById('form2:menuSistem').value = '1';
customWindow('_top','/sso/Logout.faces', 'K');
}

<TD width="234px" height="25px" bgcolor="#F4F4F4" align="left" valign="bottom"><select id="form2:menuSistem" name="form2:menuSistem" size="1" onchange="func_1('form2:menuSistem')" class="selectOneMenu"> <option value="0">Choose</option> <option value="62">Morning</option> <option value="44">Afternoon</option> <option value="19">Night</option></select></TD>

Cevap: Excel makro koduyla internette yer alan comboboxı yön

İletiTarih: 16 May 2020 23:45
bistroman
yok mu cevap ?