祝各位彩友元旦快乐，彩友亨通！

本帖最后由 行空午马 于 2023-1-1 10:38 编辑

祝新年快乐！
新的一年，新的气象，过去的一年我们在YQ、核酸、封控中艰难的走出来，迎来了新的一年、新的曙光，祝2023年各位阖家欢乐、身体健康、好运连连，心想事成！感谢大家对论坛的关爱和支持，更感谢大家对我的支持！真心祝你2023年抱得大奖归

红双随机一百万哈哈哈哈

祝行空午马大师，新年快乐！万事如意！{:new017:}

祝行空老师，新年快乐！万事如意！

老师，能帮忙做个表吗，谢谢了

感谢分享，因为没看过，所以听大家建议

Sub update_ssq()
Dim i, j, Arr
Dim s() As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/ssq_asc.txt", False
.Send
s = Split(VBA.StrConv(.responseBody, vbUnicode, &H804), Chr(10))
End With
List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8): ReDim Arr(1 To UBound(s), 1 To 9)
For i = 0 To UBound(s) - 1
For j = 1 To 9: Arr(i + 1, j) = Split(s(i), " ")(List(j - 1)): Next
Next
With Sheet1.Cells(2, 33).Resize(UBound(s), 9)
.Value = Arr
End With
End Sub

Sub update_7lc()
Dim i, j, Arr
Dim s() As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/7lc_asc.txt", False
.Send
s = Split(VBA.StrConv(.responseBody, vbUnicode, &H804), Chr(10))
End With
List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9): ReDim Arr(1 To UBound(s), 1 To 10)
For i = 0 To UBound(s) - 1
For j = 1 To 10: Arr(i + 1, j) = Split(s(i), " ")(List(j - 1)): Next
Next
With Sheet1.Cells(518, 12).Resize(UBound(s), 10)
.Value = Arr
End With
End Sub


Sub update_dlt()
Dim i, j, Arr
Dim s() As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/dlt2_asc.txt", False
.Send
s = Split(VBA.StrConv(.responseBody, vbUnicode, &H804), Chr(10))
End With
List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8): ReDim Arr(1 To UBound(s), 1 To 9)
For i = 0 To UBound(s) - 1
For j = 1 To 9: Arr(i + 1, j) = Split(s(i), " ")(List(j - 1)): Next
Next
With Sheet1.Cells(581, 23).Resize(UBound(s), 9)
.Value = Arr
End With
End Sub

版主您好，能否抽空帮我看看这个双色自动更新为啥最后一新期更新不了

新的一年，新的气象，过去的一年我们在YQ、核酸、封控中艰难的走出来，迎来了新的一年、新的曙光，祝2023年各位阖家欢乐、身体健康、好运连连，心想事成！感谢大家对论坛的关爱和支持，更感谢大家对我的支持！真心祝你2023年抱得大奖归:handshake

新年快乐

新年快乐{:new010:}{:new021:}{:new001:}