Sub 宏1()
Sheets("sheet2").Select
Cells.Select
Selection.Copy
ChDrive "a"
ChDir ("a:/")
Workbooks.Add
ActiveWorkbook.SaveAs ("a:/文件")
ActiveSheet.Paste
End Sub
Sub 宏1()
Sheets("sheet2").Select
Cells.Select
Selection.Copy
ChDrive "a"
ChDir ("a:/")
Workbooks.Add
ActiveWorkbook.SaveAs ("a:/文件")
ActiveSheet.Paste
End Sub