Scott090

¦^´_ 6# iamaraymond


    " ..... F1¤Wºô§ä»¡©ú ....  "¡A´N¦]¬°»Ýºô¸ô³sµ²³o»ò¤£¤è«K¡A©ñ±ó¨Ï¥Î¡C

ÁÂÁ¤j¤jªº QueryTable ¼Ò¦¡¡C
¦]¦³¨ä¥Lµ{¦¡½Xªº³sµ²¨Ï¥Î©Ò¥H§Úª½±µ§â¸ê®Æ©ñ¶i°}¦C

iamaraymond

¦^´_ 5# Scott090


  §Úªº¬O«öF1¤§«á·|¤Wºô§ä»¡©ú

¥t¥~§Úªº·Qªk¬O¥ÎQueryTableªº¤è¦¡

1. Sub ªÑ»ù()
   
2. 
   
3. [A10].CurrentRegion.Clear
   
4. 
   
5. stockno = [B3]
   
6. mydate1 = Format([B4], "YYYY/MM/DD")
   
7. mydate2 = Format([B5], "YYYY/MM/DD")
   
8. myurl = "https://www.cnyes.com/twstock/ps_historyprice.aspx?code=" & stockno & "&ctl00$ContentPlaceHolder1$startText=" & mydate1 & "&ctl00$ContentPlaceHolder1$endText=" & mydate2
   
9. 
   
10. With ActiveSheet.QueryTables.Add(Connection:= _
    
11.         "URL;" & myurl _
    
12.         , Destination:=Range("$A$10"))
    
13.         .RowNumbers = False
    
14.         .FillAdjacentFormulas = False
    
15.         .PreserveFormatting = False
    
16.         .RefreshOnFileOpen = False
    
17.         .BackgroundQuery = False
    
18.         .RefreshStyle = xlOverwriteCells
    
19.         .SavePassword = False
    
20.         .SaveData = True
    
21.         .AdjustColumnWidth = False
    
22.         .RefreshPeriod = 0
    
23.         .WebSelectionType = xlSpecifiedTables
    
24.         .WebFormatting = xlWebFormattingNone
    
25.         .WebTables = "1"
    
26.         .WebPreFormattedTextToColumns = True
    
27.         .WebConsecutiveDelimitersAsOne = True
    
28.         .WebSingleBlockTextImport = False
    
29.         .WebDisableDateRecognition = False
    
30.         .WebDisableRedirections = False
    
31.         .Refresh BackgroundQuery:=False
    
32.         .Delete
    
33.     End With
    
34. End Sub

½Æ»s¥N½X

Scott090

¦^´_ 3# iamaraymond

¨Ì¾Ú¤j¤jªº«ü¾É¡A­×§ï¦p¤U¡A½Ð¬Ý¬Ý¬O¤£¬O³o¼Ë¤l¡C
ÁÂÁÂ

1. '±q¹d¦ëºô¨ú±o¾ú¥vªÑ»ù
   
2. '¨Ï¥Î IE ª«¥ó
   
3. 'option explicit
   
4. 'option base 1
   
5. 
   
6. Sub TestCNYES1()
   
7. 
   
8.     Dim Price()
   
9.     Dim Code
   
10.     Code = "2330"
    
11.    
    
12.     Dim IE As Object, URL$
    
13.     Dim date0 As Date, StartDate$, EndDate$, submitBTN$, timer, time0 As Date
    
14.     Dim Table As Object, oDoc As Object, E
    
15.     Dim Re%, Ce%, i%, k%, ColName$
    
16.    
    
17.     ActiveSheet.Cells.Clear
    
18.    
    
19.     '³]©w¸ê®Æ¶}©l¤Îµ²§ô¤é´Á
    
20.     StartDate = Format(DateAdd("m", -2, Date), "yyyy/mm/dd")    '¨ú2­Ó¤ëªº¸ê®Æ¡A¬ù40µ§
    
21.     EndDate = Format(Date, "yyyy/mm/dd")
    
22.    
    
23.     StartDate = "&ctl00$ContentPlaceHolder1$startText=" & StartDate           '¶}©l¤é´Á input name
    
24.     EndDate = "&ctl00$ContentPlaceHolder1$endText=" & EndDate                  ' µ²§ô¤é´Á input name
    
25. '    submitBTN = "&ctl00$ContentPlaceHolder1$submitBut=¬d¸ß"
    
26.    
    
27.     k = 0
    
28. Again:
    
29.     Set IE = CreateObject("InternetExplorer.Application")
    
30.    
    
31.     With IE
    
32.             URL = "https://www.cnyes.com/twstock/ps_historyprice.aspx?code=" & Code & StartDate & EndDate
    
33.             .Visible = False                '¤£Åã¥Ü IE
    
34.             .navigate URL
    
35.             
    
36.             time0 = Now() + #12:00:05 AM#   '³]©w®É¶¡±±¨î­p®É5¬íÄÁ
    
37.             Do
    
38.                 DoEvents
    
39.             Loop While (.Busy Or .readystate <> 4) And Time < time0
    
40.            
    
41.            '­p®É®É¶¡¨ì¤Fºô­¶¥¼·Ç³Æ¦n¡AÃö³¬­«±Ò
    
42.             If .readystate <> 4 Then
    
43.                 .Quit
    
44.                 k = k + 1
    
45.                 If k <= 2 Then GoTo Again
    
46.                 GoTo GiveUp                   '¶}±Ò3¦¸³£¥¢±Ñ´N©ñ±ó
    
47.             End If
    
48.                         
    
49. '            Set E = .Document.getElementsByTagName("TABLE")(0)
    
50.             Set E = .Document.all.tags("TABLE")(0)          '³o­Óºô­¶ªº¸ê®Æªí¦³ÅÜ°Ê
    
51.             If E Is Nothing Then IE.Quit: GoTo Again
    
52.             
    
53.             i = E.Rows.Length - 1: k = E.Rows(1).Cells.Length - 1
    
54.             ReDim Price(0 To i, 0 To k)
    
55.             
    
56.             For Re = 0 To i         '¨ú19¤Ñªº¾ú¥v¬ö¿ý
    
57.                 For Ce = 0 To k
    
58.                     Price(Re, Ce) = E.Rows(Re).Cells(Ce).innertext   '¤é´Á¡B¶}¡B°ª¡B§C¡B¦¬¡Bº¦¶^  º¦% ¦¨¥æ¶q  ¦¨¥æª÷ÃB
    
59.                 Next
    
60.             Next
    
61.             
    
62.             ActiveSheet.Cells(1, "A").Resize(i + 1, k + 1).Value = Price
    
63. GiveUp:
    
64.         
    
65.         .Quit
    
66.     End With
    
67. 
    
68. End Sub

½Æ»s¥N½X

Scott090

¦^´_ 3# iamaraymond


    ÁÂÁ¡A§Ú±N¸Õ¸Õ¬Ý¡C
¥t¡A½Ð±Ð Excel 2013 ¤Î¥¦ªº VBA »¡©úªº¬d¸ß ¬O¡G
1.³s½u³z¹Lºô¸ô¡A
ÁÙ¬O
2. Â÷½u¡A¤w¨ã³Æ®r¤J(Built in)»¡©ú¡A¥u­n«ö F1 ´N¥i¥H

iamaraymond

¦^´_ 2# Scott090

À°¤j¤j¸É¥R¤@¤U¡A
1.44~51¦æ¨ºÃäÀ³¸Ó¥i¥H¥Îdocument.all(name)¨ú¥N·|¤ñ¸û²³æ
2.¥i¥H³z¹L­×§ï
https://www.cnyes.com/twstock/ps_historyprice.aspx?code=2330&ctl00$ContentPlaceHolder1$startText=2001/10/05&ctl00$ContentPlaceHolder1$endText=2018/01/09
µM«á¥Î¥~³¡¶×¤J¡A·|¤ñ¸û§Ö¡A¤]¤ñ¸û²³æ
­Ó¤H¤p¤p·Qªk¡A°Ñ¦Ò¤@¤U

Scott090

¦^´_ 1# Scott090

°Ñ¦Ò¥H¤Uµ{¦¡½X¥i¥H³]©w¤é´Á°Ï¶¡
Ä~Äò´M¨D§ó¨Îªº¤èªk

