使用vba 写入一个 excel 加载项

要创建一个 Excel 加载项，可以使用 VBA 编写以下步骤：

1. 打开 Excel，按下“Alt + F11”打开 VBA 编辑器。
2. 在菜单栏中选择“插入”->“模块”，打开一个新的 VBA 模块。
3. 在模块中编写代码，创建自己的加载项。以下是一个示例代码：

Sub MyAddIn()
    '创建一个新的菜单项
    Dim myMenu As CommandBarPopup
    Set myMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=1, temporary:=True)

    '设置菜单项的名称和图标
    myMenu.Caption = "My Add-In"
    myMenu.FaceId = 5

    '添加一个子菜单项
    Dim mySubMenu As CommandBarButton
    Set mySubMenu = myMenu.Controls.Add(Type:=msoControlButton)

    '设置子菜单项的名称、图标和点击事件
    mySubMenu.Caption = "My Function"
    mySubMenu.FaceId = 6
    mySubMenu.OnAction = "MyFunction"
End Sub

Sub MyFunction()
    '在这里编写你的功能代码
    MsgBox "Hello, World!"
End Sub

4. 保存代码并关闭 VBA 编辑器。
5. 在 Excel 中，选择“文件”->“选项”->“加载项”->“Excel加载项”->“转到”。
6. 点击“浏览”，选择你刚刚保存的 VBA 文件。
7. 点击“确定”并重新启动 Excel，你会发现你的加载项已经被添加到菜单中了。

以上是一个简单的 Excel 加载项示例，你可以根据自己的需求编写定制化的加载项。