用VBA给我写个宏，把所有工作表保存为文件

以下是将所有工作表保存为文件的VBA宏代码： ``` Sub SaveAllSheetsAsFile() Dim ws As Worksheet Dim savePath As String '设置保存路径 savePath = "C:\Users\UserName\Documents\" '循环遍历所有工作表 For Each ws In ActiveWorkbook.Worksheets '保存工作表为文件 ws.SaveAs savePath & ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook Next ws End Sub ``` 请将代码中的`savePath`变量替换为您想要保存文件的路径。运行宏后，所有工作表将保存为单独的.xlsx文件，并以工作表名称命名。