我很幸运地得到了某人对我之前提出的问题的答复。见这里。
我唯一苦苦挣扎的是创建一个循环,该循环将在到达 B 列中的空白单元格时结束宏。我一直在尝试阅读其他代码,但没有真正点击我(如果,比循环,结束循环等) )。这是我的宏的最后一步,我会喜欢任何有关如何为我创建循环和/或解决此问题的资源的资源。一如既往地感谢。这个网站上的人非常乐于助人!
Sub Redirect()
Dim IE As Object
Dim doc As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "https://...."
Do Until .ReadyState = 4: DoEvents: Loop
With .Document.forms("digiSHOP")
.elements("OldUrl").Value = Range("A2")
.elements("NewUrl").Value = Range("B2")
.submit
End With
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
End Sub