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

°»´ú"1.xls"ÀɬO§_§e¥´¶}ª¬ºA?

¦^´_ 2# ¤p«L«È

·s¶}ÀÉ®× BOOK1 ´ú¸Õ¤£¥X¨Ó
ÂÂÀÉ®× S.XLS ´N¥i¥H´ú¸Õ¥X¨Ó
¦n¹³­n¦sÀÉ«á¤~¦³®Ä
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

  1. bookname = "1.xls"

  2. For Each wbs In Workbooks
  3.     If UCase(wbs.Name) = UCase(bookname) Then
  4.         MsgBox bookname & " is opened"
  5.         Exit For
  6.     End If
  7. Next wbs
½Æ»s¥N½X
¥uÀ´³o­Ó¡A§Æ±æ¥i¥HÀ°¨ì§A

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD