求一段EXCEL VB代码,使EXCEL能自动根据单元格内容为文件名,以单元格内容为文件夹保存的代码,

2025-03-15 05:37:52
推荐回答(1个)
回答1:

Sub 另存()
'
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\sure\Desktop\"&Trim(Range("a1").Text) &“\"& Trim(Range("a1").Text) & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub