vilasc
07-11-2013, 04:27 AM
Want to Download All Company name from dropdown of below URL
Trying below code but its not working
Sub COMPANYNAME()
Dim ie As Object
Dim s As Object
Dim sm As String
Set ie = CreateObject("internetexplorer.application")
With ie
.Navigate
.Visible = True
End With
Set s = ie.Document.getElementById("ext-gen35")
sm = s.selectedindex = 1
End Sub
:banghead:
Trying below code but its not working
Sub COMPANYNAME()
Dim ie As Object
Dim s As Object
Dim sm As String
Set ie = CreateObject("internetexplorer.application")
With ie
.Navigate
.Visible = True
End With
Set s = ie.Document.getElementById("ext-gen35")
sm = s.selectedindex = 1
End Sub
:banghead: