VBA 上传下载 代码

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