Question

Sub Sprint()
Dim IE As Object
Dim objelement As Object
Dim c As Integer
Dim LastRow, i, j As Integer
Set IE = CreateObject("InternetExplorer.Application")
With IE
  .Visible = True
  .navigate "http://xxx"
  'wait until first page loads
  Do Until .readyState = 4
    DoEvents
  Loop   
  On Error Resume Next    
Set sht = ThisWorkbook.Worksheets("TestData1")
LastRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row
For j = 2 To LastRow      
i = 1    
    If IE.Document.all.Item(i).innertext = "ÔÍÑ (ãîñ. ïîøëèíà)" Then
     IE.Document.all.Item(i).Click
     End If  
IE.Visible = True 
While IE.Busy
DoEvents  'wait until IE is done loading page.
Wend
With IE.Document
  'text boxes
  IE.Document.getElementById("txtSubscriberId").Value = sht.Cells(j, 9)
  .all("txtSubscriberId").Value = sht.Cells(j, 9)
  .all("btnPermValidateAddr").Click
  .all("txtSubscriberId").Value = sht.Cells(j, 9)

'此选项在网页下拉列表中被选中，因为选项值没有空间
IE.Document.getElementById("ddlProdCd").Value = sht.Cells(j, 20) IE.Document.getElementById("ddlProdCd").FireEvent ("onfocus") IE.Document.getElementById("ddlProdCd").FireEvent ("onchange") IE.Document.getElementById("ddlProdCd").FireEvent ("onmousewheel")

'由于选项值有
，因此在网页下拉列表中未选中此部分空间 IE.Document.getElementById("ddlPlanDesc").Value = sht.Cells(j, 21) IE.Document.getElementById("ddlPlanDesc").FireEvent ("onfocus") IE.Document.getElementById("ddlPlanDesc").FireEvent ("onmousewheel") IE.Document.getElementById("ddlPlanDesc").FireEvent ("onchange") End With Set IE = Nothing Next j End With End Sub

简而言之，在网页中未选择第21列值，但选择第20个值，因为在网页选项值中没有第20列值的空格但第21列在网页本身的选项值中有空格请参阅附图 https://i.stack.imgur.com/HwwKB.png

Combobox选项值有空格我如何通过VBA从excel调用它们

0 个答案: