在EXCEL中当关闭文档时自动以某一单元格内的内容命名并自动保存在指定的文件夹中
我已经已经设定D盘内一新文件夹,因为我要不停地新建文档,每当快速完成后,就想快速关闭,不用提示自动以文档内某一单元格内的文字命名并保存在我预先设好的文件夹内.非常感谢您的...
我已经已经设定D盘内一新文件夹,因为我要不停地新建文档,每当快速完成后,就想快速关闭,不用提示自动以文档内某一单元格内的文字命名并保存在我预先设好的文件夹内.非常感谢您的帮助,虽然没有看懂你的操作,
展开
1个回答
展开全部
你说的不是很清楚
指定的文件夹 是不是已经存在?
如果不存在它的父目录是不是存在?
如果已经存在,那么,你是希望保存时才自动以某一单元格内的内容命名,还是只有关闭时才自动以某一单元格内的内容命名?
具体说,你有一个文件叫1.XLS
你打开它,编辑那个代表文件名的单元格,内容是 2
这时,你按了“保存”,不是右上角的关闭,你希望文件保存为1还是2 ?
假定目录已经存在,是"D:\files",文件名在A1 单元格。
使用工作表事件(不是宏!)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChDir "D:\files"
ActiveWorkbook.SaveAs Filename:="D:\files\" & [A1] & ".xls", FileFormat:=xlNormal
ActiveWindow.Close
End Sub
使用以上代码,只有关闭时,才另存。
以下代码,只要保存就自动以某一单元格内的内容命名并自动保存在指定的文件夹中
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ChDir "D:\files"
ActiveWorkbook.SaveAs Filename:="D:\files\" & [A1] & ".xls", FileFormat:=xlNormal
Cancel = True
End Sub
如果目录不存在,请补充提问,或者HI
指定的文件夹 是不是已经存在?
如果不存在它的父目录是不是存在?
如果已经存在,那么,你是希望保存时才自动以某一单元格内的内容命名,还是只有关闭时才自动以某一单元格内的内容命名?
具体说,你有一个文件叫1.XLS
你打开它,编辑那个代表文件名的单元格,内容是 2
这时,你按了“保存”,不是右上角的关闭,你希望文件保存为1还是2 ?
假定目录已经存在,是"D:\files",文件名在A1 单元格。
使用工作表事件(不是宏!)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChDir "D:\files"
ActiveWorkbook.SaveAs Filename:="D:\files\" & [A1] & ".xls", FileFormat:=xlNormal
ActiveWindow.Close
End Sub
使用以上代码,只有关闭时,才另存。
以下代码,只要保存就自动以某一单元格内的内容命名并自动保存在指定的文件夹中
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ChDir "D:\files"
ActiveWorkbook.SaveAs Filename:="D:\files\" & [A1] & ".xls", FileFormat:=xlNormal
Cancel = True
End Sub
如果目录不存在,请补充提问,或者HI
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询