peca123的专栏

Option ExplicitSub FileNames() Dim sFName As String Dim asFNames() As String Dim sFType As String Dim i As Integer sFType = "D:/Tianqi/*.xlsm" sFName = Dir(sFType) Do Until sFName = "" i = i + 1

<br />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.A