如何用VBA实现将Excel 关闭后直接另存到表格中B5一个指定的路径,并另存文件名也是表中D5指定的

2024-10-31 16:23:56
推荐回答(1个)
回答(1):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Macro1
End Sub

'*********************************
Sub Macro1()
ChDir [B5]
ActiveWorkbook.SaveAs Filename:= _
[B5] & [D5], FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

1)正手手动建宽判立文件举巧嫌 d:\1234.xls,试试是否有权限的限制。

2) 检查你B5内的路径格式,例如 d:\
检查你E5内的文件名,例如 123(或123.xls) 不能有非法字符