我想在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 ("")
但是我不知道如何从剪贴板获取文件并将其放入请求中。