关于【上一篇】信息

　　Dim wn$, shp As Shape, arr
　　Application.ScreenUpdating = False
　　Application.DisplayAlerts = False
　　wn = [a1]
　　arr = Range("o3:o" & Range("o65536").End(xlUp).Row)
　　Sheets("报表").......

...

...

Sub ExportPictures()Dim MyShp As ShapeDim Filename As StringFor Each MyShp In Sheet1.ShapesIf MyShp.Type = msoPicture ThenFilename = ThisWorkbook.Path & "\" & MyShp.Name & ".gif"MyShp.CopyWith Sheet1.ChartObj......

...

为了让读者有一个感性的认识，查找excel数据中客户所在城市以南开头的客户信息如果想查找客户所在城市以“南.开头的客户信息，可以用下面的语句:select*from Customerw......