VBA 学习笔记 - 网络请求
VBA 学习笔记 - 网络请求
- Microsoft.XMLHTTP
- MSXML2.serverXMLHTTP.6.0
- WinHttp.WinHttpRequest.5.1
- 参考资料
Microsoft.XMLHTTP
Sub XMLHTTPTest()Dim request As ObjectDim response As StringDim isAsync As BooleanDim url As StringSet request = CreateObject("Microsoft.XMLHTTP")isAsync = Trueurl = "https://cn.bing.com/hp/api/v1/trivia?format=json&id=HPQuiz_20221212_PoinsettiaDay&FORM=Z9FD1"With request.Open "POST", url, isAsync.setRequestHeader "Cookie", "jerry=9527".sendWhile .ReadyState <> 4DoEventsWendresponse = .responseTextDebug.Print "《Microsoft.XMLHTTP》"Debug.Print "状态:" & .StatusDebug.Print "响应:" & responseDebug.Print vbCrLfEnd WithEnd Sub
MSXML2.serverXMLHTTP.6.0
Sub serverXMLHTTPTest()Dim request As ObjectDim response As StringDim isAsync As BooleanDim url As StringSet request = CreateObject("MSXML2.serverXMLHTTP.6.0")isAsync = Trueurl = "https://cn.bing.com/hp/api/v1/trivia?format=json&id=HPQuiz_20221212_PoinsettiaDay&FORM=Z9FD1"With request.Open "POST", url, isAsync.setRequestHeader "Cookie", "jerry=9527".send.WaitForResponseresponse = .responseTextDebug.Print "《MSXML2.serverXMLHTTP.6.0》"Debug.Print "状态:" & .StatusDebug.Print "响应:" & responseDebug.Print vbCrLfEnd WithEnd Sub
WinHttp.WinHttpRequest.5.1
Sub winHttpRequestTest()Dim request As ObjectDim response As StringDim isAsync As BooleanDim url As StringSet request = CreateObject("WinHttp.WinHttpRequest.5.1")isAsync = Trueurl = "https://cn.bing.com/hp/api/v1/trivia?format=json&id=HPQuiz_20221212_PoinsettiaDay&FORM=Z9FD1"With request.Open "POST", url, isAsync.setRequestHeader "Cookie", "jerry=9527".send.WaitForResponseresponse = .responseTextDebug.Print "《WinHttp.WinHttpRequest.5.1》"Debug.Print "状态:" & .StatusDebug.Print "响应:" & responseDebug.Print vbCrLfEnd WithEnd Sub
参考资料
MSDN - WinHttp.WinHttpRequest.5.1
VBA 学习笔记 - 网络请求相关推荐
- VBA学习笔记(9)--生成点拨(1)
VBA学习笔记(9)--生成点拨(1) 说明(2017.3.26): 1. 还没写完,写到新建文件夹了,下一步新建word,重命名,查找点拨,把点拨复制进去,因为要给点拨编号,应该会很麻烦 1 Pub ...
- HALCON 21.11:深度学习笔记---网络和训练过程(4)
HALCON 21.11:深度学习笔记---网络和训练过程(4) HALCON 21.11.0.0中,实现了深度学习方法.关于网络和训练过程如下: 在深度学习中,任务是通过网络发送输入图像来执行的.整 ...
- VBA学习笔记5:将同一工作簿的数据按照类别拆分为多个工作簿
VBA学习笔记5:将同一工作簿的数据按照类别拆分为多个工作簿 1.对每行数据按照类别所在列进行循环,判断某类别的工作簿是否存在: 2.如果不存在,则新建工作簿并将该行数据复制粘贴: 3.如果存在则打开 ...
- 陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮:新建一个我的菜单按钮 设置对应的宏过程名称为 [我的菜单宏] 点击按钮弹窗信息,信息可自定义设置 详细代码如下: Sub 新建右键菜单()Dim 菜单 ...
- VBA学习笔记2:将工作簿的表格拆分为工作簿
VBA学习笔记2:将工作簿的表格拆分为工作簿 1.判断原有工作簿的sheet是否需要拆分: 2.如需拆分则创建新表: 3.将原sheet复制到新建的工作簿中. 效果如下: 代码执行前,有1个工作簿,需 ...
- VBA学习笔记8:单元格的合并与拆分
VBA学习笔记8:单元格的合并与拆分 如下图,需要实现1图到2图(单元格合并),或2图到1图(单元格拆分). 1图: 2图: 合并单元格代码如下: Sub 合并单元格()Dim k%, rng As ...
- VBA学习笔记3:合并同一工作簿下的多个表格
VBA学习笔记3:合并同一工作簿下的多个表格 1.建立一个新的汇总表: 2.将其他sheet数据复制到汇总表中. 效果如下: 需要将3个sheet的表的数据汇总起来 汇总后的数据: 代码如下: Sub ...
- VBA学习笔记1:将同个文件夹中的工作簿汇总为一个工作簿,并建立目录超链接
VBA学习笔记1:将同个文件夹中的工作簿汇总为一个工作簿,并建立目录超链接 1.将文件夹中的xlsx文件名复制到新工作簿: 2.将文件夹中的xlsx数据簿中的sheet复制到新表并重命名: 3.插入超 ...
- Excel VBA 学习笔记13:单元格的格式
Excel VBA 学习笔记13:单元格的格式 NumberFormat 属性 (Excel) vba excel 单元格格式设置 Excel VBA 单元格格式 python解决SNIMissing ...
最新文章
- 初等数学O 集合论基础 第四节 二元关系、等价类与运算
- 快速消费品行业的营销费用的管理(2)----营销费用的分类
- 如何在vs2010中修改栈的大小
- python测验5 函数和代码_测验5: 函数和代码复用 (第5周)-单选题
- 实现 Virtual DOM 下的一个 VNode 节点
- sqlmap中的php,python - sqlmap源码中的一个问题
- linux 重定向_Linux视频教程分享,零基础在家你也可以学的会
- c花体复制_可复制花体字大全?
- 德国的“隐形冠军”是怎么造成的?
- 【VB底层开发经典入门】VB编写植物大战僵尸辅助开发视频教程
- 蓝牙相关Profiles
- Python实验、函数和代码复用
- 工业机器人打磨抛光编程员工资_工业机器人调试方面,工资高吗?累吗?
- Django邮件应用--QQ邮箱、网易邮箱(二)
- 数字经济2.0—趋势、逻辑、选择
- rust 安装与学习所遇到的部分问题
- Python 鸭子类型的理解
- 大数据统计歌曲的排行榜 ,输出到指定的HBASE数据库中
- 33个与众不同的Web表单设计
- 改善代码设计 —— 优化函数的构成(Composing Methods)
热门文章
- LaTeX之罗列多个公式
- Nginx代理服务详解
- 【你知道win 7系统名字的来源吗】
- 邮件自动被服务器删除,Outlook管理IMAP,删除服务器上的邮件
- 0x79e50c71 (msvcr100d.dll) 处有未经处理的异常: 0xC0000005: 写入位置 0x00000000 时发生访问冲突
- Android小Demo——通过MQTT协议连接OneNet平台(新版)
- java除法_java精确除法运算(BigDecimal)
- JAVA版进程管理器
- 一、网页、Web浏览器、Web标准
- HR的简历筛选神器,你拥有了吗?