excel VBA判断工作表是否存在&不存在时创建

Function 表存在(s)For Each i In SheetsIf i.Name = s & "" Then 表存在 = 1 '连接空白是避免表格名为数值时格式不同' Debug.Print i.Name = sNextEnd Function

Function 建表(s)For Each i In SheetsIf i.Name = s Then Exit FunctionNextSheets.Add(, Sheets(Sheets.Count)).Name = s' Sheets.Add.Name = s'创建在前面' Sheets.Add 方法 (Excel)：https://www.office26.com/excel/excel_7221.htmlEnd Function

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/73638.html