VBA 将 一个exce表中的sheet2 sheet3 导出新的excel表 并保存

VBA 将 一个exce表中的sheet2 sheet3 导出新的excel表 并保存

SHEETS(3) 是指从左到右第三个表 如果没有工作簿中表的数量少于三个 就会报错追问我是想把第一个表中的sheet2 和sheet3 导出追答你连表和簿都没分清楚 工作簿中才有工作表
你这样吧 sheets("工作表名称").copy
譬如工作表名称是 sheet1
sheets("sheet1").copy
'============================
哎 还是给你写个例子吧
Sub test()
mypath = "D:/数据备份"
Application.ScreenUpdating = False
Sheets(Array("sheet1", "sheet2")).Copy ''吧sheet1 sheet2更改成你的工作表名称
ActiveWorkbook.SaveAs mypath & "\" & Format(Date, "yyyy年m月d日") & ".xls"
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub