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

[µo°Ý] ±N¸ê®Æ½Æ»s¨ì¡ã ¥t¤@­ÓexcelÀɤ¤¡A¦p¦óÃö³¬³æ¤@ªºexcelÀÉ¡A¦Ó¤£¥þ­±Ãö³¬

[µo°Ý] ±N¸ê®Æ½Æ»s¨ì¡ã ¥t¤@­ÓexcelÀɤ¤¡A¦p¦óÃö³¬³æ¤@ªºexcelÀÉ¡A¦Ó¤£¥þ­±Ãö³¬

±N¸ê®Æ½Æ»s¨ì¡ã ¥t¤@­ÓexcelÀɤ¤¡A¦p¦óÃö³¬³æ¤@ªºexcelÀÉ¡A¦Ó¤£¥þ­±Ãö³¬

ÂàÀÉ()
        'ªº¥Øªº¬O­n¡A¦b­ì©lªº 2.xlsÀɤ¤ªº©T©w¸ê®Æ¡A
     ¥i¥H½Æ»s¨ì
     ³øªí1 or ³øªí2......³øªí6
        µ¥¤£¦PªºÀɮסC

½Ð°Ý 1.¦p¦ó¥i¥H Ãö³¬³æ¤@ªºexcelÀÉ¡A¦Ó¤£¥þ­±Ãö³¬¡C(«O¯d 2.xlsÀÉ)
       2.¦ü¥G....¦³¥i¥H (§ïµ½ªº....)

«ô°U ¦U¦ì¤j¤j«üÂI¤@¤U

319.gif
2013-3-19 19:52
319.gif
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# 7777
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Wb As Workbook
  4.     For Each Wb In Workbooks
  5.         If UCase(Wb.Name) <> "2.XLS" Then Wb.Close
  6.     Next
  7. End Sub
½Æ»s¥N½X
2 ­n¦p¦ó§ïµ½?? §A¨S»¡!
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

·PÁÂ GBKEE¤j¤j ¨ó§U

«á¨Ó ı±o¤§«e GBKEE¤j¤jªº
http://forum.twbts.com/viewthread.php?tid=3572
ActiveWorkbook.Close False                  'Ãö±¼§@¥Î¤¤ªº¬¡­¶Ã¯
Workbooks("¬Y¬Y¬Yxls").Close True          'Ãö±¼«ü©wªº¬¡­¶Ã¯
¤£¦sÀÉ Close False ,  ¦sÀÉ Close true


§ó¬° «ê¨ì¦n³B
©Ò¥H ´N§ï¬° ¥H¤U³B²z¤F

    Workbooks("³øªí" & [Q1] & ".xls").Close True   'Ãö±¼«ü©wªº¬¡­¶Ã¯   ¤£¦sÀÉ Close False ,  ¦sÀÉ Close true

¤w¸Ñ¨M¡ã ·PÁÂ!!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD