比如A.xlsx写个VBA，在F：\脚本 路径新建一个新建.XLSX文件，并将A文件中的sheet2全选并将数据粘贴至新建.XLSX的sheet1里，保存新建，并关闭新建。A.XLSX文件保持打开状态。
Sub t()
Dim wb As Workbook
ThisWorkbook.Worksheets("Sheet2").Copy
Set wb = ActiveWorkbook
With wb
wb.SaveAs "F:\脚本\新文件" & Format(Now, "yyyymmddss") & ".xlsx", xlOpenXMLWorkbook
wb.Close True
End With
End Sub
Dim wb As Workbook
ThisWorkbook.Worksheets("Sheet2").Copy
Set wb = ActiveWorkbook
With wb
wb.SaveAs "F:\脚本\新文件" & Format(Now, "yyyymmddss") & ".xlsx", xlOpenXMLWorkbook
wb.Close True
End With
End Sub
温馨提示：答案为网友推荐，仅供参考
