- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-6-15 14:28 ½s¿è
¦^´_ 4# algoji3ji3
¸Õ¸Õ¬Ý- Option Explicit
- Sub ¤U¸ü() 'ºô¶¤U¸ü
- ' Dim ie As Object
- Const url As String = "https://www.1keydata.com/tw/sql/sql.html" ' ¥¿½Tªº
- Cells.Clear
- Re:
- ' Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
- With CreateObject("internetexplorer.application")
- ' .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
- .Visible = 1
- .navigate url
- Do While .busy Or .readyState <> 4 'µ¥«Ýºô¶¶}±Ò
- DoEvents
- Loop
- If .DOCUMENT.Title = "Internet Explorer µLªkÅã¥Üºô¶" Then
- '¦pºô¸ô¨S¦³³s½u®É, IEªºªíÀY="Internet Explorer µLªkÅã¥Üºô¶" '
- .Quit
- Adsl³s½u
- GoTo Re
- End If
- .ExecWB 17, 2 'Select All
- .ExecWB 12, 2 'Copy selection
- Range("A1").Activate
- ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
- False, NoHTMLFormatting:=True
- .Quit
- End With
- MsgBox "¸ê®Æ½Æ»sµ²§ô" ' Â÷¶}«eÅã¥Ü¤@¤pµøµ¡´£¿ô¡A«ö¥¦«á§Yµ²§ô¡C
- End Sub
½Æ»s¥N½X- Sub Adsl³s½u()
- Dim fs As Object, xBat As String, xAdsl As String
- xBat = "d:\Adsl.BAT"
- xAdsl = "d:\xAdsl.txt"
- Set fs = CreateObject("Scripting.FileSystemObject")
- With fs.CreateTextFile(xBat, 1) '«Ø¥ß¤@ÓÀÉ®×
- .Write "rasdial /disconnect" & vbCrLf
- '********************************************************
- .Write "rasdial MyAdsl [email protected] 123456789 >> " & xAdsl & vbCrLf
- ' »Ý¿é¼Æ ¤J¥¿½Tªº Pc³s½u¦WºÙ ³s½u±b¤á ±K½X ****
- .Write "rasdial Pc³s½u¦WºÙ ³s½u±b¤á ±K½X >> " & xAdsl & vbCrLf
- '********************************************************
- .Write "DEL d:\xAdsl.txt" & vbCrLf
- .Close
- End With
- Shell (xBat) '
- Do While Dir(xAdsl) = "": DoEvents: Loop
- Do While Dir(xAdsl) <> "": DoEvents: Loop
- Kill xBat
- End Sub
½Æ»s¥N½X |
|