以下是将所有工作表保存为文件的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文件，并以工作表名称命名。