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

¦p¦ó§PÂ_Àɮ׬O§_¤w¸g¶}±Ò

¥t¤@¸Ñ
  1. Option Explicit
  2. Sub Ex()
  3.     Dim w As Workbook
  4.     For Each w In Workbooks
  5.         If w.Name = "Book2.xls" Then MsgBox "Book2.xls ¤w¶}±Ò "
  6.         '©Î¬O¤U¦¡µ{¦¡½X
  7.         'If w.FullName = "d:\test\Book2.xls" Then MsgBox ""d:\test\Book2.xls ¤w¶}±Ò "
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD