GBKEE

¦^´_ 2# espionage

¸Õ¸Õ¬Ý

1. Sub Ex() '¶°«O¤áªÑÅv¤À´²ªí¬d¸ß
   
2.     Dim element As Object, i As Integer, k As Integer, J As Integer, jj As Integer, s As Integer
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.         .Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
   
6.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
7.         With .Document
   
8.             '.ALL("SqlMethod")(0).Checked = True    '¤Ä¿ï:ÃÒ¨é¥N¸¹
   
9.            ' .All("StockNo").Value = "1101"
   
10.             .ALL("SqlMethod")(1).Checked = True     '¤Ä¿ï:ÃÒ¨é¦WºÙ
    
11.             .ALL("StockName").Value = "Áp¹q"
    
12.             '.ALL("SCA_DATE").SELECTEDINDEX = 0     '²Ä1­Ó¤é´Á
    
13.             .ALL("SCA_DATE").SELECTEDINDEX = 2      '²Ä3­Ó¤é´Á
    
14.             .ALL("sub").Click                       '«ö¤U¬d¸ßÁä
    
15.         End With
    
16.         Do While .Busy Or .ReadyState <> 4          'µ¥­Ôºô­¶¤U¸ü§¹²¦
    
17.             DoEvents
    
18.             Application.SendKeys "~", True          '«ö ENTER «öÁä ,¹w¨¾ "ÃÒ¨é¥N¸¹"¦³¿ù»~
    
19.          Loop
    
20.         Set element = .Document.getelementsbytagname("table")  '¨ú±oºô­¶¸ê®Æ°Ï¶ô
    
21.         If element.Length < 7 Then
    
22.             MsgBox "ÃÒ¨é¥N¸¹  ??": Exit Sub
    
23.         End If
    
24.         With Sheets(1)
    
25.             .Cells.Clear
    
26.             k = k + 1
    
27.             For s = 5 To 7                   '¤w§ä¥Xºô­¶ªºtable¤º®e¦b 5-7 ¤¤
    
28.                 For i = 0 To element(s).Rows.Length - 1                 '¸ê®Æªº¦C¦ì
    
29.                     For jj = 0 To element(s).Rows(i).Cells.Length - 1   '¸ê®ÆªºÄæ¦ì
    
30.                         .Cells(k, jj + 1) = element(s).Rows(i).Cells(jj).INNERTEXT
    
31.                     Next
    
32.                     k = k + 1
    
33.                 Next
    
34.             Next
    
35.         End With
    
36.       '  .Quit  'Ãö³¬IE
    
37.     End With
    
38. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# espionage
°Ñ¦Ò³o¨Ç
http://forum.twbts.com/viewthread.php?tid=11817
http://forum.twbts.com/viewthread.php?tid=14561
http://forum.twbts.com/viewthread.php?tid=10515
http://forum.twbts.com/viewthread.php?tid=10392

GBKEE

¦^´_ 6# espionage
­×§ï¤@¤U¬Ý¬Ý

1. Do While .Busy Or .ReadyState <> 4          'µ¥­Ôºô­¶¤U¸ü§¹²¦
   
2.             DoEvents
   
3.             Application.SendKeys "~", True          '«ö ENTER «öÁä ,¹w¨¾ "ÃÒ¨é¥N¸¹"¦³¿ù»~
   
4.         Loop
   
5.         Do
   
6.             Set element = .Document.getelementsbytagname("table")  '¨ú±oºô­¶¸ê®Æ°Ï¶ô
   
7.         Loop Until Not element Is Nothing
   
8.         MsgBox element.Length
   
9.         Stop

½Æ»s¥N½X

¤U¸ü (41.45 KB)

2015-9-14 20:05

GBKEE

¦^´_ 8# espionage
§Ú¥u¦³Ie8¨S³o°ÝÃD, Ie8 ¤¤element ªº Length =9
½Ð¦³¤ñIe8·sª©ªº·|­û,¬Ý¬Ý°ÝÃD¦b­þ¸Ì.

1. Application.VBE.Windows("°Ï°ìÅܼÆ").Visible = True '½Ð¦A¥[¤W
   
2.     Stop  'µ{¦¡°±¤U¨Ó
   
3.     '¦p7#ªº¹Ï¥i¥H¬Ý¬Ý§Aªº "°Ï°ìÅܼÆ"µøµ¡ ¤¤  element ªº Length ¬O¦h¤Ö

½Æ»s¥N½X

©Î¬O

1. Application.Wait #12:00:05 AM#    '¦bµ{¦¡¤¤'µ¥­Ô5¬í
   
2.         Set element = .Document.getelementsbytagname("table")  '¨ú±oºô­¶¸ê®Æ°Ï¶ô
   
3.         Stop  'µ{¦¡°±¤U¨Ó,¬Ý "°Ï°ìÅܼÆ"µøµ¡ ¤¤  element ªº Length ¬O¦h¤Ö
   
4.         With Sheets(1)
   
5.             .Cells.Clear
   
6.         

½Æ»s¥N½X

©Î¬O¥ÎWEB¬d¸ß

1. Sub Ex() '¶°«O¤áªÑÅv¤À´²ªí_WEB¬d¸ß
   
2.     Dim Ar(), a, i As Integer, strDate As String, stkno As String, Qur As String
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
   
