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

[µo°Ý] §å¦¸¤u§@ªíÂàÀÉ¡A¦P®É­«·s©R¦W·í«esheet

[µo°Ý] §å¦¸¤u§@ªíÂàÀÉ¡A¦P®É­«·s©R¦W·í«esheet

¤j®a¦n¡A¦b§å¦¸¤u§@ªí¥t¦s·sÀɪº¦P®É¡A
±N·í«esheet­«·s©R¦W®ÉµLªk­×§ï¦¨¥\¡A½Ð°Ý¬O­þ¸Ì»Ý­n­×¥¿¡HÁÂÁ¤j®a¡C

§å¦¸¤u§@ªíÂàÀÉ.rar (26.59 KB)

Public Sub §å¦¸¤u§@ªíÂàÀÉ()
   
    Application.FileDialog(msoFileDialogFolderPicker).Show
    sPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
   
    Application.ScreenUpdating = False
    For i = 2 To Sheets.Count
        x = Sheets(i).Name
        Sheets(x).Copy
        ActiveWorkbook.SaveAs sPath & "\" & x & ".xlsx"
        
        '­×§ï·í«e¥t¦sworkbookªºsheet¦WºÙ¬°[¥Ò¤½¥q]¡AworkbookÀɮצW¤´¬°­ì¦WºÙ[ABCDE]
        ActiveSheet.Name = "¥Ò¤½¥q"
        ActiveWorkbook.Close False '³]¤¤Â_ÂI¬d¬Ýsheet¦W¦³§ï¡A¦bÀÉ®×Ãö³¬«ásheet¦WºÙ«o¨S§ï¦¨¥\
    Next
    Sheets(1).Select
    Application.ScreenUpdating = True
End Sub

ActiveWorkbook.Close False (False¬O¤£¦sÀɶ}³¬)
§ï¦¨ >> ActiveWorkbook.Close 1

TOP

¦^´_ 2# ­ã´£³¡ªL


    ÁÂÁª©¥D«üÂI¡A§ÚÀ´¤F¡A¤]¦h¤F¤@­Ó¥i¥Hgoogleªº¤è¦V¡Aª÷°Â½¼~

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD