vba保存文件为xlsx格式_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

End With

.SaveAs ThisWorkbook.Path & "\" & wn & ".xls", IIf(Application.Version <= 11, xlNormal, xlExcel8)

.Close

End With

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "ok"

vba保存文件为xlsx格式_Vba把Excel某个范围保存为XLS工作薄文件相关推荐

Excel VBA小程序01-将多个sheet表另存为单独的工作薄文件并清除原表数据
具体步骤: 按Alt+F11,打开VBA编辑器,在代码窗口中粘贴代码. 然后关闭VBA编辑器,返回Excel界面,然后按Alt+F8打开"宏"对话框,选择对应宏执行即可. 这四段 ...
计算机突然断电不丢失已保存的数据是,(电脑上的Excel表格没保存，突然断电了。请问要怎么才能找回)表格数据不见了怎么办...
电脑上的Excel表格没保存,突然断电了.请问要怎么才能找回找断电而未保存的Excel表格的方法及步骤: ,打Excel软件. 2. 打开左上角工具栏的"文件"选项卡. 3. ...
vba保存文件为xlsx格式_另存为xlsx格式疑问
我想要excel另存为xlsx格式的文件,这个文件所有的东西选择性粘贴.去掉个人信息.取消隐藏.以显示精度为准,而不改变原来的excel文件,下面代码当excel sheet少的时候没问题,但当表格多 ...
Excel催化剂开源第10波-VSTO开发之用户配置数据与工作薄文件一同存储
在传统的VBA开发中,若是用的是普通加载项方法,是可以存储数据在xlam上的,若用的是Com加载项方法同时是Addins程序级别的项目开发的,配置文件没法保存到工作薄中,一般另外用配置文件来存放供调用 ...
Excel VBA-批量将多个sheet表另存为单独的工作薄文件
将excel多个工作表另存为单独的工作薄工作中为了方便,我们常常将多个数据类似的表放在同一个工作薄,但是如果要对每个文件执行相同的转换或处理,需要用R或Python读取每张表的数据,这时就要将其拆分 ...
vba保存文件为xlsx格式_使用VBA打开制表符分隔的.txt文件以保存为.xlsx格式
我正在尝试在Excel中使用VBA来自动将.txt文件(制表符分隔)转换为.xlsx文件 . 这就是我所拥有的: Set WB = Workbooks.Open(folder + file, , , ...
php xlsx格式转换csv,我想使用C将.xls或.xlsx文件转换为.csv格式#
我试图用C编写代码,将.xls/.xlsx文件转换为.csv文件,打开文件后将其保存为.csv文件,但结果文件仍然具有所有Excel属性(如合并单元格.标题等),但当我查看属性时,它将文件类型显示为. ...
python 将一个xls格式文件另存为xlsx格式
import win32com.client as win32 fname = "C:\\myProjects\\daily\\data\\20171229\\标准化文档-20171226\ ...
MATLAB保存数据为dat格式,將matlab中數據保存為txt或dat格式
將matlab中數據保存為txt或dat格式[轉] 具體的命令是:用save *.txt -ascii x x為變量*.txt為文件名,該文件存儲於當前工作目錄下,再打開就可以打開后,數據有可能是以指 ...

vba保存文件为xlsx格式_Vba把Excel某个范围保存为XLS工作薄文件

vba保存文件为xlsx格式_Vba把Excel某个范围保存为XLS工作薄文件相关推荐

最新文章

热门文章