I have an excel file with a list of project numbers 300+ (starting in range A8 down). I created code to make tabs for each.
What I am trying to do is navigate into a webpage - below is the code I used to login-
Sub MyGmail()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "CA Clarity PPM :: Login"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.Navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.Document
HTMLDoc.all.UserName.Value = "******" 'Enter your email id here
HTMLDoc.all.Password.Value = "*****" 'Enter your password here
For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
MsgBox ("Clarity Open")
There are links on the left side named "Finance" that I am unsure on how to select. After I select that I need to input the project number and adjust some parameters (date,etc)
Im unsure how to upload a screen shot??
Thanks in Advance!
What I am trying to do is navigate into a webpage - below is the code I used to login-
Sub MyGmail()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "CA Clarity PPM :: Login"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.Navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.Document
HTMLDoc.all.UserName.Value = "******" 'Enter your email id here
HTMLDoc.all.Password.Value = "*****" 'Enter your password here
For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
MsgBox ("Clarity Open")
There are links on the left side named "Finance" that I am unsure on how to select. After I select that I need to input the project number and adjust some parameters (date,etc)
Im unsure how to upload a screen shot??
Thanks in Advance!