03 2018 档案

等待修改的代码
摘要：Public Myr&, Arrsj Private Sub CommandButton1_Click() '查询 On Error Resume Next ' Dim k With Sheets("汇总表") 'If [i3] "" Then [b3,b4,i3,i4,a6:h13,j6:j13] = "" ... 阅读全文
posted @ 2018-03-22 21:48 wangway 阅读(889) 评论(0) 推荐(0)
下载优化
摘要：'提取试卷优化 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal l... 阅读全文
posted @ 2018-03-12 07:35 wangway 阅读(260) 评论(0) 推荐(0)
20180301越努力越轻松
摘要：'目前存在的BUG '图片补丁存在多个URL '题目中间存在小数的问题在正则表达式里加上\d+\D Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As... 阅读全文
posted @ 2018-03-01 11:17 wangway 阅读(288) 评论(0) 推荐(0)
2018-03-01继续完善2
摘要：'目前存在的BUG '图片补丁存在多个URL '题目中间存在小数的问题在正则表达式里加上\d+\D Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As... 阅读全文
posted @ 2018-03-01 00:01 wangway 阅读(204) 评论(0) 推荐(0)