Tag: 权限被拒绝的

VBA错误70：权限在IE自动化期间被拒绝

我一直试图通过Excel 2010在VBA中创build一个快速子例程，以通过bit.ly自动放置一个URL列表，并将缩写链接复制回原来的链接。 但是我得到一个错误70：权限被拒绝的运行时错误。 我有一些课程，这大部分工作，但我不是很熟悉VBA，如果可能的话，可以使用一些帮助来debugging（这将是一个巨大的帮助）。 代码如下： 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 […]