![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vb
文章平均质量分 71
蓝天630902
这个作者很懒,什么都没留下…
展开
-
vb 读取比较复杂的json
用Excel读取比较复杂的json数据源在:http://bbs.csdn.net/topics/390485808 Private Sub CommandButton2_Click() '比较复杂的json On Error Resume Next bt = Split("order_id,order_sn,type,extension,seller_i原创 2013-06-10 16:09:22 · 7645 阅读 · 0 评论 -
VBA彻底解决MD5加密中文不一致问题
var hexcase = 0;function hex_md5(a){ return rstr2hex(rstr_md5(str2rstr_utf8(a)))}function hex_hmac_md5(a, b){ return rstr2hex(rstr_hmac_md5(str2rstr_utf8(a), str2rstr_utf8(b)))}原创 2013-07-01 02:26:37 · 7537 阅读 · 0 评论 -
EXCEL VBA WinHttp获取验证码图片
EXCEL VBA WinHttp获取验证码图片 Private Sub CommandButton1_Click() Dim arr() As Byte On Error Resume Next With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", "http://202原创 2013-09-27 12:46:01 · 5027 阅读 · 4 评论 -
Excel Vba GetObject 如何保存Excel文件
问题:通过GetObject打开的Excel文件后,只要被修改并保存,工作表是看不到!本方法就是要解决这个问题。 Private Sub CommandButton1_Click() On Error Resume Next 文件目录 = ThisWorkbook.Path & "\Excel\" Set fso = CreateObject("Sc原创 2013-11-14 11:28:02 · 2145 阅读 · 0 评论 -
解决 “Microsoft.XMLHTTP” 拒绝访问的问题
Sub 下载XML数据() Dim http As Object, nod, nod2 'Set http = CreateObject("Microsoft.XMLHTTP")'拒绝访问 Set http = CreateObject("MSXML2.ServerXMLHTTP") http.Open "get", "http://zx.500wan.com/s原创 2013-11-15 09:30:47 · 2076 阅读 · 0 评论