ªð¦^¦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¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD