Dim xls As Microsoft.Office.Interop.Excel.Application

 
xls = New Excel.Application
With xls
    .DisplayAlerts = False
    .Visible = False
    .EnableEvents = False
 
    KillVBAinDir("Directory zu den XLS-Dateien")
 
    .Quit()
End With
 
xls = Nothing

Private Sub KillVBAinDir(ByVal d As String)
 
    Dim dirinfo As New DirectoryInfo(d)
 
    'auch alle Unterverzeichnisse
    For Each el As FileInfo In dirinfo.GetFiles("*.xls", _
      SearchOption.AllDirectories)
 
        KillVBA(el.FullName)
 
    Next
 
    dirinfo = Nothing
 
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)]

Beitrag wurde zuletzt am 30.09.10 um 08:33:50 editiert.