请教大侠,excel VBA中怎么将即时生成的图片用微信公从号发送出去?
请教各位大侠,在excel VBA中,
用Sub savepic() 在PC D盘即时生成了一张图片,如何用微信公从号发送出去?
发送代码如下,发送image时要有MEDIA_ID,如何获取? 是否要上传临时素材?上传到哪里(微信服务器?)
如何返回MEDIA_ID?
初学VBA小白,还请各位大侠多多指教,万分感谢!
AkToken = Sheet4.Cells(80, 2)
URL = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token=" & AkToken
http.Open "POST", URL, False
WX_agentid = Sheet4.Cells(79, 2)
WX_touser = Sheet2.Cells(y, 1)
WX_image = MEDIA_ID?
WX_safe = 0
' WX_Data = "{""touser"":""" & WX_touser & """,""agentid"":""" & WX_agentid & """,""msgtype"":""image"",""image"":{""media_id"":""" & WX_image & """}}"
http.Send (WX_Data)
Sub savepic()
Dim adds As String, filennames
Windows("aaa.xlsm").Activate
Sheets("aaab").Select
Sheets("aaab").Range("b4:f20").Select
adds = Replace(Selection.Address(0, 0), ":", "-")
Selection.CopyPicture 1, 2
ActiveSheet.Pictures.Paste.Select
With Selection
.Copy
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "d:\daily.jpg"
.Parent.Delete
End With
.Delete
End With
End Sub