VBA根据某个sheet创建新文件

下面是一个可能的VBA代码示例，用于根据某个工作表创建一个新文件：

Sub CreateNewFileFromSheet()

'获取原始工作表
Dim originalSheet As Worksheet
Set originalSheet = ActiveSheet

'创建新工作簿
Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add

'将原始工作表复制到新工作簿
originalSheet.Copy Before:=newWorkbook.Sheets(1)

'删除新工作簿中的其他工作表
Dim sheet As Worksheet
For Each sheet In newWorkbook.Sheets
If sheet.Name <> originalSheet.Name Then
Application.DisplayAlerts = False
sheet.Delete
Application.DisplayAlerts = True
End If
Next sheet

'保存新工作簿
newWorkbook.SaveAs "C:\Users\UserName\Desktop\NewFile.xlsx"

'关闭新工作簿
newWorkbook.Close False

'恢复原始工作表
originalSheet.Activate

End Sub

请注意，这个代码示例假设你已经选择了要复制到新文件的工作表，并且它是活动工作表。如果需要，你可以在代码中进行更改以适应你的具体情况。此外，你需要更改代码中的文件路径和文件名以指定你要保存新文件的位置和名称。