Но, текст отправлялся из таблицы Exel.
Вот часть макроса
sURL = "" & Token & "/sendMessage?chat_id=" & ChatID & "&text=" & "1." & message1
Set oHttp = CreateObject("Msxml2.XMLHTTP")
oHttp.Open "POST", sURL, False
oHttp.Send
Set oHttp = Nothing
Вот часть макроса
sURL = "" & Token & "/sendMessage?chat_id=" & ChatID & "&text=" & "1." & message1
Set oHttp = CreateObject("Msxml2.XMLHTTP")
oHttp.Open "POST", sURL, False
oHttp.Send
Set oHttp = Nothing