用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文件，并以工作表名称命名。
免责声明：
以上内容除特别注明外均来源于网友提问，创作工场回答，未经许可，严谨转载。