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

 

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 3
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值