ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¥Ñ²Ä7±i¤u§@ªí°_¥t¦s·sÀÉ

[µo°Ý] ¥Ñ²Ä7±i¤u§@ªí°_¥t¦s·sÀÉ

¤j¤j, §Ú¼g¤F¤@¬qCODE, ·Q¥Ñ¬¡­¶³¡¤º²Ä7±i¤u§@ªí¤Î¤§«áªº¤u§@ªí,¥t¦s·sÀÉ, ¦ý¥¢±Ñ, ¥i§_½ç±Ð?
  1. Sub sheetsavefile2()
  2. 'xxxxxxxxxxxxxxxxxxxx
  3. Application.ScreenUpdating = False

  4. Dim a As Integer

  5. For a = 7 To Sheets.Count
  6.      
  7. For Each sh In Worksheets
  8.         
  9.         sh.Copy
  10.                
  11.         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
  12.         Workbooks(sh.Name & ".xlsx").Close True
  13.               
  14.     Next
  15.    
  16.     Next a
  17.    
  18. Application.ScreenUpdating = True
  19. MsgBox ("¤w§¹¦¨¥t¦s­Ó§OÀÉ®×")

  20. End Sub
½Æ»s¥N½X

¦^´_ 1# missbb
  1. Sub ex()
  2. Application.ScreenUpdating = False
  3. For i = 7 To Sheets.Count
  4.    Sheets(i).Copy
  5.   With ActiveWorkbook
  6.      .SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
  7.      .Close
  8.   End With
  9. Next
  10. MsgBox "¤w§¹¦¨­Ó§OÀÉ®×Àx¦s"
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD