Wie definiere ich ein Workbook in VBA?
17.12.2003 13:32:30
Alexej
Ich habe ein kleines Problem.
Ich will in einer Mappe (ich habe eine Zelle in der ausfuehrenden Mappe, wo der Pfad zu der Datei steht, wo dies geschehen soll) ein Modul loeschen. Nur, wie bringe ich ihm bei, dass er der Pfad der Datei aus der Zelle auslesen soll?
Ich kenne die Funktion
Set wtarget = Workbooks.Open(ThisWorkbook.Sheets("Gesamt").Range("Dateipfad").Value, updatelinks:=0)
Aber die Datei ist schon geoeffnet und soll nicht noch einmal geoffnet werden...
Verzweifelt,
Alexej
Public Sub patch_modules(wTarget As Workbook)
.
.
.
n = wTarget.VBProject.VBComponents.Item(cModname).CodeModule.CountOfLines
wTarget.VBProject.VBComponents.Item(cModname).CodeModule.DeleteLines 1, n
wTarget.VBProject.VBComponents.Remove wTarget.VBProject.VBComponents.Item(cModname)