首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

怎么用VBA删除XLS中的宏代码呢

2012-03-24 
如何用VBA删除XLS中的宏代码呢我想写一段VBA,能打开XLS文件并且删除打开文件的宏代码,如何实现呢?[解决办

如何用VBA删除XLS中的宏代码呢

我想写一段VBA,能打开XLS文件并且删除打开文件的宏代码,如何实现呢?

[解决办法]

VB code
Sub Macro1()'引用 Microsoft Visual Basic For Application Extensibility 5.3    Dim vbc As VBComponent, a As Shape, sh As Worksheet    Filename = Application.GetOpenFilename(FileFilter:="Excel 工作簿文件 (*.xls),*.xls", Title:="请选择文件")    If TypeName(Filename) = "Boolean" Then Exit Sub    Application.ScreenUpdating = False    With Workbooks.Open(Filename)        For Each sh In .Sheets            For Each a In sh.Shapes                a.Delete            Next        Next        For Each vbc In Application.ActiveWorkbook.VBProject.VBComponents            Select Case vbc.Type            Case 1, 2, 3                With Application.VBE.ActiveVBProject.VBComponents                    .Remove .Item(vbc.Name) '删除模块、类模块、窗体                End With            Case Else                vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines '删除工作表或Thisworkbook代码区代码            End Select        Next        .Close True    End With    Application.ScreenUpdating = True    MsgBox "ok"End Sub 

热点排行