如何添加一个模块，发布一天竟然没有一个大师懂

a316667229

1111.rar (110.45 KB, 下载次数: 7)

2017-9-15 15:46 上传

点击文件名下载附件 如何添加一个模块，让它每隔60秒或者120秒就自动更新

grf1973

北京赛车 是什么鬼？ ONTimeDo 又是什么鬼？没有出现怎么调用？

a316667229

grf1973 发表于 2017-9-15 14:35
北京赛车 是什么鬼？ ONTimeDo 又是什么鬼？没有出现怎么调用？

回复你否下载看看

大灰狼1976

自行查阅ontime用法。

大灰狼1976

做个简单的示例给你，自己看一下吧。

a316667229

大灰狼1976 发表于 2017-9-18 15:48
自行查阅ontime用法。

Dim i As Long
Dim NextTick As Date

Sub add_data()
Dim rng As Range

Sheets(1).Select
x = Sheets(1).Cells(1, 1).Value

Sheets(1).Select
Set rng = Range("a10008")
rng.Offset(2, 0).Select
Selection.Value = x
NextTick = Now + TimeValue("00:01:00")
Application.OnTime NextTick, "add_data"
End Sub




Sub 结束()
    On Error Resume Next
    Application.OnTime NextTick, "add_data", , False
End Sub

Private Sub Form_Load()
    Timer1.Interval = 10000
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i Mod 300 = 0 Then
i = 0
Call add_data

End If
End Sub


你好，我对VBA还是不太了解，我这样弄，还是没办法刷新表格1的数据，是有一直在跳，可是数据就是刷新不出来

大灰狼1976

看你代码的意思是每小时将A1单元格的值赋给A10010单元格，代码应该没有问题，看不到刷新的原因会不会是因为A1的值本身就不在变化。
最好上附件说明。

a316667229

大灰狼1976 发表于 2017-9-19 09:50
看你代码的意思是每小时将A1单元格的值赋给A10010单元格，代码应该没有问题，看不到刷新的原因会不会是因为 ...

Private Sub CommandButton1_Click()

Range("A3:k12000").Clear

k3dshijihao = "http://data.917500.cn/pk10_10000.txt"

d3s = "WData3D_All"

    Cells(2, 1) = "期号"
    Cells(2, 2) = "冠"
    Cells(2, 3) = "亚"
    Cells(2, 4) = "季"
    Cells(2, 5) = "四"
    Cells(2, 6) = "五"
    Cells(2, 7) = "六"
    Cells(2, 8) = "七"
    Cells(2, 9) = "八"
    Cells(2, 10) = "九"
    Cells(2, 11) = "十"



    cz = k3dshijihao: czmc = d3s


     With ActiveSheet.QueryTables.Add(Connection:= _
         "TEXT;" & cz, Destination:=Range("A3"))
        .Name = czmc
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
Range("A" & (Application.Count(Range("a1:a12000")))).Select
End


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub




这个是我表格1的VBA数据，我用刷新模块怎么也没办法刷新出来