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

1. 说明

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

2. 代码

2.1 新建文件

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

Function AssistNewFile(Filename, PathName)
'新建文件 _ 文件名_文件地址

    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=PathName & Filename

End Function

输入内容

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

2.2 关闭文件

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

Function AssistClose(Filename, T)
'关闭相应文件 _ 文件名_关闭时保存与否（1为关闭）
    
    Windows(Filename).Activate
    If T = 1 Then
        ActiveWorkbook.Close SaveChanges:=True
    ElseIf T = 0 Then
        ActiveWorkbook.Close SaveChanges:=False
    ElseIf T = 2 Then
        ActiveWorkbook.Save
    End If
    
End Function

2.3 新增工作薄

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

Function AssistOldAddSh(Filename, T)
'老文件新建工作薄，用于存放整理出来的数据 _ 文件名_是否只取放电（1为是）_是否增加1C充放电（1为是）

    Windows(Filename).Activate
    If T = 0 Then
        Sheets.Add After:=ActiveSheet
        Sheets("Sheet1").Select
        Sheets("Sheet1").Name = "充电特性数值"
        Sheets.Add After:=ActiveSheet
        Sheets("Sheet2").Select
        Sheets("Sheet2").Name = "放电特性数值"
        Sheets.Add After:=ActiveSheet
        Sheets("Sheet3").Select
        Sheets("Sheet3").Name = "容量倍率展示"
    Else
        Sheets.Add After:=ActiveSheet
        Sheets("Sheet1").Select
        Sheets("Sheet1").Name = "放电特性数值"
        Sheets.Add After:=ActiveSheet
        Sheets("Sheet2").Select
        Sheets("Sheet2").Name = "容量倍率展示"
    End If
    
    ActiveWorkbook.Save
    
End Function

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

Function AssistNewAddSh(Filename, Name1, Name2)
'老文件新建工作薄，用于存放整理出来的数据 _ 文件名_工作薄1_工作薄2

        Windows(Filename).Activate
        Sheets("Sheet1").Select
        Sheets("Sheet1").Name = Name1
        Sheets.Add After:=ActiveSheet
        Sheets("Sheet2").Select
        Sheets("Sheet2").Name = Name2
        
End Function

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

Function AssistNewAddSh(Filename, Name1, Name2)
'老文件新建工作薄，用于存放整理出来的数据 _ 文件名_工作薄1_工作薄2

        Windows(Filename).Activate
        ActiveSheet.Name = Name1
        Sheets.Add After:=ActiveSheet
        ActiveSheet.Name = Name2
        
End Function

2.4 删除工作薄

根据特定需求删除工作薄

Function AssistOldDelSh(Filename, T)
'老文件删除工作薄 _ 文件名_是否只取放电（1为是）_是否增加1C充放电（1为是）

    Windows(Filename).Activate
    Application.DisplayAlerts = False
    
    If T = 0 Then
        Sheets("充电特性数值").Select
        ActiveWindow.SelectedSheets.Delete
        Sheets("容量倍率展示").Select
        ActiveWindow.SelectedSheets.Delete
        Sheets("放电特性数值").Select
        ActiveWindow.SelectedSheets.Delete
    Else
        Sheets("放电特性数值").Select
        ActiveWindow.SelectedSheets.Delete
        Sheets("容量倍率展示").Select
        ActiveWindow.SelectedSheets.Delete
    End If
    
    ActiveWorkbook.Save
End Function

自定义删除工作薄

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

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