用VBA设计一个窗口程序，进入后会自动生成一个excel工作簿，里面还有数个sheet

以下是一个简单的 VBA 代码示例，可以在打开窗口程序时自动生成一个 Excel 工作簿，并在其中创建三个工作表：

Private Sub UserForm_Initialize()

    ' 创建一个新的 Excel 工作簿
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Dim xlBook As Object
    Set xlBook = xlApp.Workbooks.Add
    
    ' 在工作簿中创建三个工作表
    Dim xlSheet As Object
    For i = 1 To 3
        Set xlSheet = xlBook.Sheets.Add
        xlSheet.Name = "Sheet " & i
    Next i

End Sub

请注意，此代码需要在一个窗体程序中使用，因为它使用了 `UserForm_Initialize()` 事件，该事件在窗体初始化时触发。如果您不需要使用窗体程序，可以将该代码复制到 VBA 项目的任何模块中，并手动运行该代码。