1. 说明

该模块是根据Excel宏编程官网及录制时相关操作进行编写的，如有不足之处，望批评指正！！！

2. 代码

2.1 新建文件

新建个文件，可以是任意格式的。例如：.xlsx、.xls、.txt、.doc…

Function AssistNewFile(Filename, PathName)
'新建文件 _ 文件名_文件地址Workbooks.AddActiveWorkbook.SaveAs Filename:=PathName & FilenameEnd Function

输入内容

call AssistNewFile("Filename.xlsx", "c:/")

2.2 关闭文件

根据是否需要保存文件要求进行保存

Function AssistClose(Filename, T)
'关闭相应文件 _ 文件名_关闭时保存与否（1为关闭）Windows(Filename).ActivateIf T = 1 ThenActiveWorkbook.Close SaveChanges:=TrueElseIf T = 0 ThenActiveWorkbook.Close SaveChanges:=FalseElseIf T = 2 ThenActiveWorkbook.SaveEnd IfEnd Function

2.3 新增工作薄

按需要设置工作薄名称
下面是特定需要的，提前预设名称

Function AssistOldAddSh(Filename, T)
'老文件新建工作薄，用于存放整理出来的数据 _ 文件名_是否只取放电（1为是）_是否增加1C充放电（1为是）Windows(Filename).ActivateIf T = 0 ThenSheets.Add After:=ActiveSheetSheets("Sheet1").SelectSheets("Sheet1").Name = "充电特性数值"Sheets.Add After:=ActiveSheetSheets("Sheet2").SelectSheets("Sheet2").Name = "放电特性数值"Sheets.Add After:=ActiveSheetSheets("Sheet3").SelectSheets("Sheet3").Name = "容量倍率展示"ElseSheets.Add After:=ActiveSheetSheets("Sheet1").SelectSheets("Sheet1").Name = "放电特性数值"Sheets.Add After:=ActiveSheetSheets("Sheet2").SelectSheets("Sheet2").Name = "容量倍率展示"End IfActiveWorkbook.SaveEnd Function

这里给于自定义接口，工作薄名可以根据Name1和Name2输入

Function AssistNewAddSh(Filename, Name1, Name2)
'老文件新建工作薄，用于存放整理出来的数据 _ 文件名_工作薄1_工作薄2Windows(Filename).ActivateSheets("Sheet1").SelectSheets("Sheet1").Name = Name1Sheets.Add After:=ActiveSheetSheets("Sheet2").SelectSheets("Sheet2").Name = Name2End Function

优化一下上述新增工作薄，可以运用下述更简洁的方法。
该方法可以避免因新增工作薄不是sheet1开始的。

Function AssistNewAddSh(Filename, Name1, Name2)
'老文件新建工作薄，用于存放整理出来的数据 _ 文件名_工作薄1_工作薄2Windows(Filename).ActivateActiveSheet.Name = Name1Sheets.Add After:=ActiveSheetActiveSheet.Name = Name2End Function

2.4 删除工作薄

根据特定需求删除工作薄

Function AssistOldDelSh(Filename, T)
'老文件删除工作薄 _ 文件名_是否只取放电（1为是）_是否增加1C充放电（1为是）Windows(Filename).ActivateApplication.DisplayAlerts = FalseIf T = 0 ThenSheets("充电特性数值").SelectActiveWindow.SelectedSheets.DeleteSheets("容量倍率展示").SelectActiveWindow.SelectedSheets.DeleteSheets("放电特性数值").SelectActiveWindow.SelectedSheets.DeleteElseSheets("放电特性数值").SelectActiveWindow.SelectedSheets.DeleteSheets("容量倍率展示").SelectActiveWindow.SelectedSheets.DeleteEnd IfActiveWorkbook.Save
End Function

自定义删除工作薄

Function AssistOldDelSh(Filename, Name1)'为了避免出现提示信息Windows(Filename).ActivateApplication.DisplayAlerts = False'开始删除工作薄Sheets(Name1).SelectActiveWindow.SelectedSheets.Delete'文件保存一下ActiveWorkbook.Save
End Function

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处

【011】Excel宏编程相关封装模块（新建文件、关闭文件、新增/删除工作薄）_004_#VBA相关推荐

excel 宏编程_在 Excel 中使用 Python 开发宏脚本
点击上方蓝字,每天一起学 Python,文末领送书福利文 | varlemon 编辑 | EarlGrey 推荐 | 编程派公众号(ID:codingpy) 之前发文介绍过一个叫GridStudio ...
EXCEL宏编程纪念
不久前被叫去编写宏,这EXCEL宏真是麻烦! 可能以后不会再遇到有编写宏的经历了,故而贴出来以做个纪念: Sub direct_Price() ' 'query_dir_volume '宏由颜清国编 ...
【016】Excel宏编程的交互解析（Cells）_002_#VBA
Cells 1 交互元件 Cells 解析 1.1 元素解读 1.2 操作后缀 2 对列进行编号 3 说明 1 交互元件 Cells 解析 1.1 元素解读 Cells(RowIndex,Column ...
excel清空sheet内容 poi_java – 从POI中的WorkBook中删除工作表
我有一个工作簿,我正在尝试删除名称与特定字符串不匹配的工作表. 这是我的代码 XSSFWorkbook book = new XSSFWorkbook(new FileInputStream(exce ...
Excel催化剂开源第10波-VSTO开发之用户配置数据与工作薄文件一同存储
在传统的VBA开发中,若是用的是普通加载项方法,是可以存储数据在xlam上的,若用的是Com加载项方法同时是Addins程序级别的项目开发的,配置文件没法保存到工作薄中,一般另外用配置文件来存放供调用 ...
Python让Excel飞起来—批量处理工作薄和工作表
目录案例01 批量新建并保存工作薄举一反三批量新建并关闭工作薄案例02 批量打开一个文件夹下的所有工作薄举一反三列出文件夹下所有文件和子文件夹的名称案例03 批量重命名一个工作薄中的所有 ...
WPS JS宏编程是什么
WPS JS宏编程是一种基于JavaScript语言的自动化办公技术,可以通过编写脚本来自动化执行一些重复性的任务,例如格式化文本.生成报表.处理数据等.本教程将介绍WPS JS宏编程的基本概念.语法 ...
makefile使用宏及用法$(宏标识符) $(cc)_宏编程的艺术
微信限制:不能放置链接,代码样式比较奇怪,发布后不能更新... 推荐阅读原文: 写在前面之前写过几篇关于 C/C++ 宏 (macro) 和 C++ 元编程 (metaprogramming) 的 ...
js宏编程--wps开放平台介绍
在上篇<初识Excel的JS环境WPS宏编程>中提到,JS宏编程有2个比较好的参考资料,一个是官方的WPS开发平台介绍,另一个则是ES6教程,本文就WPS开发平台关于JS宏编程的重点做一个 ...
python的excel库_Python-excel相关库
1.xlrd库例1: #打开工作薄aaa,将aaa中的所有内容读入到列表list,并打印list import xlrd #导入xlrd book = xlrd.open_workbook(&quo ...

【011】Excel宏编程相关封装模块（新建文件、关闭文件、新增/删除工作薄）_004_#VBA

Excel宏编程相关封装模块-第4期