摘要： 下面的VBA代码先用Application.GetOpenFilename方法显示“打开”文件对话框，然后打开所选择的一个或多个Excel工作簿文件。
如何快速显示所有隐藏的Excel工作表
如果Excel工作簿中包含许多隐藏的工作表，要显示隐藏的工作表，通常的方法是单击菜单格式工作表取消隐藏（Excel2003）或右击工作表标签，在弹出的快捷菜单中选择取消隐藏（Excel2007/2010）
Sub OpenWorkbooks()
On Error Resume Next
Dim SelectFiles As Variant
'显示打开文件对话框
SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打开", , True)
'未选择
If TypeName(SelectFiles) = "Boolean" Then
Exit Sub
End If
'打开所选工作簿
For i = 1 To UBound(SelectFiles)
Workbooks.Open SelectFiles(i)
Next i
End Sub
excel中VBA快速取消工作簿中各工作表的自动筛选
当工作簿中的工作表数量较多时，要快速取消各个工作表中的自动筛选可以下面的VBA代码。1.按Alt F11，打开VBA编辑器。2.在代码窗口中输入下列代码SubRemoveAllAutoFilter()DimshtAsWorksheetForEa