1. '±q¹d¦ëºô¨ú±o¾ú¥vªÑ»ù
   
2. '¨Ï¥Î IE ª«¥ó
   
3. 'option explicit
   
4. 'option base 1
   
5. 
   
6. Sub TestCNYES()
   
7. 
   
8.     Dim Price(0 To 20, 0 To 9)
   
9.     Dim Code
   
10.     Code = "2330"
    
11.    
    
12.     Dim IE As Object, URL$
    
13.     Dim date0 As Date, StartDate$, EndDate$, timer, time0 As Date
    
14.     Dim Table As Object, oDoc As Object, E
    
15.     Dim Re%, Ce%, i%, k%, ColName$
    
16.    
    
17.     ActiveSheet.Cells.Clear
    
18.    
    
19.     '³]©w¸ê®Æ¶}©l¤Îµ²§ô¤é´Á
    
20.     StartDate = Format(DateAdd("m", -2, Date), "yyyy/mm/dd")   '¨ú2­Ó¤ëªº¸ê®Æ¡A¬ù40µ§
    
21.     EndDate = Format(Date, "yyyy/mm/dd")
    
22.    
    
23.     k = 0
    
24. Again:
    
25.     Set IE = CreateObject("InternetExplorer.Application")
    
26.     With IE
    
27.             URL = "http://www.cnyes.com/twstock/ps_historyprice/" & Code & ".htm"
    
28.             .Visible = False                '¤£Åã¥Ü IE
    
29.             .navigate URL
    
30.             
    
31.             time0 = Now() + #12:00:05 AM#   '³]©w®É¶¡±±¨î­p®É5¬íÄÁ
    
32.             Do
    
33.                 DoEvents
    
34.             Loop While (.Busy Or .readystate <> 4) And Time < time0
    
35.            
    
36.            'ºô­¶¥¼·Ç³Æ¦n¡AÃö³¬­«±Ò
    
37.             If .readystate <> 4 Then
    
38.                 .Quit
    
39.                 k = k + 1
    
40.                 If k <= 2 Then GoTo Again
    
41.                 GoTo GiveUp                   '¶}±Ò3¦¸³£¥¢±Ñ´N©ñ±ó
    
42.             End If
    
43.             
    
44.             Set oDoc = .Document.getElementsByTagName("input")
    
45.             With oDoc
    
46.                  .Item("ctl00$ContentPlaceHolder1$startText").Value = StartDate ' ¶}©l¤é´Á input name
    
47.                  .Item("ctl00$ContentPlaceHolder1$endText").Value = EndDate     ' µ²§ô¤é´Á input name
    
48.             
    
49.                  Set E = .Item("ctl00$ContentPlaceHolder1$submitBut")           '¬d¸ßÁä¦WºÙ
    
50.                     E.Click                                                     '«ö¬d¸ßÁä
    
51.             End With
    
52.             
    
53.             k = 0
    
54.             time0 = Now() + #12:00:05 AM#   '³]©w®É¶¡±±¨î­p®É5¬íÄÁ
    
55.             Do
    
56.                 DoEvents
    
57.             Loop While (.Busy Or .readystate <> 4) And Now() < time0
    
58.             
    
59.             Application.Wait Time + #12:00:03 AM#
    
60.             
    
61.             Set E = .Document.getElementsByTagName("TABLE")(1)
    
62.             If E Is Nothing Then IE.Quit: GoTo Again
    
63.             
    
64.             For Re = 0 To 19          '¨ú19¤Ñªº¾ú¥v¬ö¿ý
    
65.                 For Ce = 0 To 8
    
66.                     Price(Re, Ce) = E.Rows(Re).Cells(Ce).innertext   '¤é´Á¡B¶}¡B°ª¡B§C¡B¦¬¡Bº¦¶^  º¦% ¦¨¥æ¶q  ¦¨¥æª÷ÃB
    
67.                 Next
    
68.             Next
    
69.             
    
70.             ActiveSheet.Cells(1, "A").Resize(20, 9).Value = Price
    
71. GiveUp:
    
72.         
    
73.         .Quit
    
74.     End With
    
75. 
    
76. End Sub

½Æ»s¥N½X