想让<em>excel</em>自打开起一直（每秒）不断刷新，用vba怎么写代...

一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。zd
　　涨幅就是指目前这只股票的上涨幅度。
　　涨幅的计算公式回：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
　　例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股答票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
　　比如:一支股票的涨幅是：10%、-5%等 。

ThisWorkBook 里面写：百

Private Sub Workbook_Open()
freshtime
End Sub

然后新建模块里面写：

Sub freshtime()
Dim NewTime As Date
NewTime = Now + TimeValue("00:00:01")
Calculate
Application.OnTime NewTime, "freshtime"
End Sub

然后保存并重新打开表格，数据每度秒自动刷新专。

如果要不间断一直刷新，把 + TimeValue("00:00:01")去掉，但是会非常卡，无法操作。
原创，Excel 2016 亲测属可行。
请参复考制如下百代度码问：答
Private Sub Worksheet_Activate()
Dim myPivot As PivotTable
For Each myPivot In Me.PivotTables
myPivot.RefreshTable
Next
Set myPivot = Nothing
End Sub

我测试了下发现是鼠标放上去悬停才百能触发刷新数据的动作。度。。

sheet1里写：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

宏2

End Sub

模块知1里写：

Sub 宏2()

'

' 宏2 宏

ActiveWorkbook.RefreshAll

If Sheet1.[G1] <> "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"

End Sub

亲测OK。

TimeSerial(0, 0, 2) 里面道的2就是每2秒刷新一次，可以改成你想要的数值专。

这个是我录制宏，再稍属微修改下，几分钟完成的。