[Excel VBA] 新建一个工作表并为其添加代码
2010-07-30 14:39
190 查看
Sub AddShtAndCodes() Dim NewSht As Worksheet, MyCodes As String Set NewSht = Worksheets.Add NewSht.Name = "test" MyCodes = "Private Sub Worksheet_Activate()" & vbCrLf & "Msgbox ""test""" & vbCrLf & "End sub" Application.VBE.ActiveVBProject.VBComponents(NewSht.CodeName).CodeModule.InsertLines 1, MyCodes End Sub
相关文章推荐
- 如何使用代码新建一个表并将其添加进数据库
- [置顶] yjh的实习生涯之自动化测试(2)---新建一个自动登录淘宝例子以及如何将java代码运行到手机上
- SharePoint 2010 图片库新建文件夹时添加一个栏
- 将一个工程中的代码复制进另一个新建的工程遇到如下问题,谨以此记。
- java后端解决跨域问题 新建一个filter 复制代码 public class SimpleCORSFilter implements Filter{ @Override
- Oracle数据库新建用户并为其创建一个视图(示例)
- 让javamail直接添加上传文件为附件的ByteDataSource代码,一个和该方法配合的上传文件类
- 用JAVA代码为android应用添加一个按钮
- 【原】C#一个到多个Cookie的字符串添加到CookieCollection集合中【isGood代码】
- Git之新建一个分支并且提交代码带远程仓库
- 在一个新建文件夹下初始化Git并下载代码的命令
- 让你的vim新建源文件的时候智能添加注释和代码
- 以声明方式在一个标题窗格内添加调色板的代码片段
- 如何对一个CCArmature用代码添加帧事件回调
- 一个自己用的代码备份工具,支持delphi,android,java,可以自己添加配置,灵活支持大部分编程语言
- java 添加一个线程、创建响应的用户界面 。 演示示例代码
- 定义栈的数据结构,要求添加一个min函数,能够得到栈的最小元素。o(1)空间的代码实现
- intellij idea 2017.3 新建JAVA类不自动添加模板代码注释的解决方案
- xcode6如何新建一个空项目+添加导航视图控制器
- linux添加2个用户到同一个(新建)用户组