excel - 另存为启用宏的工作簿

Question

这个问题在这里已经有了答案:





How do I name a spreadsheet automatically, by referencing two cells?

(1 个回答)


3年前关闭。




VBA 无法保存为 .xlsm 文件。
如果我保存为标准 .xls 文件整个代码有效，我将文件保存在正确的位置。

任务:
从当前书籍中，循环遍历“CategoryList”工作表中的单元格并创建工作簿副本并另存为原始 (.xlsm) 并返回。
ActiveWorkbook.SaveAs Filename:=FPath & MyCat(i) **--> works as .xls
尝试的方法:

ActiveWorkbook.SaveAs Filename:=FPath & MyCat(i) & ".xlsm"   
ActiveWorkbook.SaveAs Filename:=FPath & MyCat(i), FileFormat:=".xlsm

这些结果会出现一个窗口，要求将工作簿另存为书。

我的代码

For i = 1 To 5

  MyCategoty(i) = Sheets("CategoryList").Cells(i, 1).Value

  wb.Sheets("SheetName").Copy  

  .....my activity....

  ActiveWorkbook.SaveAs Filename:=FPath & MyCat(i), FileFormat:=".xlsm"   

  ActiveWorkbook.Close         

  ws.Activate                                                                     

Next i

有人可以帮忙吗。

Answer 1

尝试这样的文件格式:

FileFormat:=xlOpenXMLWorkbook

记住您可能拥有的打开的书籍以及哪一本有代码。