摘要： 前面介绍了用VBA隐藏工作表，这时的工作表“格式→工作表→取消隐藏”命令是灰色的，无法执行。那如何取消对工作表的隐藏呢？实现将word中题目转换到excel表格中 ... 前面介绍了用VBA隐藏工作表，这时的工作表“格式→工作表→取消隐藏”命令是灰色的，无法执行。那如何取消对工作表的隐藏呢？
实现将word中题目转换到excel表格中 VBA代码
学姐给我们一次机会，将word中的选择题题干、及选项A、B、C、D分别放到成excel表格中的几列中。673个题，俩人每人300多个，当时我
1、按下Alt F11组合键进入VBA编辑状态。2、执行“工具→VBAProject属性”命令，弹出“VBAProject密码”对话框。3、输入密码，点击“确定”，弹出“VBAProject工程属性”对话框，点击“确定”，解开密码。4、执行“视图→工程资源管理器”，调出“工程—VBAProject”面板。5、逐级点击“工程—VBAProject”面板里的“ ”,这时会看到“Sheet1”、“Sheet2”、“Sheet3”工作表。6、选择Sheet2，将Sheet2的属性Visibie改为“-1-xlSheetVisible”，这时Sheet2已取消隐藏。7、选择Sheet3，将Sheet3的属性Visibie改为“-1-xlSheetVisible”，这时Sheet3已取消隐藏。8、退出VBA编辑状态，看看隐藏的Sheet2、Sheet3工作表是不是又回来。
EXCEL 实现批量导出图片
Sub ExportPictures()Dim MyShp As ShapeDim Filename As StringFor Each MyShp In Sheet1.ShapesIf MyShp.Type = msoPicture ThenFilename = ThisWorkbook.Path & &qu
