摘要:
'目前存在的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... 阅读全文
摘要:
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 ... 阅读全文