怎样查看这个文件表格里面被隐藏的宏

liJee

彩票3D爱好，这个文件来自论坛，作者分享，现暂时联系不上，劳烦大神看看。
主要是修改更新地址后就不能使用了，
目前数据更新源：k3dshijihao = "http://data.17500.cn/3d_asc.txt"

liJee

这个文件应该经过修改的，隐藏了宏代码，可灵活选择更新期数

aman1516

U模块：

1. 
   
2. Sub RefreshData3D(url)
   
3. Dim XmlHttp       As Object
   
4. Dim HttpSr        As String
   
5. Dim i             As Long
   
6. Dim k             As Long
   
7. Dim N             As Integer
   
8. Dim Arr() As String
   
9. 
   
10. Application.Calculation = xlManual
    
11. Maxr = Cells(Rows.Count, 1).End(3).Row
    
12. Range("a3").Resize(Maxr, 8).ClearContents
    
13. N = Cells(1, 2)
    
14. ReDim Arr(1 To N, 1 To 8)
    
15. Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    
16. 
    
17. 
    
18. 
    
19. With XmlHttp
    
20. .Open "GET", url
    
21. .setRequestHeader "Content-Type", "text/html"
    
22. .setRequestHeader "If-Modified-Since", Format(Now, "[$-F800]dddd, mmmm dd, yyyy") & " GMT"
    
23. .send ""
    
24. Do Until XmlHttp.ReadyState = 4
    
25.              DoEvents
    
26. Loop
    
27. HttpSr = .responsetext
    
28. End With
    
29. 
    
30.   hm = Split(HttpSr, Chr(10))
    
31. For i = UBound(hm) - N To UBound(hm) - 1
    
32.    qs = Left(hm(i), 7): rq = Mid(hm(i), 9, 10): jh = Mid(hm(i), 20, 5): sj = Mid(hm(i), 26, 5)
    
33.         jhh = Split(jh, " ")
    
34.         sjj = Split(sj, " ")
    
35.    m = m + 1
    
36.    Arr(m, 1) = qs
    
37.    Arr(m, 2) = rq
    
38.    For k = 1 To 3
    
39.      Arr(m, k + 2) = jhh(k - 1)
    
40.      Arr(m, k + 5) = sjj(k - 1)
    
41.    Next
    
42.    
    
43. Next
    
44.     Cells(3, 1).Resize(N, 8) = Arr
    
45.     Set XmlHttp = Nothing
    
46.      Maxr = Cells(Rows.Count, 1).End(3).Row + 1
    
47.     Range("c1:h1").Merge
    
48.     Cells(1, 3) = "By_乐彩心情阳光"
    
49.      Range("c1").Interior.ColorIndex = 15
    
50.     Range("c1").Font.ColorIndex = 5
    
51.     Range("c1").Font.Size = 12
    
52.     Cells(Maxr + 1, 1).Select
    
53.     Cells(1, "i") = "总期数" & UBound(hm)
    
54.     Application.Calculation = xlAutomatic
    
55.     MsgBox "更新完成", 64, "提示:"
    
56. 
    
57. End Sub

复制代码