VBA能否删除自身？

dxnsjialhd

我在Excel文件里做了一个启动时自动执行的Workbook_Open()
我希望它执行完后、自动把自身也删除掉
能否实现这样的效果？

补充内容 (2024-10-17 22:48):
是指删除Workbook_Open()的代码。。。不是删除问题

补充内容 (2024-10-17 22:48):
是指删除Workbook_Open()的代码。。。不是删除文件。

z865593849

micch

自身是指文件还是sub？

ykcbf1100

代码只用一次？奇葩的需求。

lss001

Sub Workbook_Open()
    Dim vbp As Object, vbc As Object
    Dim vName$, hName$, k&, x&, y&
   
    MsgBox "提示：即将自动删除本代码！"
    Set vbp = ActiveWorkbook.VBProject
    Set vbc = vbp.vbcomponents("ThisWorkbook")
    vName = "Workbook_Open"
   
    With vbc.CodeModule
        k = .CountOfDeclarationLines + 1
        While k < .CountOfLines
            hName = .ProcOfLine(k, 0)
            x = .ProcStartLine(hName, 0)
            y = .ProcCountLines(hName, 0)
            k = x + y
            If hName = vName Then
                Call .DeleteLines(x, y)
            End If
        Wend
    End With
   
End Sub

z865593849

慎用

ggmmlol

ykcbf1100 发表于 2024-10-15 15:14
代码只用一次？奇葩的需求。

猜测是不希望把代码放在数据工作簿中，或者说是希望用工作簿的外部加载宏而不是内置宏。

ykcbf1100

ggmmlol 发表于 2024-10-16 16:55
猜测是不希望把代码放在数据工作簿中，或者说是希望用工作簿的外部加载宏而不是内置宏。

可能的，楼主没说，只能猜一下。

dxnsjialhd

micch 发表于 2024-10-15 15:09
自身是指文件还是sub？

删除Workbook_Open()

dxnsjialhd

ykcbf1100 发表于 2024-10-16 16:58
可能的，楼主没说，只能猜一下。

是希望删除Workbook_Open()