[已解决]请高手们帮我看看我这个自定义菜单、自动加载宏的代码，错在那儿？

yjwdjfqb · 发表于 2013-11-28 00:22

请高手们帮我看看我这个自定义菜单、自动加载宏的代码，错在那儿？

为什么录制的宏，加载宏，不成功。

思路：
1、先将当前文件，另存为指定路径下（C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel）加载宏文件。
2、然后，用VBA命令，自动加载指定路径下的，加载宏文件。
请大家帮帮忙，谢谢大家！

自定义菜单.rar (20.23 KB, 下载次数: 13)

hwc2ycy · 发表于 2013-11-28 08:35

首先，FileFormat:=xlTemplate，文件类型就错了，这个是模板，帮助里查到的应该是xlAddIn8
另外，关于文件的路径，建议不要用这种常量字符串C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel,无任何通用性，换台电脑，你的代码就要报错。
可以参考下applicaiton的StartupPath，AltStartupPath，LibraryPath三个属性。

hwc2ycy · 发表于 2013-11-28 08:37

第一步保存为xla的解决了，再去解决第2个加载的问题。
加载宏的加载用VBA代码很容易的。

yjwdjfqb · 发表于 2013-11-28 08:37

hwc2ycy 发表于 2013-11-28 08:35
首先，FileFormat:=xlTemplate，文件类型就错了，这个是模板，帮助里查到的应该是xlAddIn8
另外，关于文件 ...

版主你好，可以帮我改改吗，谢谢你了版主！

hwc2ycy · 发表于 2013-11-28 08:49

具体路径，你测试下那个三个属性的值就知道用哪个了。
fileformat自己改一下。

我这WIN7，excel 2010。

hwc2ycy · 发表于 2013-11-28 09:04

With Application
MsgBox .StartupPath & vbNewLine & .AltStartupPath & vbNewLine & .LibraryPath & vbNewLine & .DefaultFilePath
End With

复制代码

你看哪个目录与你的相符。

hwc2ycy · 发表于 2013-11-28 09:05

另外，如果没有一个符合，还可以通过获取系统的环境变量来实现。

yjwdjfqb · 发表于 2013-11-28 15:38

hwc2ycy 发表于 2013-11-28 09:05
另外，如果没有一个符合，还可以通过获取系统的环境变量来实现。

我的路径是

C:\Program Files\Microsoft Office\OFFICE11\Library

为什么还是不成功呀，老师，但用手工加载，能成功。

请老师帮我修正下代码好吧，谢谢老师了！

yjwdjfqb · 发表于 2013-11-28 22:04

请大家帮帮忙，谢谢大家了！

yjwdjfqb · 发表于 2013-11-30 11:47

hwc2ycy 发表于 2013-11-28 09:05
另外，如果没有一个符合，还可以通过获取系统的环境变量来实现。

我的路径是

C:\Program Files\Microsoft Office\OFFICE11\Library

为什么还是不成功呀，老师，但用手工加载，能成功。

请老师帮我修正下代码好吧，谢谢老师了！

		自动登录	找回密码
密码			注册