如何从剪贴板发送文件?

时间:2019-06-30 12:36:00

标签: excel vba telegram telegram-bot

我想在Excel工作表中复制一定范围的单元格,并使用VBA以编程方式通过电报bot将其发送为图片。

在这里我将范围复制为图片:

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 ("")

但是我不知道如何从剪贴板获取文件并将其放入请求中。

0 个答案:

没有答案