Uso questa routine inserita nel VBA di un documento WORD voglio creare un nuova cartella in EXCEL ed inserire
in essa un modulo VBE;
Sub CREACARTELLAEXCELInserisciModuloVBE()
On Error Resume Next
Dim ExcelApp: Set ExcelApp = CreateObject("Excel.Application") 'Creo l'oggetto Excel
ExcelApp.Visible = True 'lo rendo visibile
Dim ExcelAppWBk As Excel.Application
Set ExcelAppWBk = ExcelApp.Workbooks.Add 'creo un cartella NUOVA - fino qui funziona
Dim ExcelAppMod
ExcelAppWBk.VBProject.VBComponents.Add (1)
Dim ExcelAppCls
ExcelAppWBk.VBProject.VBComponents.Add (2)
ExcelAppCls.Name = "ClassEvents"
ExcelAppCls.CodeModule.AddFromString "Public WithEvents CloseCommandButton As MSForms.CommandButton" & _
vbCrLf & "Private Sub CloseCommandButton_Click()" & _
vbCrLf & "Unload UserForm1" & _
vbCrLf & "End Sub"
End Sub
ma non mi inserisce il modulo VBE nella nuova cartella EXCEL.
Qualche suggerimento?