VBA判断工作表是否存在&不存在时创建(Excel)

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

Function 建表(s) For Each i In Sheets If i.Name = s Then Exit Function Next Sheets.Add(, Sheets(Sheets.Count)).Name = s ' Sheets.Add.Name = s'创建在前面 ' Sheets.Add 方法 (Excel):https://msdn.microsoft.com/zh-cn/library/office/ff839847 End Function

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏菩提树下的杨过

利用Boost影响Lucene查询结果的排序

以下代码在Lucene2.1下通过,主要是通过设置Document的Boost来影响文档的权重,以达到控制查询结果顺序的目的(前提是不利用Sort排序的情况下...

1826
来自专栏代码拾遗

​反射基础之Enum

因为枚举也是一个类,所以也可以通过Field,Method,Constructor的反射API获取其他信息:

743
来自专栏Java技术栈

JDK8之新特性扩展篇

之前分篇章讲了一些JKD8中添加的新特性,还有一些新特性这里也一并讲下。 BASE64 base64编码解码已经被加入到了jdk8中了。 import java...

3286
来自专栏跟着阿笨一起玩NET

DataGridView 中合并单元格

472
来自专栏禁心尽力

反射+自定义注解---实现Excel数据列属性和JavaBean属性的自动映射

简单粗暴,直奔主题。 需求:通过自定义注解和反射技术,将Excel文件中的数据自动映射到pojo类中,最终返回一个List<pojo>集合?   今天我只是通...

2509
来自专栏码字搬砖

java反射的简单使用

前几天项目中遇到一个相对有意思的事情,那就是一个InsertHbase的工具类接收一个对象,然后获取到对象的每一个属性及其值,最后Insert到Hbase中 ...

552
来自专栏cmazxiaoma的架构师之路

你真的了解Spring MVC处理请求流程吗?

2244
来自专栏精讲JAVA

深入 Spring Boot :怎样排查 java.lang.ArrayStoreException

这个demo来说明怎样排查一个spring boot 1应用升级到spring boot 2时可能出现的java.lang.ArrayStoreExceptio...

1154
来自专栏angularejs学习篇

web前端url传递值 js加密解密

一:Js的Url中传递中文参数乱码问题,重点:encodeURI编码,decodeURI解码:

961
来自专栏北京马哥教育

SQL函数汇总【精选篇】

1.绝对值 SQL:select abs(-1) value O:select abs(-1) value from dual 2.取整(大) ...

2689

扫码关注云+社区