none
如何实现同时关闭其他多个excel 窗口? RRS feed

答案

  • 可以用VBA来完成。例如下面的代码,其中“sx1.xlsm”指定为不希望关闭的工作簿名称。

     

    Sub 关闭多个工作簿()
        Dim wkb As Workbook
        For Each wkb In Workbooks
            If wkb.Name <> "sx1.xlsm" Then
                wkb.Close True
            End If
        Next wkb
    End Sub
    

     


    不前进只有被淘汰
    2010年4月8日 2:33
    版主

全部回复

  • 好像只能一个一个关吧/


    ERP系统论坛http://www.cio6.com
    2010年4月7日 2:44
  • 你用我们的插件 Office Tab 就可以实现关闭多个 excel 文件.
    2010年4月7日 6:42
  • 可以用VBA来完成。例如下面的代码,其中“sx1.xlsm”指定为不希望关闭的工作簿名称。

     

    Sub 关闭多个工作簿()
        Dim wkb As Workbook
        For Each wkb In Workbooks
            If wkb.Name <> "sx1.xlsm" Then
                wkb.Close True
            End If
        Next wkb
    End Sub
    

     


    不前进只有被淘汰
    2010年4月8日 2:33
    版主