把Excel中多个sheet分别另存为单独的文件

时间：2022-12-23 19:58:10

 

  
 
 
    

  1. Sub sheets2excels() 
    2. 
   
  
  
  2. Application.ScreenUpdating = False 
    3. 
   
  
  
  3. Application.DisplayAlerts = False 
    4. 
   
  
  
  4. Dim XSheet As Worksheet 
    5. 
   
  
  
  5. For Each XSheet In ActiveWorkbook.Sheets 
    6. 
   
  
  
  6. XSheet.CopyActiveWorkbook.SaveAs 
    7. 
   
  
  
  7. Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls" 
    8. 
   
  
  
  8. ActiveWindow.Close 
    9. 
   
  
  
  9. Next 
    10. 
   
  
  
  10. Application.ScreenUpdating = True 
    11. 
   
  
  
  11. End Sub 
    12.

将以上代码复制，打开你的Excel,同时按下Alt+F11(或者开发工具里面的“查看代码”),

在工程窗口（左上）中双击ThisWorkbook,在右边空白处粘贴刚才复制的代码，单击代码中的某一行，再单击工具栏（上面）上的向右三角形，OK.

标签：

相关文章