Excel VBA 小天地

摘要： '目前存在的BUG '图片补丁存在多个URL '题目中间存在小数的问题在正则表达式里加上\d+\D Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As... 阅读全文

摘要： '目前存在的BUG '图片补丁存在多个URL '题目中间存在小数的问题在正则表达式里加上\d+\D Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As... 阅读全文

摘要： '目前存在的BUG '图片补丁存在多个URL '题目中间存在小数的问题在正则表达式里加上\d+\D Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As... 阅读全文

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

摘要： 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 lpfnCB As... 阅读全文

摘要： Sub PartFiterQuestion() Application.DisplayAlerts = False Dim Wb As Workbook Dim Sht As Worksheet Dim dHow As Object Dim dWhat As Object Dim HasHow As Boolean Dim HasWhat As... 阅读全文

摘要： Sub FiterQuestion() Dim Wb As Workbook Dim Sht As Worksheet Dim dHow As Object Dim dWhat As Object Dim HasHow As Boolean Dim HasWhat As Boolean Dim Dic As Object Dim I... 阅读全文

摘要： Sub GetCatalogPages() For n = 1 To 20 CatalogURL = "http://blog.sina.com.cn/s/_" & n & ".html" Call GetCatalogByUrl(CatalogURL) Next n End Sub Sub GetCatalogByUrl(B... 阅读全文

摘要： 'ClassPlan Public Org As String Public Des As String Public FlyNo As String Public StartDate As Variant Public TextStartTime As Variant Public TextEndTime As Variant Public StartTime As Variant Publ... 阅读全文