Public Sub SSC_TODAY() Dim strText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long With CreateObject("MSXML2.XMLHTTP") .Open "GET", "http://cp.360.cn/ssccq?agent=700007", False .Send strText = .respon…

Public Sub Main22() If Now() >= #1/1/2018# Then Exit Sub Dim strText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long Set Reg = CreateObject("Vbscript.Regexp") With Reg .MultiLine = True .Global = True .Ignorecase = Fa…

Public Sub SSCLastTwoDays() Dim strText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long Set Reg = CreateObject("Vbscript.Regexp") With Reg .MultiLine = True .Global = True .Ignorecase = False 'class='gray'>007</td&…

Sub MatchData() Dim i As Long, EndRow As Long, Key As String Dim Rng As Range Dim Dic As Object Set Dic = CreateObject("Scripting.Dictionary") '获取数据来源 With Sheets("数据来源") EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row Set Rng = .R…

Sub 导出() Dim Sht As Worksheet, ShtName As String Dim NextRow As Long, NextRow2 As Long Dim iRow As Long, Index As Long Dim mySum As Double iRow = 2 Sheets("地块表").Activate Do While Cells(iRow, "F").Value <> "" ShtName =…