Sub Main()
Dim ie As Object
For i = 1 To 50
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://**/"
While ie.ReadyState <> 4 Or ie.Busy = True
DoEvents
Wend
ie.Document.getElementsByName("commit")(0).disabled = False
ie.Document.getElementsByName("commit")(0).className = "btn btn-create qa-issuable-create-button"
ie.Document.getElementById("issue_title").Value = Cells(i, 1).Value
If Len(Cells(i, 2).Value) > 0 Then
ie.Document.getElementById("issue_description").Value = Cells(i, 2).Value
End If
ie.Document.getElementsByName("commit")(0).Click
Next
End Sub
---------------------------------------------------
Sub Main()
Dim ie As Object
For i = 1 To 100
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
Dim sa(3), targetURL As String
sa(0) = "http://**/"
sa(1) = str(i)
sa(1) = Trim(sa(1))
sa(2) = "/edit"
targetURL = Join(sa, "")
ie.Navigate targetURL
While ie.ReadyState <> 4 Or ie.Busy = True
DoEvents
Wend
Cells(i, 1).Value = ie.Document.getElementById("issue_title").Value
Cells(i, 2).Value = ie.Document.getElementById("issue_description").Value
Next
End Sub
-----------------------------------------
Sub Main()
Dim ie As Object
For i = 401 To 454
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
Dim sa(3), targetURL As String
sa(0) = "http://**/"
sa(1) = Str(i - 5)
sa(1) = Trim(sa(1))
sa(2) = "/edit"
targetURL = Join(sa, "")
ie.Navigate targetURL
While ie.ReadyState <> 4 Or ie.Busy = True
DoEvents
Wend
ie.Document.getElementsByName("commit")(0).disabled = False
ie.Document.getElementsByName("commit")(0).className = "btn btn - Save"
ie.Document.getElementById("issue_title").Value = Cells(i, 1).Value
ie.Document.getElementById("issue_description").Value = ""
If Len(Cells(i, 2).Value) > 0 Then
ie.Document.getElementById("issue_description").Value = Cells(i, 2).Value
End If
ie.Document.getElementsByName("commit")(0).Click
Next
End Sub