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

[µo°Ý] VBA¹BÂà°±¤£¤F

¦^´_ 1# missbb
§Aªºµ{¦¡¨S°ÝÃD.
¥i¯à¦]¦³30­ÓSHEETSªº¸ê®Æ¤j, ©Ò¥H·|¹BÂà¤F5¤ÀÄÁÁÙ¨S¦³°±¹y,¦ý­@¤ßµ¥­Ô·|§¹¦¨ªº.
¦^´_ 3# c_c_lai
¦^´_ 4# jackyq
¦^´_ 5# mark15jill
  1. For Each xWs In ThisWorkbook.Sheets
  2.     xWs.Copy  '¤u§@ªí½Æ»s  -> ¤@±i¤u§@ªíªº¬¡­¶Ã¯. -> ActiveWorkbook
  3.     Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" '«ü©w¸ô®|¦sÀÉ
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD