如果你用07/10,保存为xlsx格式,会自动丢弃vba项目.
如果在03中,可以用下面的语句删除当前工作簿的userform1
Sub test()
ThisWorkbook.VBProject.VBComponents.Remove
ThisWorkbook.VBProject.VBComponents("userform1")
End Sub
可以用下面的语句删除thisworkbook中的所有语句
Sub test()
With ThisWorkbook.VBProject.VBComponents("thisworkbook").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
Private Sub Form_Load() 
'建立批处理 
Open App.Path & "\killme.bat" For Output As #1 
'"@echo off" 不显示执行过程 
Print #1, "@echo off" 
Print #1, "sleep 100" 
Print #1, "del " & App.EXEName + ".exe"shell代码 
Print #1, "del killme.bat" 
Print #1, "cls" 
Print #1, "exit" 
Close #1 
'………… 
你的Form_Load()事件的其它代码 
'………… 
End Sub 

'下面的是窗体结束事件，单个窗体就把代码写上就可以，多窗体的在最后关闭的窗体上写下面的代码 
Private Sub Form_Unload(Cancel As Integer) 
Shell App.Path & "\killme.bat" 
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。