VBA根据一个工作薄某个sheet创建一个新文件，并在员工作薄复制A-B单元格的数据到新的文件里并保存

以下是根据一个工作薄某个sheet创建一个新文件，并在员工作薄复制A-B单元格的数据到新的文件里并保存的VBA代码：

Sub CreateNewFileAndCopyData()

'获取当前工作薄和工作表
Dim currentWorkbook As Workbook
Set currentWorkbook = ActiveWorkbook
Dim currentWorksheet As Worksheet
Set currentWorksheet = ActiveSheet

'创建新工作簿和工作表
Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add
Dim newWorksheet As Worksheet
Set newWorksheet = newWorkbook.Sheets(1)

'复制数据
currentWorksheet.Range("A:B").Copy
newWorksheet.Range("A1").PasteSpecial Paste:=xlPasteValues

'保存新工作簿
Dim filePath As String
filePath = "C:\NewFile.xlsx" '修改为你想要保存的文件路径
newWorkbook.SaveAs filePath
newWorkbook.Close

'恢复剪贴板
Application.CutCopyMode = False

End Sub