將代碼添加到Workbook_Open（）

Question

我正在嘗試編寫一段代碼，將以下代碼放入已創建的新Excel工作簿中。 生成的代碼應為

Private Sub Workbook_Open()
  ThisWorkbook.RefreshAll
End Sub

目前，我正在使用以下代碼，並且新工作簿是活動工作簿。

Public Sub AddNewModule()

Dim proj As VBIDE.VBProject
Dim comp As VBIDE.VBComponent

Set proj = ActiveWorkbook.VBProject
Set comp = proj.VBComponents.Add(vbext_ct_StdModule)
comp.Name = "MyNewModule"

Set codeMod = comp.CodeModule

With codeMod
  lineNum = .CountOfLines + 1
  .InsertLines lineNum, "Private Sub Workbook_Open()
  lineNum = lineNum + 1
  .InsertLines lineNum, "ThisWorkbook.RefreshAll"
  lineNum = lineNum + 1
  .InsertLines lineNum, "End Sub"
End With

End Sub

有誰知道我要去哪里錯了或者有什么可以幫助我的嗎？

Answer 1

這是您要嘗試的（簡短又甜蜜）嗎？

Option Explicit

Sub Sample()
    With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.CodeName).CodeModule
        .InsertLines Line:=.CreateEventProc("Open", "Workbook") + 1, _
        String:=vbCrLf & "ThisWorkbook.RefreshAll"
    End With
End Sub