Gruppe
VBE
Problem
Wie kann ich in XL8 über VBA-Code eine Arbeitsmappe anlegen, im Klassenmodul der Arbeitsmappe und eine Workbook_Open-Prozedur schreiben?
StandardModule: basMain
Sub OpenProzedurAnlegen()
Dim wkb As Workbook
Dim sFile As String
Application.ScreenUpdating = False
sFile = Application.Path & "\testwkb.xls"
Set wkb = Workbooks.Add(1)
With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule
.InsertLines 3, "Private Sub Workbook_Open()"
.InsertLines 4, " Msgbox ""Bin jetzt da!"""
.InsertLines 5, " ActiveWorkbook.Close Savechanges:=False"
.InsertLines 6, "End Sub"
End With
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sFile
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
Workbooks.Open sFile
Application.ScreenUpdating = True
End Sub