微信根据mediaid获取永久素材视频链接保存到excel

泊客天涯

于 2022-07-21 07:34:38 发布

阅读量750

点赞数

分类专栏：微信微信公众号开发 vb 文章标签：微信

本文链接：https://blog.csdn.net/mytoday2004/article/details/125904272

版权

上传视频到微信服务器，保存mediaid

将文件mediaid保存到excel，因为我有多个公众号，所以excel中有多列，其中包含公众号名称

另外注易获取永久素材接口每天只能调用500次

所以我有1000个视频，就需要分两天才能采集到视频链接

vba代码


    Dim JSON As Object
    Dim xmlhttp
    
Function getsj(i0, i) 'token sid classid,日期
    
    On Error Resume Next
    With xmlhttp
    
    .Open "POST", "https://api.weixin.qq.com/cgi-bin/material/get_material?access_token=NewTOKEN", False
    .setRequestHeader "accept", "application/json, */*; q=0.01"
    .setRequestHeader "accept-language", "zh-CN,zh;q=0.9"
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
    .setRequestHeader "referrer", "https://api.weixin.qq.com/"
    .send "{""media_id"":""" & i0 & """}"
    
    d1 = .responseText  '显示P