怎么用代码自动插入代码?

ryoryo66

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet
mypath = Trim(Range("a1"))
myfile = Dir(mypath & "*.xls*")
Do While myfile <> ""
Workbooks.Open Trim(mypath & myfile), UpdateLinks:=3
Application.Calculation = xlManual

Application.Calculation = xlAutomatic
Workbooks(myfile).Close True
myfile = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

这是以这种方式打开目录下所有工作簿并进行操作,我现在需要在打开的工作簿的"数据"工作表中插入一个点击代码:
sub commandbutton1_click()
......
end sub

请问,这个应该怎么实现一下?

约定的童话

做成加载宏或者写在主工具里面