点保存后以表中固定单元格中的文字做为文件名存储（单元格有特殊字符）

亚洲之鹰2009

刚发贴没注意，我保存的单元格有特殊符号，结果用了代码发现错误，再帮忙看下代码如何修改！感谢！

feilanga

1. Sub 保存工作簿()
   
2.     Application.DisplayAlerts = False   '不显示警告框
   
3.     p = ThisWorkbook.Path & ""
   
4.     m = Split(Sheet1.[d2], "*")(0)
   
5.     Set wbk = ActiveWorkbook
   
6.     wbk.SaveCopyAs p & m & ".xlsm"
   
7.     Application.DisplayAlerts = True    '恢复显示警告框
   
8. End Sub

复制代码

ykcbf1100

当前表另存。