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 条评论
登录 后参与评论

相关文章

来自专栏静晴轩

TOP 100 大前端超棒精选列表

正值如今这信息爆炸的年代,如何能从中汲取精华,于有限时间内,成为更高效的学习者,从而在激烈的竞争中更具优势,是当下每个人或企业都该思虑的问题;先前创立的 Web...

1273
来自专栏转载gongluck的CSDN博客

cocos2dx 2048

#include "GameScene.h" #include "CardSprite.h" #include "ScoreBoard.h" #include ...

3598
来自专栏练小习的专栏

A Simple Scene Animated with CSS3

A Simple Scene Animated with CSS3 (requires Chrome, Safari, Firefox 5+, or IE10 ...

1866
来自专栏ios 技术积累

ios view 圆角

755
来自专栏三好码农的三亩自留地

Android-打造一个简单通用的Material加载LoadingView

因为网络请求的时间一般是未知的,所以我们一般都是用一个循环的圆圈指示器来提示用户,如下图。

1373
来自专栏雪胖纸的玩蛇日常

canvas的api小结

2196
来自专栏我和未来有约会

44 Amazing Silverlight 2.0 Screencasts

Silverlight - Hello World Silverlight - Anatomy of an Application Silverlight - ...

1989
来自专栏DeveWork

小谈中文环境下中文排版的font-family 字体选择

在开发Mindia 主题的时候,为了弄出相对好看的中文排版,特意补习了下中文排版的font-family 字体选择的相关资料。以下就从自己的角度说下自己的不算得...

21010
来自专栏前端说吧

canvas练习 - 圆

572
来自专栏张善友的专栏

jQuery和asp.net mvc相关资源链接

jQuery: Simplify calling ASP.NET AJAX services from jQuery jQuery Splitter jHtml...

1977

扫码关注云+社区