动态删除和创建具有相同名称的用户表单

Question

您好我实际编码删除项目的所有用户表单并使用XML文件重新创建它们。 问题是，当我删除用户表单并且我想使用相同的名称重新创建它时，我收到以下错误"Run-time error '75' - Path/File error"。

我用它来删除userforms：

Application.VBE.VBProjects(iMyName).VBComponents.Remove VBComponent:=.Item(x)

iMyName 是项目名称， x 是我的循环中的变量。 就在我使用之后：

Set ihm_f = .Add(vbext_ct_MSForm)
ihm_f.Properties("Name") = "CA"

ihm_f 是我的新用户表单，CA我删除了之前删除的Userform的名称。 有人知道该怎么做吗？

Answer 1

尝试在删除和重新创建之间保存工作簿。 为我工作，但是我很想知道更好的方法。