查看: 1168|回复: 1
如何把加载宏文件**.xlam 集成到**.xlsm文件里
阅读权限20
在线时间 小时
& & & & & & & &
我做了一个**.xlsm文件&&在加载宏里 加载了***.xlam文件& & 二个文件都放在桌面上，如何把加载宏文件**.xlam 集成到**.xlsm文件里，也就是只要一个文件就可以了。有什么方法？
阅读权限70
在线时间 小时
你在1文件里新建一个模块 把2文件的代码粘贴到1文件的模块中就ok了 注意2个不要有重名的过程和函数
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 5592|回复: 9
如何把代码做成加载宏
阅读权限70
在线时间 小时
看了好几篇关于加载宏制作的文章，还是感到有困难，比如：如下代码，制作加载宏加载后并不起作用，看文章说，要对new workbook open等等做出声明和动作，不得其法。
Private Sub Worksheet_Activate()
& & If Range(&a1&) && && Then Exit Sub
& &&&Range(&a1&) = Now()
& &&&mypath = ThisWorkbook.Path
& && &ThisWorkbook.SaveAs mypath & &\& & Format(Now, &yy-m-d h m s&) & &.xls&
(5.6 KB, 下载次数: 22)
07:39 上传
点击文件名下载附件
阅读权限95
在线时间 小时
本帖最后由 wj2368 于
08:15 编辑
Private Sub Workbook_Open()
&&Range(&a1&) = Now()
& &&&mypath = ThisWorkbook.Path
& && &ThisWorkbook.SaveAs mypath & &\& & Format(Now, &yy-m-d h m s&) & &.xls&
End Sub
放在ThisWorkbook下
复制代码
阅读权限70
在线时间 小时
wj2368 发表于
哈哈，你错解了。
不是事件的问题，比如，对于本部门的其他新手，我希望他们使用特别的格式文件并且保证格式统一，需要宏，每次新建文件，很多格式就自动统一了，关键就是有一个加载宏来统一这一切，只需要设置一次，xla导入就不行，每次都要操作，或者做个模版也不行，因为人员变动（或多人同机），就需要反复交待，做成加载宏，机器设置好，谁操作都一样。
阅读权限70
在线时间 小时
不难，要用应用程序级事件，请搜论坛。
阅读权限95
在线时间 小时
短信收到，请测试：
(6.34 KB, 下载次数: 198)
09:14 上传
点击文件名下载附件
阅读权限95
在线时间 小时
name004 发表于
哈哈，你错解了。
不是事件的问题，比如，对于本部门的其他新手，我希望他们使用特别的格式文件并且保证 ...
你就直接将代码写到默认模板中就行
阅读权限20
在线时间 小时
关闭代码窗口，回到表格，点击另存为，文件类型选择excel加载宏*.xlam，文件名自取(2007)；保存好依次点左上角的图标——excel选项——加载项——转到，找到刚才的那个加载宏文件，打上勾，确定即可。
阅读权限70
在线时间 小时
zhaogang1960 发表于
短信收到，请测试：
谢谢老大，关键问题解决了。
Dim WithEvents app As Excel.Application
Private Sub Workbook_Open()
& & Set app = Excel.Application
Private Sub app_SheetActivate(ByVal Sh As Object)
& & If Range(&a1&) && && Then Exit Sub
& &&&Range(&a1&) = Now()
& &&&mypath = &D:\我的文档&
& & ActiveWorkbook.SaveAs mypath & &\& & Format(Now, &yy-m-d h m s&) & &.xls&
阅读权限50
在线时间 小时
& & & & & & & &
如何把代码做成加载宏，谢谢
阅读权限70
在线时间 小时
师兄，您的问题解决没有，分享一下吧。
我也遇到同样的问题啦。谢谢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 6250|回复: 2
[已解决]EXCEL加载宏文件（*.xlam）如何打开
本帖最后由 ttry135 于
09:37 编辑
如题，在excel表单中使用了VBA，保存时提示如果保存为当前模式（xls），则加载宏有问题。
于是选择保存了xlam格式的文件，可是现在打开后一个表单都没有，请问如何解决
hwc2ycy发布于
在VBE中，选中工程，Thisworkbook,属性窗口 isAddin改为false
&&&本楼为最佳答案&&&
在VBE中，选中工程，Thisworkbook,属性窗口 isAddin改为false
如果不熟悉，建议不要存为加载宏格式。
虽然可以这么做来隐藏工作表。
|||Excel精英培训
Powered by查看: 1480|回复: 7
如何自动加载自己编写的VBA
阅读权限20
在线时间 小时
各位老师好，本人最近编写了一些VBA sub过程，但只能在本工作簿中显示，如何能够做到：随便打开或新建一个EXCEL的工作簿都能在宏当中找到这些SUB？谢谢了
阅读权限95
在线时间 小时
保存为加载宏（后辍为.xla的文件），在加载宏里浏览找到这个文件，再加载就行了。
阅读权限20
在线时间 小时
老师，您好
（1）是否是保存为xlam文件？
（2）我加载了，但宏里面还是没有这个宏名？我是把宏写在模块里的，是否要改成SHEET1？
阅读权限50
在线时间 小时
<font color="# 发表于
老师，您好
（1）是否是保存为xlam文件？
（2）我加载了，但宏里面还是没有这个宏名？我是把宏写在模块里 ...
是否是保存为xlam文件
阅读权限95
在线时间 小时
<font color="# 发表于
老师，您好
（1）是否是保存为xlam文件？
（2）我加载了，但宏里面还是没有这个宏名？我是把宏写在模块里 ...
没用过2010版，不知道加载宏在2010版里是以什么后辍命名的。在2003版里后辍是.xlla。
加载宏与宏是两会事，加载宏是不会出现在宏表里。在加载宏里加载。此外，要作加载宏还需文件中写上其它代码，如让你的代码连接到菜单如工具栏。这样加载宏加载后你就可以点击相关菜单去实现你所想要做的工作。
阅读权限20
在线时间 小时
老师请看，图片1里面显示有这个加载宏，但图片2里却没有，谢谢了
(177.55 KB, 下载次数: 1)
22:14 上传
(244.24 KB, 下载次数: 0)
22:14 上传
阅读权限50
在线时间 小时
晕&&在这里当然看不到啊
你如果要运行宏的代码的话&&自己在xla 建立一个按钮出来
阅读权限20
在线时间 小时
& & & & & & & &
怎么建啊？谢谢
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 17661|回复: 19
xlsm加载宏的密码破解软件谁有
阅读权限10
在线时间 小时
& & & & & & & &
有理有个xlsm的宏加载文件但是有密码，看不到project工程内容，谁有可以帮忙给个软件破解一下，急需，个人使用的
阅读权限10
在线时间 小时
有的话请发到我的邮箱： 个人学习使用
阅读权限10
在线时间 小时
我也想要一个
阅读权限95
在线时间 小时
论坛不讨论破解问题
把2007加载宏xlam文件修改成工作簿，再另存为2003格式工作簿可以用下面代码：
Sub Macro1()
Dim strFile, wb As Workbook
strFile = Application.GetOpenFilename(FileFilter:=&Micrsofe Excel文件(*.xlam), *.xlam&)
If strFile = False Then Exit Sub
With Workbooks.Open(strFile)
& & .IsAddin = False
& & .SaveAs Filename:=Replace(strFile, &xlam&, &xls&), FileFormat:=xlExcel8
& & .Close
阅读权限50
在线时间 小时
把2007加载宏xlam文件修改成工作簿，再另存为2003格式工作簿可以用下面代码：
Sub Macro1()
Dim strFile, wb As Workbook
strFile = Application.GetOpenFilename(FileFilter:=&Micrsofe Excel文件(*.xlam), *.xlam&)
If strFile = False Then Exit Sub
With Workbooks.Open(strFile)
& & .IsAddin = False
& & .SaveAs Filename:=Replace(strFile, &xlam&, &xls&), FileFormat:=xlExcel8
& & .Close
把2007加载宏xlam文件修改成工作簿&&，再另存为2003格式工作簿可以用下面代码：
过程 macro1()
定义变量 strfile ,wb 为 工作簿
strfile = 应用程序 . 获取打开文件名(filefilter := &micrsofe excel文件(* . xlam) ,* . xlam&)
如果 strfile = 假 那么 退出 过程
工作于 工作簿集合 . 打开文件(strfile)
& &&&. isaddin = 假
& &&&. saveas 文件名 := 替换字符串(strfile ,&xlam& ,&xls&) ,文件格式 := xlexcel8
& &&&. 关闭
结束 工作于
阅读权限10
在线时间 小时
这样转换以后，怎么打开后，看不到vba里面的代码
阅读权限95
在线时间 小时
myd2323 发表于
这样转换以后，怎么打开后，看不到vba里面的代码
转换为2003格式后，就可以使用下面软件了：
[原创]超酷VBA工程加锁解锁器[ldhyob简版]
阅读权限10
在线时间 小时
刚刚试过了，非常的NB！~这个是完全版的！
使用前先另存你的文件为97~2003格式的！
16:29 上传
点击文件名下载附件
86.49 KB, 下载次数: 1993
阅读权限50
在线时间 小时
牛，不服不行。
阅读权限20
在线时间 小时
& & & & & & & &
强大！ 可以加密 也可以破解，强大！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师