在代码窗口输入以下程序:Sub RenameOn Error Resume NextMkDir ThisWorkbook.Path & “\图片”For Each pic In ShapesIf pic.Type = msoPicture ThenRN = pic.TopLeftCell.Offset.Valuepic.CopyWith ActiveSheet.ChartObjects.Add.Chart '创建图片.Parent.Select.Paste.Export ThisWorkbook.Path & “\图片\” & RN & “.jpg”.Parent.DeleteEnd WithEnd IfNextMsgBox “导出图片完成!”
应用场景：今天分享Excel数据快速提取的方法，以“如何快速从员工身份证号之中提取出身日期”为例。这个示例相对来讲HR应用比较多，但是对于Excel中其他数据的提取应用此方法也很多！说到Excel身份证出身年月，可能有些朋友第一直觉会想到MID函数来提取。
在工作中，我们常需要导入其他数据管理软件的数据文件，虽然SPSS号称可以打开12种格式的数据文件，某些软件也可以将数据文件转换成SPSS格式，但远远不能满足实际的需要。由于SPSS版本的众多，不同版本的数据格式有所不同，在转换时难免会出错。
