VBA将.xlsm另存为一个.xlam文件失败问题

yjwdjfqb

VBA将.xlsm另存为一个.xlam文件失败问题
启用宏的工作薄.rar (9.96 KB, 下载次数: 10)

2024-3-9 12:04 上传

点击文件名下载附件

1. Sub 另存为加载宏文件()
   
2.     Dim currentWorkbook As Workbook
   
3.     Dim newFileName As String
   
4.    
   
5.     Set currentWorkbook = ThisWorkbook ' 当前活动工作簿
   
6.     newFileName = currentWorkbook.Path & "\加载宏.xlam" ' 新文件名和路径
   
7.    
   
8.     ' 检查文件是否已经存在，如果存在则删除
   
9.     If Dir(newFileName) <> "" Then
   
10.         Kill newFileName
    
11.     End If
    
12.    
    
13.     ' 另存为.xlam文件
    
14.     currentWorkbook.SaveAs Filename:=newFileName, FileFormat:=xlAddIn
    
15.    
    
16.     MsgBox "已经被保存为: " & newFileName
    
17. End Sub
    
18. 
    

复制代码

请老师们帮看看什么问题，谢谢老师们了！！！

yjwdjfqb

老师们，这个是哪儿的问题喃，谢谢了！

MyLaLaLand

我这没有报这个错，xlam文件生成之后再打开会提示这个，另外Kill操作提示无权限，另存之后需要关闭xlam文件打开宏才能再次操作

tanglf188

FileFormat:=xlAddIn 对应xla扩展名
换FileFormat:=xlOpenXMLAddIn 或
FileFormat:=55  试试

ykcbf1100

4楼是正解。。。

yjwdjfqb

非常感谢tanglf188、ykcbf1100 二位老师的帮助！！！