5.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
6.         Set a = .Document.ALL.tags("option") '¸ê®Æ¤é´Áªº¤º®e
   
7.         ReDim Ar(a.Length - 1)
   
8.         For i = 0 To a.Length - 1
   
9.             Ar(i) = a(i).innerHTML
   
10.         Next
    
11.         .Quit
    
12.     End With
    
13.     strDate = Ar(0) '¾É¤J·í¤ë¤é´Á
    
14.     Do
    
15.         strDate = InputBox(Join(Ar, vbTab), "¶°«O¤áªÑÅv¤À´²ªí¬d¸ß ¤§ ¦³®Ä¤é´Á", strDate)
    
16.         If strDate = "" Then Exit Sub
    
17.      
    
18.     Loop Until IsNumeric(Application.Match(strDate, Ar, 0))
    
19.     stkno = InputBox("¿é¤JªÑ²¼¥N¸¹", "ªÑ²¼¥N¸¹", 2317)    '
    
20.     If stkno = "" Then Exit Sub
    
21.     Qur = "http://www.tdcc.com.tw/smWeb/QryStock.jsp?SCA_DATE=" & strDate & "&SqlMethod=StockNo&StockNo=" & stkno & "&StockName=&sub=%ACd%B8%DF"
    
22.     With ActiveSheet
    
23.         If .QueryTables.Count = 0 Then
    
24.             .QueryTables.Add "URL;" & Qur, .[A1]
    
25.         Else
    
26.             .QueryTables(1).Connection = "URL;" & Qur
    
27.         End If
    
28.         With .QueryTables(1)
    
29.             .WebSelectionType = xlSpecifiedTables
    
30.             .WebFormatting = xlWebFormattingNone
    
31.             .WebTables = "6,7,8"
    
32.             .WebPreFormattedTextToColumns = True
    
33.             .WebConsecutiveDelimitersAsOne = True
    
34.             .WebSingleBlockTextImport = False
    
35.             .WebDisableDateRecognition = False
    
36.             .WebDisableRedirections = False
    
37.             .Refresh BackgroundQuery:=False
    
38.         End With
    
39.     End With
    
40. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# espionage
ºô­¶¤WªºªÑ²¼¥N¸¹¬d¸ß«á·|¤£·|®ø¥¢¤£¨£.ºÝ¬Ý¦Uºô­¶­ì©l½Xªº¼gªk.

GBKEE

¦^´_ 12# s13983037
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), a As Variant, i As Integer, stkno As String, Qur As String, DateVar As Integer, Sh As Worksheet
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
   
6.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
7.         Set a = .Document.ALL.tags("option") '¸ê®Æ¤é´Áªº¤º®e
   
8.         ReDim Ar(a.Length - 1)
   
9.         For i = 0 To a.Length - 1
   
10.             Ar(i) = a(i).innerHTML
    
11.         Next
    
12.         .Quit
    
13.     End With
    
14.     stkno = InputBox("¿é¤JªÑ²¼¥N¸¹", "ªÑ²¼¥N¸¹", 2313)    '
    
15.     If stkno = "" Then Exit Sub
    
16.     Set Sh = ActiveSheet             '«ü©w¤u§@ªí
    
17.     With Sh
    
18.         For DateVar = 0 To UBound(Ar)
    
19.             Qur = "http://www.tdcc.com.tw/smWeb/QryStock.jsp?SCA_DATE=" & Ar(DateVar) & "&SqlMethod=StockNo&StockNo=" & stkno & "&StockName=&sub=%ACd%B8%DF"
    
20.             .QueryTables.Add "URL;" & Qur, .Cells(1 + (DateVar * 27), "A")
    
21.             '.Cells(1 + (DateVar * 27), "A")  AÄ涡¹j 27¦C
    
22.             With .QueryTables(1)
    
23.                 .WebSelectionType = xlSpecifiedTables
    
24.                 .WebFormatting = xlWebFormattingNone
    
25.                 .WebTables = "6,7,8"
    
26.                 .WebPreFormattedTextToColumns = True
    
27.                 .WebConsecutiveDelimitersAsOne = True
    
28.                 .WebSingleBlockTextImport = False
    
29.                 .WebDisableDateRecognition = False
    
30.                 .WebDisableRedirections = False
    
31.                 .Refresh BackgroundQuery:=False
    
32.                 Sh.Names(.Name).Delete '§R±¼¤u§@ªí¤Wªº¦WºÙ
    
33.                 .Delete                '§R±¼³oQueryTable
    
34.             End With
    
35.         Next
    
36.     End With
    
37. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 16# chang0833

1. .PreserveFormatting = False   'µ{¦¡½X¤W¥[¤W³o¦æ
   
2.                 .Refresh BackgroundQuery:=False
   
3.                 Sh.Names(.Name).Delete '§R±¼¤u§@ªí¤Wªº¦WºÙ

½Æ»s¥N½X

GBKEE

¦^´_ 23# chang0833

§Ú±N¤u§@ªí®æ½u§ï¦¨¬õ¦â,¨S¦³¤U¸ü¨ìºô­¶®æ¦¡ÃC¦â
§A¨S¤W¶ÇÀÉ®×,§Ú²ö®_¦Ï£«


   

¤U¸ü (238.23 KB)

2017-7-29 12:50