prin.huang

1. Private Sub Workbook_Open()
   
2. dim fs as object, Sdir$
   
3. set fs=createobject("Scripting.FileSystemObject")
   
4. with thisworkbook.worksheets("°ò¥»¸ê®Æ")
   
5.         if fs.FileExists(.Range("B14").value) then
   
6.                 SDir = .range("B14").value
   
7.         else if fs.FileExists(.Range("B18").value) then
   
8.                 SDir = .range("B14").value
   
9.         else
   
10.                 msgbox "Open file error"
    
11.         end if
    
12.         Set MyBook = Workbooks.Open Filename:=
    
13. end sub

½Æ»s¥N½X