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

[¤w¸Ñ¨M]½Ð±Ð¦p¦ó§P§OÀɮ׬O§_¶}±Ò?

¦^´_ 3# loyyee
  1. Sub nn()
  2. Dim w As Window
  3. For Each w In Windows
  4. If w.Caption = "Book2.xls" Then w.Close 0  '¦pªG§ä¨ìµøµ¡¼ÐÃD´N¤£Àx¦sÃö³¬
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD