[µo°Ý] ¦n©_¡A§R¤£±¼ªºªÅsheetsµ{¦¡µ¡

ui123

¦U¦ì¦³¹J¹L³o­Ó°ÝÃD¶Ü? §Ú§R±¼sheet«á ¡AVBA µ{¦¡µ¡«o¯d¤U¤@°ïªÅsheet¡A¦³¬Ý¨ì¤§«e¤@½g(http://forum.twbts.com/viewthread.php?tid=4369)¡A¦ý¬O§ä¤£¨ì"½s¿è>¨ì>¯S®í>ª«¥ó---->½T©w"
¤£ª¾¹D­n«ç»ò¥Î¥¨¶°§R±¼¡A©Î§Ú­ì¥»§Rsheetªºµ{¦¡¥i¥Hª½±µ§R°£

­ì¥»§Rsheetªºµ{¦¡¦p¤U:

    Dim xWs As Worksheet
    For Each xWs In Application.ActiveWorkbook.Worksheets
        If  xWs.Name <> "Template" And xWs.Name <> "Template journal"  Then
            xWs.Delete
        End If
    Next
javascript:;

javascript:;

ui123

¤£µ¹§Ú§R
javascript:;

GBKEE

¦^´_ 2# ui123

oobird ¶Wª©¤£¬O»¡
¦b±M®×Á`ºÞùØ=microsoft visual  basic ->VBA project ->microsoft excel ª«¥ó
¦b³o¸Ì¬O¦C¥X§Aªº¨C­Ó¤u§@ªí¡A³Ì«á¤@¶µ¬O¬¡­¶Ã¯¡AÂI¶i¥h´N¬O¥L­Ìªº¼Ò²Õ¡A§A­Y¨S¼gµ{¦¡¥L­Ì·íµM¬OªÅªº¡A¦ý¤£¥NªíµL¥Î¡C¤£¯à§R¡C

¤u§@ªí¥i¥H§R,°ÝÃD¬O     For Each xWs In Application.ActiveWorkbook.Worksheets
ªºActiveWorkbook¬O­n§R°£¤u§@ªíªº¬¡­¶Ã¯¶Ü?

ui123

¦^´_ 3# GBKEE

¶W¯Åª©¥DGBKEE¡AÁÂÁ±zªº¦^µª
³o´N¬O§Ú§R¤£±¼ªºVBAªÅsheetÀÉ®×...."¦n¦h­ÓªÅsheet¦bVBA±M®×¸Ì"¡A¦n©Ç¡A§¹¥þ¨S§@¥Î¡A¦ý§Ú¨S¿ìªk§R°£¡A¦Ó¥BÀHªÌ§Ú¶]¥¨¶°¶V¨Ó¶V¦h¡A¦n®£©Æ°Ú~
¦³¿ìªk§R±¼¶Ü? ¥Î¥¨¶°°j°é±±¨îª«¥ó¥h§R¡A¦hÁ«üÂI©ú¿O :dizzy:

javascript:;
javascript:;

ui123

¦^´_ 3# GBKEE


    ¦n®£©Æ........

javascript:;

HUNGCHILIN

ui123 & ´I­ô¦n

³o°ÝÃD§Ú¹J¹L¡A¦ÑÀÉ®×±qExcel2000¡A2002¡A2003¡A2007³£¦³¦s¨ú¹L¡C´«·s¹q¸£´«¦¨Excel2007¡AÁÙ¬O2010®É¡Aª©¥»²§±`³y¦¨¡A¶}±Ò¨Ï¥Î´N¨º­Ó¦ÑÀÉ®×·|²§±`¡AVB½s¿è¾¹¤º¡A·|¤£Â_¬Ý¨ì°²ªºsheet¤£Â_¼W¥[¡A²Ö¥[¡A¤£¤@©w­n¶]VBA¦³®É«ö¦sÀÉ´N¦³¡A¤£®É·|¦Û¤v¼W¥[¡C

³Ì«á¬°¤F¬Ù®É¶¡¡Aª½±µ´«´ß¤F¡A´N¬O§â©Ò¦³sheet,VB±M®×²¾°Ê¨ì·s¬¡­¶Ã¯¡A´N¦n¤F¡A¤£¹L«á¨Ó¡A¦n¹³¤Sµo¥Í¤F£¸¦¸¡A§Ú¤S´«´ß£¸¦¸¡A§âÀÉ®×¥t¦s¦¨xlsm¡A¦A¦s¦^Xls¡A´N¦n¤F¡C

§Æ±æ¦³©ÒÀ°§U

ui123

¦^´_ 6# HUNGCHILIN

HUNGCHILIN¤j¤j¡A·PÁ±z
¤µ¤Ñ¸Õ¤F¤@¤U¡A¥u¯à§âexcel¸Ìªº¥¨¶°³£§R±¼³s¼Ò²Õ¤@°_§R±¼«á¦sÀÉ¡AÀx¦s«á­«¶}´N·|®ø¥¢¡A
¦ü¥GµLªkª½±µ¥Îµ{¦¡§R±¼