批量删除模块时如何显示所删模块的全称

laterite · 发表于 2024-6-26 16:27

本帖最后由 laterite 于 2024-6-28 10:22 编辑

请问，在批量删除模块时如何显示所删模块的全称，谢谢

Sub del_Module()
Dim m As Object

'删除模块
For Each m In ThisWorkbook.VBProject.VBComponents
      If m.Type <> 100 Then

'*********想要知道如何才能让m.name显示出模块的文件名全称，即文件名 + 扩展名

         MsgBox "当前模块名称：" & m.name & Chr(13) & Chr(13) & "如何才能让""" & m.name & """显示出模块的文件名全称，即文件名 + 扩展名？"

'*********想要知道如何才能让m.name显示出模块的文件名全称，即文件名 + 扩展名

         'ThisWorkbook.VBProject.VBComponents.Remove m
      End If
Next
End Sub

比如：以下窗体全称为UserForm1.frm

小凡、、、 · 发表于 2024-6-26 17:07

窗体只有单独导出才是.frm格式，在文件里不是，识别不到

laterite · 发表于 2024-6-26 21:16

小凡、、、发表于 2024-6-26 17:07
窗体只有单独导出才是.frm格式，在文件里不是，识别不到

好吧，我再试试看有没有曲线的方式去实现

laterite · 发表于 2024-6-28 10:22

已解决，其实很简单的代码被自己想得太复杂了

		自动登录	找回密码
密码			免费注册

[已解决] 批量删除模块时如何显示所删模块的全称