Как отправить файл из буфера обмена? - PullRequest
Новая
       4

Как отправить файл из буфера обмена?

1 голос
/ 30 июня 2019

Я хочу скопировать диапазон ячеек в листе Excel и отправить его через бота telegram в виде картинки программно с использованием VBA.

Здесь я копирую диапазон в виде картинки: 

Dim rCopy As Range
Set rCopy = ThisWorkbook.ActiveSheet.Range("A14:C14")
rCopy.copyPicture

Этот код отправляет HTTP-запрос в Telegram API: 

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "https://api.telegram.org/bot<TOKEN>/sendPhoto?chat_id=<ID>&photo=" & rCopy
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")

Но я не знаю, как получить файл из Буфер обмена и поместить его в запрос.

...