ªð¦^¦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 : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD