摘要: '目前存在的BUG '图片补丁存在多个URL Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved A... 阅读全文
posted @ 2018-02-26 22:55 wangway 阅读(177) 评论(0) 推荐(0) 编辑
摘要: Sub LoopGetStockData() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Cells.ClearContents For y = 2017 To 2007 Step -1 For s = 4 To 1 Step -1 ... 阅读全文
posted @ 2018-02-26 10:10 wangway 阅读(200) 评论(0) 推荐(0) 编辑