您的位置:首页 > 编程语言 > VB

[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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  vba excel 工作 string
相关文章推荐