GBKEE

¦^´_ 4# algoji3ji3

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub ¤U¸ü()    'ºô­¶¤U¸ü
   
3.        ' Dim ie As Object
   
4.         Const url As String = "https://www.1keydata.com/tw/sql/sql.html"     ' ¥¿½Tªº
   
5.         Cells.Clear
   
6. Re:
   
7.        ' Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
   
8.         With CreateObject("internetexplorer.application")
   
9.            ' .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
   
10.            .Visible = 1
    
11.             .navigate url
    
12.             Do While .busy Or .readyState <> 4 'µ¥«Ýºô­¶¶}±Ò
    
13.             DoEvents
    
14.             Loop
    
15.             If .DOCUMENT.Title = "Internet Explorer µLªkÅã¥Üºô­¶" Then
    
16.                 '¦pºô¸ô¨S¦³³s½u®É, IEªºªíÀY="Internet Explorer µLªkÅã¥Üºô­¶"                '
    
17.                 .Quit
    
18.                 Adsl³s½u
    
19.                 GoTo Re
    
20.             End If
    
21.             .ExecWB 17, 2 'Select All
    
22.             .ExecWB 12, 2 'Copy selection
    
23.             Range("A1").Activate
    
24.             ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
    
25.                 False, NoHTMLFormatting:=True
    
26.             .Quit
    
27.         End With
    
28.         MsgBox "¸ê®Æ½Æ»sµ²§ô"    ' Â÷¶}«eÅã¥Ü¤@¤pµøµ¡´£¿ô¡A«ö¥¦«á§Yµ²§ô¡C
    
29. End Sub

½Æ»s¥N½X

1. Sub Adsl³s½u()
   
2.     Dim fs As Object, xBat As String, xAdsl As String
   
3.      xBat = "d:\Adsl.BAT"
   
4.      xAdsl = "d:\xAdsl.txt"
   
5.     Set fs = CreateObject("Scripting.FileSystemObject")
   
6.     With fs.CreateTextFile(xBat, 1)            '«Ø¥ß¤@­ÓÀÉ®×
   
7.         .Write "rasdial /disconnect" & vbCrLf
   
8.         '********************************************************
   
9.         .Write "rasdial MyAdsl [email protected] 123456789 >> " & xAdsl & vbCrLf
   
10.         '   »Ý¿é¼Æ ¤J¥¿½Tªº Pc³s½u¦WºÙ ³s½u±b¤á ±K½X  ****
    
11.         .Write "rasdial Pc³s½u¦WºÙ ³s½u±b¤á ±K½X >> " & xAdsl & vbCrLf
    
12.         '********************************************************
    
13.         .Write "DEL d:\xAdsl.txt" & vbCrLf
    
14.         .Close
    
15.     End With
    
16.     Shell (xBat)              '
    
17.     Do While Dir(xAdsl) = "": DoEvents: Loop
    
18.     Do While Dir(xAdsl) <> "": DoEvents: Loop
    
19.     Kill xBat
    
20. End Sub

½Æ»s¥N½X