如何从光标在IE中的任何位置输入文本？

Question

我见过类似的问题，但似乎没有一个适用。

我的脚本打开一个IE窗口，按下一个按钮打开一个新框架，然后选中我以将光标放在一个文本框中，我想从当前工作表中放入一个单元格的内容。 （我仍然需要添加代码以保持IE在前台，以防我收到Outlook通知或其他东西..但还没有得到它）​​。

但是从这里开始，我想不出如何使用简单的命令从我的光标在IE窗口中输入文本。它似乎是在最后一行执行操作，但它会跳到另一个窗口或其他东西。

我在此配置下遇到应用程序定义或对象定义的错误，如果我使用application.Seltext代替application.text，则不支持这种操作/功能。有什么想法吗？

Sub FillInternetForm()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.navigate "[website]"

While IE.busy
DoEvents
Wend


IE.Document.All("[Button on the website]").Click

For i = 1 To 400000000
    i = i + 1
Next i

Application.SendKeys "{TAB 3}", True

For i = 1 To 400000000
    i = i + 1
Next i

'this is the line where I'm stuck... 

Application.SelText = ThisWorkbook.Sheets("sheet1").Range("a1")

End Sub