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

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)

相关推荐

  • excel中如何将两个工作薄合并到一起

    excel中如何将两个工作薄合并到一起 操作方法 01 首先我们找到要合并的两个工作薄 02 然后分别打开它们 03 我们要将1合并到2里,在Book1的下面标签中,右键,先全部选中整个工作表 04 ...

  • Excel怎么同时关闭多个工作薄

    Excel怎么同时关闭多个工作薄 按住Shift+主窗口标题栏上的关闭按钮. 懒人总会想出简单的办法..

  • Excel如何快速合并两个工作薄

    在使用excel制作表格文件时,我们常常需要将两个表格文件合并处理,这是如何操作的呢,一起来看看在excel中是如何快速合并两个工作簿的吧. 操作方法 01 首先我们打开我们的两个excel表格文件, ...

  • Excel启动时自动打开xls文档

    Excel是流行的数据处理软件,当我们建立的某些xls工作薄文档每天都要打开用到,一个个的打开很不方便.有没有办法在启动Excel的同时,自动打开xls文档呢?办法很简单,跟着我来就是了. 操作方法 ...

  • Excel共享工作薄为何只能打开三3个

    在使用Excel的时候，我们可以将相同的一个工作薄文件，让很多人都能同时打开并保存相应的数据。 这叫做共享工作保这需要多方面的支持。 比如，首先，要设置工作薄为共享，其次要有局域网功能，最后还要能够访 ...

  • excel如何批量取消隐藏的工作表

    大家都知道,在平时使用过程中批量隐藏工作表的方法是使用键盘CTRL和鼠标选取需要隐藏的工作表标签,让后再使用鼠标右键隐藏功能来达到隐藏工作表的目的,但是要取消,excel就没有这样的功能了,大家就要一 ...

  • 最简单的Excel跨工作薄调用数据的方法

    不知有多少人在寻找跨工作薄调用数据的方法.也不知有多少人曾写过,如何使用某某函数可以跨工作薄调用数据的文章. 更糟糕的是,还不止有多少人在说,跨工作薄调用数据必须得让引用或被调用的工作薄同时打开才能实 ...

  • Excel出现无法保存VBA的提示怎么办

    Excel出现无法保存VBA的提示怎么办

    Excel是我们常用的办公软件之一,有小伙伴问怎么出现无法保存VBA的提示怎么办,下面小编介绍一下.具体如下:1. 当使用Excel保存VBA时,弹出如图对话框,点击"否"2. 选 ...

  • excel中使用vba退出工作薄时自动保存文件

    小编致力于为大家奉献最有效的,让大家能够解决掉问题,但是大家也都知道,每个人遇到的情况都是不一样的,大家在看小编的同时,除了跟随操作,也需要自己的思考,举一反三的解决问题,这样才会变得更加有内涵,成为 ...