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

[µo°Ý] ¥t¦s¦¨¦h­Ó¬¡­¶Ã¯

[µo°Ý] ¥t¦s¦¨¦h­Ó¬¡­¶Ã¯

¦U¦ì¤j¤j¦n
®Ñ¥»¸Ìªº½d¨Ò¬O±N©Ò¦³¤u§@ªí³£«Ø¥ß¦¨¤@­Ó¬¡­¶Ã¯¡A¦s©ñ¦ì¸m¤]¬O©T©w(­n¦Û¤v¶i¥hvba°µ§ó§ï)¡A¦ý¤u§@¤W¤£¤Ó¹ê¥Î
¤p©f§Ú¬O·Q±N¯S©w´X­Ó¤u§@ªí¤À§O©î¤À¦¨¤@­Ó¬¡­¶Ã¯¡A¤£¥Î¥þ³¡¡A¨Ã¥B·|¥ý¸õ¥X¸ß°Ý¦s©ñ¦b­þ­Ó¸ê®Æ§¨¤º(¥þ³¡³£¦s¦b¦P¤@­Ó¦ì¸m)

¦p½d¨Ò¡A«e­±¨â­Ó¤u§@ªí¤£¥Î¥t¦s¦¨¬¡­¶Ã¯¡A¦ý«á­±ªº¤u§@ªí³£­n¥t¦s¦¨­Ó§O¬¡­¶Ã¯(³¡ªù¼Æ¶q¤£¤@©w)¡A¤w¦s¦¨·s¬¡­¶Ã¯ªº´N±N¨ä§R°£
¥i¥H½Ð¤j®aÀ°À°¦£¶Ü¡HÁÂÁ¡C

Sub ¤ÀÀÉ()

Application.ScreenUpdating = False
Dim folder As String
folder = ThisWorkbook.Path & "\¦U³¡ªù²M¥U"
If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder
Dim sht As Worksheet
For Each sht In Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = True

End Sub

­Ó¤H²M¥Utest.zip (82.69 KB)

¦^´_ 2# singo1232001

1.¦sÀɤwÂন­Ó§O¤u§@ï®É ­Õ­Y¸ê®Æ¦³»~ ¦Ó¤u§@ªí¤w§R°£ ¹w­p¦p¦ó³B²z? ¬O§_Åܧó­ì¥»ÅÞ¿è
1-a  (Âà¦s,¤£§Rªí) ­nÂà¦s,¦ý­ì©l¸ê®Æ¤£§R
1-b (§ï½Æ»s,¤£§Rªí) ª½±µ¶×¤J¤u§@ïÀɮקó·s¦sÀɧY¥i,¨SÀɮ׮ɷ|·s¼W¤u§@ïÀÉ®×,¦ý¤£§R°£¤u§@ªí¦³¸ê®Æ
1-c  (§ï½Æ»s, §Rªí) ª½±µ¶×¤J¤u§@ïÀɮקó·s¦sÀɧY¥i,¨SÀɮ׮ɷ|·s¼W¤u§@ïÀÉ®×,§R°£¤u§@ªí¦³¸ê®Æ
1-d  (Âà¦s,§Rªí)  ¦s¿ù¨SÃö«Y ¤â°Ê½Æ»s¦^¥h
2.¦P¤W ­Y¦³¤u§@ªí»~Âন¤u§@ï ¹w­p¦p¦ó³B²z?
Á`ªí¤£·|¥t¥~Âà¥X¥h¡A¥u¦³²Ó¤À¥X³¡ªùªº¤u§@ªí¤~·|Âন¤u§@ï
3.¸¤¦³ªº¤u§@ï¬O§_­n§R°£?
¤£¬O©Ò¦³sheet³£­nÂন¤u§@ï¡A¥u¦³²Ó¤À¥X³¡ªùªº¤u§@ªí¤~·|Âন¤u§@ï¡A©Ò¥H·|¯dµÛ
4.­Ó§O¬¡­¶Ã¯ ªºÀɦW³]©w ¬O§_»Ý­n«Ø¥ß¤é´Á +¬y¤ô¸¹? ¥HÁקKÂл\¦³¤u§@ï¦PÀɮתº¥\¯à??
¥i¥H¦³¤é´Á¦ý¤£¥Î+¬y¤ô¸¹
5."¦s©ñ¸ô®|¦ì¸m"¸õ¥X"¸ô®|¹ï¸Ü®Ø" ,¬O§_¹w³]¬°¸ô®|¤U"\¦U³¡ªù²M¥U"   ,¨Ã¥B¥i¥H¿ï¾Ü§ïÅܸê®Æ§¨¸ôªº¥\¯à?
³o­Ó§Ú¬Ý¤£À´­C¡A¬O¤°»ò·N«ä¡H§Ú¬O§Æ±æ¥L¥i¸õ¥X°Ý§Ú­n¦s©ñ¦b­þ
6.©î¤À¤u§@ªí®É ¦h­Ó¤u§@ªí¦s©ñ¤@­Ó¤u§@ï or ¦h­Ó¤u§@ªí¦s©ñ¦h­Ó­Ó§O¤u§@ï ¬O§_¬Ò¦³»Ý¨D »Ý¯à¿ï¾Üªº¥\¯à?
¤@­Ó¤u§@ªí¦s¦¨¤@­Ó¤u§@ï
7.©Ó6 ¬O§_»Ý­n  "¹w³]¤u§@ªíÂà¦s¤u§@諸¦WºÙ" ¨Ã¥B°l¥[¯à·í¦¸²K¥[ "¤u§@ªíÂà¦s¤u§@諸¦WºÙ"  ªº¥\¯à?
¨Ì¤u§@ªí¦WºÙ°µ¦¨¤u§@ï¦WºÙ§Y¥i
8.©Ó7  ¬O§_»Ý­n "¹w³]¤u§@ªí"¤£"Âà¦s¤u§@諸¦WºÙ" ªº¥\¯à?
À³¸Ó¤£»Ý­n
9.©Ó8 ¦h­Ó¤u§@ªí¦X¨Ö¦¨Âà¦s¦¨¤@­Ó¤u§@ï®É ÀɦW¦p¦ó¹w³]?
¥Ø«e¥u¦³­n¤À¥X¥h¨S¦³­n¦X¨Ö¦^¨Ó­C
10.­ì©lÀɮ׬O§_»Ý­n¬ö¿ý¤W¦¸Âà¦s¤é´Á®É¶¡ªº¥\¯à?
À³¸Ó¤£»Ý­n

ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD