VBA 오류 70 : IE 자동화 중 사용 권한이 거부되었습니다.

Question

VBA에서 Excel 2010을 통해 빠른 서브 루틴을 만들었으므로 bit.ly를 통해 URL 목록을 자동화하고 단축 링크를 다시 원래 링크로 복사합니다. 하지만 오류가 발생했습니다 70 : 사용 권한이 거부되었습니다. 나는 약간의 코스를 가졌고 이것은 대개는 잘 작동하지만 VBA에 익숙하지 않아 가능하다면 디버깅에 도움이 될 수 있습니다 (거대한 도움이 될 것입니다). 이 고비를 통해 나를 도와

Do While IE.document.all("shorten_url").Value = Range("b" & row_number).Value Or IE.document.all("shorten_url").Value = "" 
     DoEvents 
    Loop 

어떤 구체적인 조언을 제공 할 수 있다면 :

Option Explicit 

Dim IE As Object 

Sub AutoAbbrev() 

Set IE = CreateObject("InternetExplorer.Application") 
Dim holdURL As String 
Dim row_number As Integer 
IE.Visible = True 

For row_number = 101 To 112 

holdURL = "" 

If Range("b" & row_number).Value = "" Then GoTo Skip 

IE.navigate "http://www.bitly.com" 'load bit.ly 

Do While IE.readyState <> 4 
    DoEvents 
Loop 

IE.document.all("shorten_url").Value = Range("b" & row_number).Value 
IE.document.all("shorten_btn").Click 

Do While IE.document.all("shorten_url").Value = Range("b" & row_number).Value Or IE.document.all("shorten_url").Value = "" 
    DoEvents 
Loop 

holdURL = IE.document.all("shorten_url").Value 
IE.document.all("shorten_url").Value = "" 
Range("b" & row_number).Value = holdURL 

Skip: 
Next row_number 

End Sub 

Private Sub Command1_Click() 

AutoAbbrev 
End Sub 

Private Sub Form_Unload(Cancel As Integer) 
Set IE = Nothing 
If TypeName(IE) <> "Nothing" Then Unload IE 
Set IE2 = Nothing 
If TypeName(IE2) <> "Nothing" Then Unload IE2 

End Sub 

오류는 대부분 프로그램이 하나 이상의 반복을 통해 실행 후이 줄에 발생합니다 : 여기 코드는 , 나는 그것을 크게 감사 할 것이다. 감사!

Answer 1

Internet Explorer를 자동화하는 것은 항상 최후의 수단이어야합니다. 속도가 느리고 페이지 구조가 변경되지 않은 채로 유지됩니다.

는

Public Function Shorten(url As String) As String 

    Const token As String = "YOUR AUTHENTICATION TOKEN" 
    Static oRequest As Object 

    If oRequest Is Nothing Then Set oRequest = CreateObject("winhttp.winhttprequest.5.1") 

    With oRequest 
     .Open "GET", "https://api-ssl.bitly.com/v3/shorten?access_token=" & token & "&longUrl=" & url & "&format=xml", False 
     .send 
     If Left(Split(.responsetext, "txt>")(1), 2) = "OK" Then Shorten = Split(Split(.responsetext, "url>")(1), "<")(0) 
    End With 

End Function 

그런 다음 사용할 수 있습니다 : 그것은 bitly, 당신은 당신의 인증 토큰을 얻고 아래에 입력 할 필요가 링크를 shotening에 대한 API를 제공하는 하나를 사용할 수있는 경우이 경우, API을 선택하는 것이 좋습니다 위의 내용을 워크 시트의 기능으로 사용하십시오.