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

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

  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

¦^´_ 4# Hsieh


   
¹ï¤£°_¡A­J¶Ã¦^µª¿ùªºµª®×¡A¤Q¤À©êºp:dizzy:

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD