excel表格怎么快速刷新

1.在excel里的web数据查询 如何实现以秒为单位的自动刷新 请高手赐教

Dim flag As Boolean

Sub 刷新（）

flag = True

Start = Now

Do While flag

If Now >Start + TimeValue("0:00:05") Then

ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False

Start = Now

End If

DoEvents

Loop

End Sub

Sub 停止（）

flag = False

End Sub

注意：可以为宏"停止"指定一个快捷键，以方便中止刷新

2.请问excel报表里怎么刷新数据??鼠标右键没有刷新键怎么办?

Excel中刷新数据透视表的两种方法：

1、手工刷新

(1)右键菜单， 透视表内任意单元格鼠标右键-----刷新数据；

(2)使用数据透视表工具栏上的刷新按钮；

(3) 添加刷新全部透视表工具按钮：

(3.1)直接在透视表工具栏选项添加按钮---添加或删除按钮---数据透视表---全部刷新；

(3.2)自定义工具栏选项按钮：自定义---命令---数据---全部刷新---将此按钮拖放到工具栏上，即可直接点击此按钮以实现整个工作簿内透视表数据刷新。

操作小技巧：窗口--新建窗口，此时会打开一个同样的工作簿，窗口中选择“与工作簿**并排比较”，这样可在并排的两个工作簿中将数据源与透视表刷新进行直观对比，同理在这里你可以试试隐藏窗口哦！记得在excel中是可以设置打开一个存放个人宏的工作簿，而且是一打开就隐藏了窗口了。

2、自动刷新---通过设置透视表属性

(1)打开时刷新。顾名思义---打开工作表时，就可以刷新数据透视表。

(2)定时刷新。可以设置刷新频率的时间，但是仅适应于外部数据源所创建的数据透视表。

操作：如何创建1个基于外部数据源创建数据透视表，

“数据”菜单---导入外部数据---导入数据---选中外部数据源---选择表格---导入数据---创建数据透视表---完成。

3、自动刷新---使用VBA代码实现自动刷新透视表

3.1激活工作表时刷新

打开透视表代码窗口输入：

Private Sub Worksheet_Activate()

---当激活这个工作表时执行下列语句命令

ActiveSheet.PivotTables（"数据透视表"）.PivotCache.Refresh

---更新名为“数据透视表”的数据透视表