如何把代码做成加载宏

name004

看了好几篇关于加载宏制作的文章，还是感到有困难，比如：如下代码，制作加载宏加载后并不起作用，看文章说，要对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"
End Sub

求助.rar (5.6 KB, 下载次数: 54)

2012-2-3 07:39 上传

点击文件名下载附件

wj2368

1. 
   
2. Private Sub Workbook_Open()
   
3.   Range("a1") = Now()
   
4.      mypath = ThisWorkbook.Path
   
5.       ThisWorkbook.SaveAs mypath & "" & Format(Now, "yy-m-d h m s") & ".xls"
   
6. End Sub
   
7. 放在ThisWorkbook下
   

复制代码

name004

wj2368 发表于 2012-2-3 08:14

哈哈，你错解了。
不是事件的问题，比如，对于本部门的其他新手，我希望他们使用特别的格式文件并且保证格式统一，需要宏，每次新建文件，很多格式就自动统一了，关键就是有一个加载宏来统一这一切，只需要设置一次，xla导入就不行，每次都要操作，或者做个模版也不行，因为人员变动（或多人同机），就需要反复交待，做成加载宏，机器设置好，谁操作都一样。

wxhnr

不难，要用应用程序级事件，请搜论坛。

zhaogang1960

短信收到，请测试：
求助.rar (6.34 KB, 下载次数: 411)

2012-2-3 09:14 上传

点击文件名下载附件

wj2368

name004 发表于 2012-2-3 08:53
哈哈，你错解了。
不是事件的问题，比如，对于本部门的其他新手，我希望他们使用特别的格式文件并且保证 ...

你就直接将代码写到默认模板中就行

my0677

关闭代码窗口，回到表格，点击另存为，文件类型选择excel加载宏*.xlam，文件名自取(2007)；保存好依次点左上角的图标——excel选项——加载项——转到，找到刚才的那个加载宏文件，打上勾，确定即可。

name004

zhaogang1960 发表于 2012-2-3 09:14
短信收到，请测试：

谢谢老大，关键问题解决了。
Dim WithEvents app As Excel.Application
Private Sub Workbook_Open()
    Set app = 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 mypath & "\" & Format(Now, "yy-m-d h m s") & ".xls"
End Sub

莫悠悠

如何把代码做成加载宏，谢谢

天堑小舟

师兄，您的问题解决没有，分享一下吧。

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