电脑教程
位置:首页>> 电脑教程>> office教程>> Vba把Excel某个范围保存为XLS工作薄文件

Vba把Excel某个范围保存为XLS工作薄文件

  发布时间:2022-12-18 17:27:21 

标签:上一篇,下一篇,下拉,方法,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, xlExcel8)

.Close

End With

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "ok"

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com