Private Sub KillVBA(ByVal f As String)
 
        xls.Workbooks.Open(f)
 
        Dim used As Boolean = False
 
        Dim vbc As Object
 
        With xls.ActiveWorkbook.VBProject
 
            For Each vbc In .VBComponents
                Select Case vbc.Type
                    Case 1, 2, 3
 
                        .VBComponents.Remove(vbc)
                        used = True
                    Case 100
                        If vbc.codemodule.countoflines > 0 Then
                            vbc.CodeModule.DeleteLines(1, _
                              vbc.CodeModule.CountOfLines)
                            used = True
                        End If
                End Select
            Next
        End With
 
        If used Then xls.ActiveWorkbook.Save()
 
        xls.ActiveWorkbook.Close()
        xls.Workbooks.Close()
 
    End Sub

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]