Question

有谁知道如何使用C＃从Excel工作簿中删除所有 VB代码？此代码不起作用。它删除了第一个（最后一个）VBComponent，但在第二个上升了ArgumentException。

        VBProject project = workbook.VBProject;
        int componentsCount = project.VBComponents.Count;

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

有什么建议吗？：）

Answer 1

我在Sam的帮助下解决了这个问题。我怀疑每个Excel工作簿都有一些不可删除的VBComponents，因此我们可以清除它们的内容，而不是删除它们。它现在有效。谢谢山姆。

            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);
        }

不要忘记以后保存工作簿：）

Answer 2

您是否尝试过删除第一次n次：

    VBProject project = workbook.VBProject;
    int componentsCount = project.VBComponents.Count;

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

你可能需要调整一下，但我认为VBA集合是基于1的（可能需要改为project.VBComponents.Item(0)

编辑：

我发现this post解释了如何在VBA中做到这一点，但可能不太难以翻译......

如何使用C＃从Excel工作表中删除VB代码？

2 个答案: