Modul in anderer Mappe löschen
22.09.2007 15:41:28
Andy
Vielleicht habt Ihr noch eine Idee.. Ich weiss echt nicht mehr weiter:-(
Folgendes Problem.
Ich habe bei ca. 30 Leuten auf den jeweiligen Rechnern Tabellen (Jahresstatistik2007P.xls), in welchem das Modul1 zu finden ist.
Aufgrund einer Laufwerksumstellung müsste ich dieses Modul austauschen, also quasi "updaten".
Mein folgender Code ruft nun aus einer neuen Datei heraus die Dateien mit dem "fehlerhaften" Modul auf und sollte das dort enthaltene Modul1 löschen. --> Tut es aber nicht. Er läuft einfach drüber.
Die danach folgende Prozedur mit dem Importieren des neuen Moduls funktioniert super. Nur habe ich dann immer noch das "Falsche" Modul1 drin.
Ich hoffe ihr könnt mir helfen..
Hier mein bisheriger Code:
Sub Main_aufruf()
Call datei_aufrufen
Call DeleteModule
Call neu_modul
End Sub
Sub datei_aufrufen()
pfad = ThisWorkbook.Path & "\Jahresstatistik2007P.xls"
Workbooks.Open (pfad)
Windows("Jahresstatistik2007P.xls").Activate
End Sub
Sub DeleteModule()
Dim VBComp As VBComponent
Set VBComp = Workbooks("Jahresstatistik2007P.xls").VBProject.VBComponents("Modul1")
Workbooks("Jahresstatistik2007P.xls").VBProject.VBComponents.Remove VBComp
End Sub
Sub neu_modul()
ModName = ThisWorkbook.Path & "\Modul1_neu.bas"
Workbooks("Jahresstatistik2007P.xls").VBProject.VBComponents.Import ModName
Workbooks("Jahresstatistik2007P.xls").Save
Workbooks("Jahresstatistik2007P.xls").Close
'Workbooks("Modulupdate1.1.xls").Close SaveChanges:=False
End Sub