Vba把Excel某个范围保存为XLS工作薄文件|萝卜系统下载站

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

　　End With

　　.SaveAs ThisWorkbook.Path & "" & wn & ".xls", IIf(Application.Version <= 11,="" xlnormal,="">

　　.Close

　　End With

　　Application.DisplayAlerts = True

　　Application.ScreenUpdating = True

　　MsgBox "ok"

Excel整体界面趋于平面化，显得清新简洁。流畅的动画和平滑的过渡，带来不同以往的使用体验。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面