求助如何在wps一次保存多个文件

用vba
Sub 保存所有工作簿_无条件()
Dim wb As Workbook
' 遍历所有打开的工作簿
For Each wb In Workbooks
' 无条件保存工作簿
网页链接 ' 可选：给出保存成功的提示
MsgBox 网页链接 & " 已保存。", vbInformation
Next wb
End Sub