GBKEE

¦^´_ 1# smart3135
¤W¶ÇªþÀÉ ¥ÎÂX®i¦W: chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png

1. Option Explicit
   
2. Sub Ex1()
   
3.     Dim IE As Object
   
4.     Dim Rng As Range, UrL As String, R As Range, j
   
5.     Set IE = CreateObject("InternetExplorer.Application")
   
6.     With Sheets(2)
   
7.         Set Rng = .Range("A1", .Range("A65535").End(xlUp))
   
8.     End With
   
9.     For Each R In Rng
   
10.         UrL = "C:\FujiFlexa\Client\Report\Jobdata\job00" & j & R
    
11.         If Dir(UrL) = "" Then 'Àˬd¤£¨ìÀÉ®×
    
12.             If MsgBox("§ä¤£¨ì " & UrL & vbLf & "¬O(Y):Ä~Äò¤U¤@­Óºô­¶" & vbLf & "§_(N):µ²§ôµ{¦¡", vbYesNo) = vbYes Then
    
13.                 GoTo AG1
    
14.             Else
    
15.                 IE.Quit
    
16.                 Exit Sub
    
17.             End If
    
18.         End If
    
19.         With IE
    
20.             .Navigate UrL
    
21.             Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
22.             '**************
    
23.             'µ{¦¡½X********
    
24.             '**************
    
25.         End With
    
26. AG1:
    
27.     Next
    
28.     IE.Quit
    
29. End Sub

½Æ»s¥N½X