Wie lösche ich VB-Code aus einem Excel-Blatt mit C#?

Question

Kennt jemand einen Weg, um mit C# den gesamten VB-Code aus einer Excel-Arbeitsmappe zu löschen? Dieser Code funktioniert nicht. Er entfernt das erste (letzte) VBComponent, löst aber eine ArgumentException beim zweiten aus.

VBProject projekt = arbeitsmappe.VBProject;
int komponentenAnzahl = projekt.VBComponents.Count;

for (int i = komponentenAnzahl; i >= 1; i--)
{
    VBComponent komponente = projekt.VBComponents.Item(i);
    projekt.VBComponents.Remove(komponente);
} 

Irgendwelche Vorschläge?

Answer 1

Ich habe es mit Sams Hilfe gelöst. Ich vermute, dass jedes Excel-Arbeitsbuch einige nicht löschbare VB-Komponenten hat, daher können wir anstatt sie zu löschen ihren Inhalt löschen. Es funktioniert jetzt. Danke Sam.

VBProject project = workbook.VBProject;

for (int i = project.VBComponents.Count; i >= 1; i--)
{
    VBComponent component = project.VBComponents.Item(i);
    try
    {
        project.VBComponents.Remove(component);
    }
    catch(ArgumentException)
    {
        continue;
    }
}

for (int i = project.VBComponents.Count; i >= 1; i--)
{
    VBComponent component = project.VBComponents.Item(i);
        component.CodeModule.DeleteLines(1, component.CodeModule.CountOfLines);
}

Vergessen Sie nicht, Ihr Arbeitsbuch danach zu speichern

Answer 2

Hast du versucht, das erste n-mal zu löschen:

VBProject-Projekt = Arbeitsmappe.VBProjekt;
int componentsCount = project.VBComponents.Count;

for (int i = 1; i <= componentsCount; i++)
{
    VBComponent-Komponente = project.VBComponents.Item(1);
    project.VBComponents.Remove(component);
}

Du musst dies vielleicht anpassen, aber ich glaube, die VBA-Sammlungen sind 1-basiert (möglicherweise müssen Sie das project.VBComponents.Item(0) stattdessen machen).

BEARBEITEN:

Ich habe diesen Beitrag gefunden, der erklärt, wie man es in VBA macht, aber wahrscheinlich ist es nicht zu schwierig zu übersetzen...