从 Excel 文本在 Instagram 中添加评论

如何解决从 Excel 文本在 Instagram 中添加评论

我需要在IG（Instagram）中添加评论，文本内容在excel中。我可以分享一个特定的链接来添加评论。 例如，我需要获取单元格 A1 'test' 中的文本，并将其添加为此链接中的注释 https://www.instagram.com/p/CI-_hfxAIob/?igshid=156gdavshidqo 这将在 IE 中加载一个网页

Dim i As Long
Dim URL As String
Dim IE As Object
Dim objElement As Object
Dim objCollection As Object
Dim evt As Object


'Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")


With IE

'Set IE.Visible = True to make IE visible,or False for IE to run in the background
.Visible = True

'Define URL
URL = "https://www.instagram.com/p/CI-_hfxAIob/?igshid=156gdavshidqo"

'Navigate to URL
.Navigate URL

' Wait while IE loading...
'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop)
do while .ReadyState = 4: DoEvents: Loop 'do while
Do Until .ReadyState = 4: DoEvents: Loop 'Do Until




Set evt = .Document.createEvent("HTMLEvents")
evt.initEvent "change",True,False

Set Elements = .Document.getelementsbytagname("textarea")

For Each Element In Elements
Element.Focus
Element.Value = "text"
Element.FireEvent "onchange"

Next Element
End With

但我无法将文本值分配给 textarea 以添加注释 除了 INTERNET EXPLORER 之外，它还能完成吗？ 我可以改用 Chrome 浏览器吗？