如何把代码做成加载宏

wgh402

我怎么试都没有成功，有什么地方还需要设置吗

wgh402

天堑小舟 发表于 2015-5-18 12:51
师兄，您的问题解决没有，分享一下吧。

我也遇到同样的问题啦。谢谢！

您成功了吗，能分享一下吗？

ggmmlol

wgh402 发表于 2021-2-13 21:04
您成功了吗，能分享一下吗？

一般有3个步骤：
1、把宏文件另存为加载宏格式(xla或xlam格式），
2、在开发工具菜单中，点击“EXCEL加载项",指定该加载宏并确认加载。
3、加载宏的命令和普通的宏命令不一样，它不能通过“开发工具”菜单直接的执行，而是需要添加自定义的菜单栏按钮，使之指向加载宏文件中的宏命令，才能够执行。因此，要学习一下手工添加自定义菜单（功能区）命令的方法，这个很简单，百度一下就能找到教程。

wgh402

ggmmlol 发表于 2021-2-13 21:44
一般有3个步骤：
1、把宏文件另存为加载宏格式(xla或xlam格式），
2、在开发工具菜单中，点击“EXCEL加 ...

谢谢，我试一下

wgh402

wgh402 发表于 2021-2-13 22:05
谢谢，我试一下

老师，我加载宏文件加载了，自定义功能区中命令也加了（我加了一个宏命令），但是没有办法把这个加的宏命令与我的加载宏文件连接起来啊

493861364

wgh402 发表于 2021-2-13 22:19
老师，我加载宏文件加载了，自定义功能区中命令也加了（我加了一个宏命令），但是没有办法把这个加的宏命 ...

按照楼上的3个步骤，然后在自定义功能区把自己的宏从左边添加到右边

如果单击按钮没有执行，建议检查一下自己写的宏命令有没有被执行，执行的效果如何，很有可能是写的这个宏出问题了

wgh402

493861364 发表于 2021-2-14 12:01
按照楼上的3个步骤，然后在自定义功能区把自己的宏从左边添加到右边

如果单击按钮没有执行，建议检查 ...

老师，我按您的步骤，可是我再进入我自定义的功能区，打开自定义的宏，发现里面都是空的，并没有我的加载宏文件啊

wgh402

可以明明在工程窗口中可以看到我的xlam文件啊

wgh402

宏文件是我从网上看到一段代码，我觉得有实用性，所以想测试一下：
Dim WithEvents app As Excel.Application
Sub initmyapp()
Set myapp = Excel.Application
End Sub

Private Sub app_SheetActivate(ByVal Sh As Object)
    If Range("a1") <> "" Then Exit Sub
     Range("a1") = Now()
     mypath = "D:\我的文档"
    ActiveWorkbook.SaveAs Filename:=mypath & "\" & Format(Now, "yy-m-d h m s") & ".xlsx"
End Sub
Private Sub Workbook_Open()
    Call initmyapp
End Sub

493861364

xlam如何嵌入到excel

百度搜索第一条，百度经验

这个讲得详细，按照一步一步操作就行了