Блог

Я пытаюсь использовать Excel VBA, чтобы открыть Microsoft Edge, перейти к сообщениям Google и отправить текстовое сообщение.

Я довольно новичок, когда дело доходит до уменьшения и настройки переменных. И я совершенно теряюсь, когда дело доходит до уменьшения и установки переменных с помощью объектов оболочки. Как уменьшить и установить переменные при использовании оболочек?

Вот код, который я использую:

 Option Explicit
Const sSiteName = "https://messages.google.com/web/conversations/new?pli=1"

Sub TextFromGoogleMessages()
    Dim IE As Object
    
    Dim HDoc As HTMLDocument
    
CreateObject("Shell.Application").ShellExecute "microsoft-edge:https://messages.google.com/web/conversations/new?pli=1"
 
    Set HDoc = oIE.document
    
    With HDoc
       .getElementByClassName("input").Value = "18001231111"        
    End With
End Sub