Workbook.SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)excelvba保存代码Sub保存工作簿()  ThisWorkbook.Save '.save相当于按保存按钮；无参数  ThisWorkbook.SaveAs"另存为工作簿" '把当前工作簿另存为一份新的工作簿  ThisWorkbook.SaveCopy