Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。 Dim wn$, shp As Shape, arr Application.ScreenUpdating = False Application.DisplayAlerts = False wn = [a1] arr = Range("o3:o" & Range("o65536").End(xlUp).Row) Sheets("报表").Copy With ActiveWorkbook With .Sheets(1) .Rows("1:2").Delete Shift:=xlUp .Range("D:D,P:P").NumberFormatLocal = "@" .[o1].Resize(UBound(arr)) = arr With .UsedRange .Value = .Value End With For Each shp In .Shapes shp.Delete Next End With .SaveAs ThisWorkbook.Path & "" & wn & ".xls", IIf(Application.Version <= 11,="" xlnormal,="">=> .Close End With Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "ok" Excel整体界面趋于平面化,显得清新简洁。流畅的动画和平滑的过渡,带来不同以往的使用体验。 |
温馨提示:喜欢本站的话,请收藏一下本站!