Modul austauschen
Detlef
ich will in einigen hundert ExcelDateien ein Modul tauschen. Bei folgendem Code funzt das Löschen des Moduls nicht, der Import tut es. Wenn ich die Löschzeilen direkt in die xls mit dem zu löschenden Modul schreibe alles ok.
Sub MassenUpdate()
Dim wb As Workbook
Dim strFile As String
Dim i_Datei As Integer
Dim Inhalt As Integer
Dim rngZelle As Range
'Eingabedateien ermitteln
With Application.FileSearch
verz = ActiveWorkbook.Path
.FileName = "*.XLS"
.LookIn = verz
.SearchSubFolders = False
.Execute
For i_Datei = 1 To .FoundFiles.Count
Set wb = Workbooks.Open(.FoundFiles(i_Datei))
Application.StatusBar = "Die Datei " + ActiveWorkbook.Name + " wird upgedatet, einen _
Moment bitte ..."
'VBA Editor aufrufen und Passwort eingeben
FreischaltCode = "PASSWORT"
SendKeys ("%{F11}"), True
If Application.VBE.ActiveVBProject.Protection Then
SendKeys ("%xi" & FreischaltCode & "{ENTER}" & "{ENTER}"), True
End If
With wb.VBProject
.VBComponents.Remove .VBComponents("modUnterbinden")
End With
wb.VBProject.VBComponents.Import "C:\...........\modUnterbinden_NEU.bas" 'Pfad zum .bas- _
_
File
Application.Calculation = xlAutomatic
wb.Save
wb.Close
SendKeys ("%{F4}"), True
Next i_Datei
End With
Application.StatusBar = False
MsgBox "Habe fertig ...."
End Sub
Wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht. Kann mir jemand auf die Sprünge helfen. Vielen Dank.
Gruß Detlef