ªð¦^¦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 : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD