clif
03-14-2019, 01:10 AM
Sub abc()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ws As Worksheet
Dim a As Integer
Set wb = ThisWorkbook
Set ws = wb.Sheets("abc")
For a = 5 To 100
Dim objIe As Object, xobj As HTMLDivElement
'Set objIe = CreateObject("InternetExplorer.Application")
Set objIe = New InternetExplorerMedium
objIe.Visible = True
objIe.navigate ws.Cells(1, 2).Value
While objIe.Busy: DoEvents
Wend
Do
Loop Until Not (objIe.Busy)
Application.Wait (Now + TimeValue("0:00:03"))
objIe.document.all(ws.Cells(2, 2).Value).Value = ws.Cells(a, 1)
Application.Wait (Now + TimeValue("0:00:02"))
objIe.document.all(ws.Cells(3, 2).Value).Click
Application.Wait (Now + TimeValue("0:00:05"))
objIe.document.getElementById(ws.Cells(4, 2).Value).Click
then popup html
How to activate this popup html and input the data into this by using excel vba?
Thanks!
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ws As Worksheet
Dim a As Integer
Set wb = ThisWorkbook
Set ws = wb.Sheets("abc")
For a = 5 To 100
Dim objIe As Object, xobj As HTMLDivElement
'Set objIe = CreateObject("InternetExplorer.Application")
Set objIe = New InternetExplorerMedium
objIe.Visible = True
objIe.navigate ws.Cells(1, 2).Value
While objIe.Busy: DoEvents
Wend
Do
Loop Until Not (objIe.Busy)
Application.Wait (Now + TimeValue("0:00:03"))
objIe.document.all(ws.Cells(2, 2).Value).Value = ws.Cells(a, 1)
Application.Wait (Now + TimeValue("0:00:02"))
objIe.document.all(ws.Cells(3, 2).Value).Click
Application.Wait (Now + TimeValue("0:00:05"))
objIe.document.getElementById(ws.Cells(4, 2).Value).Click
then popup html
How to activate this popup html and input the data into this by using excel vba?
Thanks!