ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

VBA¥i¥H´ú¸Õºô¸ô¦³³s½u¶Ü?

VBA¥i¥H´ú¸Õºô¸ô¦³³s½u¶Ü?

DEAR ¦U¤j¤j
¥H¤U¬O§Úªºµ{¦¡½X
ºô¸ô³s½u®É¥i¥H¥¿±`¨Ï¥Î~
¦ý¬Oºô¸ô¨S±µ®É~·|¥X²{¿ù»~~
½Ð°Ý¥i¥H¦b«e­±°µ°»´úºô¸ô¦³µL³s½uªº¤è¦¡¶Ü?
  1. Sub ¤U¸ü()    'ºô­¶¤U¸ü

  2.         Const url As String = "https://www.1keydata.com/tw/sql/sql.html"     ' ¥¿½Tªº

  3.         Cells.Clear

  4.         Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"

  5.         With ie
  6.             .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
  7.             .navigate url
  8.             Do While .readyState <> 4 'µ¥«Ýºô­¶¶}±Ò
  9.             DoEvents
  10.             Loop
  11.             .ExecWB 17, 2 'Select All
  12.             .ExecWB 12, 2 'Copy selection
  13.             Range("A1").Activate
  14.             ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
  15.                 False, NoHTMLFormatting:=True
  16.         End With

  17.         ie.Quit
  18.         MsgBox "¸ê®Æ½Æ»sµ²§ô"    ' Â÷¶}«eÅã¥Ü¤@¤pµøµ¡´£¿ô¡A«ö¥¦«á§Yµ²§ô¡C
  19. End Sub
½Æ»s¥N½X

²ªk
³s1¤U google
¤W¤£¥h´N¥Nªí¨S³s½u

TOP

¦^´_ 1# algoji3ji3

TOP

¦^´_ 3# c_c_lai

¥Ø«e¥i¥H¥¿±`³s½u¨S¿ù~
§Ú¬O·Q¥u»¡¦pªG¤µ¤Ñºô¸ô²§±`®É~
«ç»ò§P©wºô­¶¦pªG¶}¤£°_¨Ó´N¸õ¹Lµ{¦¡©O?

TOP

¦^´_ 4# algoji3ji3
°Ñ¦Ò¤@¤U:
ÁקKµ{¦¡³Q¤£¥i¹w´Áªº¿ù»~©Ò¤¤Â_¡A´NÀ³¸Ó¨Ï¥Î
on error goto label_name
on error goto 0
on error resume next
¨Ó¨¾¤î¡C¥H¤W­z±Ô¨Ï¥Îªº¦³®Ä½d³ò¬° Sub ©Î Function¡A
¨Ò¦p¦b Sub ©Î Function ªº¶}ÀY¥[¤W
«h¦b Sub ©Î Function µ²§ô´N¥\¯à¥¢®Ä¡A
©ÎªÌ¨Ï¥Î on error goto 0 ¨Ó¨ú®ø¥\¯à¡C
­Yµo¥Íªº¿ù»~³£¬O¥i©¿²¤ªº¡A«Øij¨Ï¥Î
on error resume next
¦p¦¹µ{¦¡´N¤£·|¦]¬°¤£¥i¹w´Áªº¿ù»~©Ò¤¤Â_¤F¡C
¦pªG¯àª¾¹D¿ù»~ªº­ì¦]¡A¨C­Ó¿ù»~³£¦³­Ó¥N¸¹
¦b Err ª«¥ó¤¤¡A¥i¥Ñ Err.Number ¨Ó¨ú±o
¦pªG¿ù»~­ì¦]¦³«Ü¦hºØ¡A«h¥i¥H¥Î
on error goto label_name ¨ÓÄdºI¿ù»~¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-6-15 14:28 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE

·PÁª©¥D¤j¤jÀ°¦£~~
µy·L­×§ï¤F¤@¤U~Â_½u®É¥i¥H¸õ¹Lµ{§Ç~¤£¦A·í¾÷¤F~
  1. Sub ¤U¸ü()    'ºô­¶¤U¸ü
  2.        ' Dim ie As Object
  3.         Const url As String = "https://www.1keydata.com/tw/sql/sql.html"     ' ¥¿½Tªº
  4.         Cells.Clear

  5.        ' Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
  6.         With CreateObject("internetexplorer.application")
  7.            .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
  8.            '.Visible = 1
  9.             .navigate url
  10.             Do While .Busy Or .readyState <> 4 'µ¥«Ýºô­¶¶}±Ò
  11.             DoEvents
  12.             Loop
  13.             If .Document.Title = "±z©|¥¼³s½u¨ìºô¸ô" Then
  14.                 '¦pºô¸ô¨S¦³³s½u®É, IEªºªíÀY="Internet Explorer µLªkÅã¥Üºô­¶"                '
  15.                 .Quit
  16.                 MsgBox "±z©|¥¼³s±µ¨ìºô¸ô¡A½ÐÀˬdºô¸ôª¬ºA«á¦A¸Õ¤@¦¸"    ' Â÷¶}«eÅã¥Ü¤@¤pµøµ¡´£¿ô¡A«ö¥¦«á§Yµ²§ô¡C
  17.                 GoTo Re
  18.             End If
  19.             .ExecWB 17, 2 'Select All
  20.             .ExecWB 12, 2 'Copy selection
  21.             Range("A1").Activate
  22.             ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
  23.                 False, NoHTMLFormatting:=True
  24.             .Quit
  25.         MsgBox "¸ê®Æ½Æ»sµ²§ô"    ' Â÷¶}«eÅã¥Ü¤@¤pµøµ¡´£¿ô¡A«ö¥¦«á§Yµ²§ô¡C
  26.         End With
  27. Re:
  28. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD