[已解决]用VBA如何调用多个EXCEL表

zhaojin0522

{:3812:}求程序框架

最佳答案

月排行榜 / 总排行榜

zjdh

2013-4-27 16:54

Sub 汇总()
    Application.ScreenUpdating = False    '关闭屏幕刷新，提高运行速度
    For Each sht In Sheets    '所有的工作表中循环
        If Not sht.Name = "汇总" Then  
                  '......
                  '......
       End If
    Next sht
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

zjdh

Sub 汇总()
    Application.ScreenUpdating = False    '关闭屏幕刷新，提高运行速度
    For Each sht In Sheets    '所有的工作表中循环
        If Not sht.Name = "汇总" Then  
                  '......
                  '......
       End If
    Next sht
    Application.ScreenUpdating = True
End Sub