GBKEE

¦^´_ 1# chairmen100
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Pchome_°]°È¤ñ²v()
   
3.     Dim A As Object, i As Integer, C As Variant
   
4.     With CreateObject("InternetExplorer.application")
   
5.         .Navigate "http://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html"
   
6.         .Visible = True
   
7.         Do While .Busy Or .ReadyState <> 4
   
8.              DoEvents
   
9.         Loop
   
10.         Set A = .Document.getelementsbytagname("table")(4)
    
11.         With ActiveSheet
    
12.             .Cells.Clear
    
13.             For i = 1 To A.Rows.Length - 1
    
14.                 For C = 0 To A.Rows(i).Cells.Length - 1
    
15.                    .Cells(i, C + 1) = A.Rows(i).Cells(C).innertext
    
16.                 Next
    
17.             Next
    
18.             With .UsedRange
    
19.                 .Columns(.Columns.Count).SpecialCells(xlCellTypeConstants).Offset(, -9).Delete xlShiftToLeft
    
20.             End With
    
21.        End With
    
22.        .Quit
    
23.     End With
    
24.     MsgBox "OK"
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# tajen
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Pchome_»ù¶q¤À¥¬()
   
3.     Dim A As Object, i As Integer, C As Variant, Sh As Worksheet, Stock As String
   
4.     Do
   
5.         Stock = InputBox("¿é¤JªÑ²¼¥N¸¹", "ªÑ²¼¥N¸¹", 2303)
   
6.     Loop Until Len(Stock) >= 4
   
7.     Set Sh = ActiveSheet                   '¥i«ü©w¤u§@ªí
   
8.     With CreateObject("InternetExplorer.application")
   
9.         .Navigate "http://pchome.syspower.com.tw/stock/sto0/ock2/sid" & Stock & ".html"
   
10.         .Visible = True
    
11.         Do While .Busy Or .ReadyState <> 4
    
12.              DoEvents
    
13.         Loop
    
14.         Sh.Cells.Clear
    
15.         Set A = .Document.getelementsbytagname("table")(0)
    
16.         For i = 0 To A.Rows.Length - 1
    
17.             For C = 0 To A.Rows(i).Cells.Length - 1
    
18.                 ActiveSheet.Cells(i + 1, C + 1) = A.Rows(i).Cells(C).innertext
    
19.             Next
    
20.         Next
    
21.         Set A = .Document.getelementbyid("content")
    
22.         For i = 0 To A.Rows.Length - 1
    
23.             For C = 0 To A.Rows(i).Cells.Length - 1
    
24.                 ActiveSheet.Cells(i + 4, C + 1) = A.Rows(i).Cells(C).innertext
    
25.             Next
    
26.         Next
    
27.         Sh.UsedRange.EntireColumn.AutoFit
    
28.        .Quit
    
29.     End With
    
30.     MsgBox "OK"
    
31. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# tajen
±N¥H¤U¤å¦r½Æ»s©ó[¤p§@®a]©Î[°O¨Æ¥»] ¦sÀɬ° "»ù¶q¹Ï.iqy" (.iqy ¬d¸ßÀɪº°ÆÀɦW)«á,½ÐÂùÀ» "»ù¶q¹Ï.iqy".
ps:¨º¤@¦æªÅ¥Õ¬O¥²¶·ªº

1. WEB
   
2. 1
   
3. http://traderoom.cnyes.com/tse/quote2FB.aspx?code=["»ù¶q¹Ï","½Ð¿é¤JªÑ²¼¥N¸¹:¦p 2317"]
   
4. 
   
5. Selection=7
   
6. Formatting=None
   
7. PreFormattedTextToColumns=True
   
8. ConsecutiveDelimitersAsOne=True
   
9. SingleBlockTextImport=False
   
10. DisableDateRecognition=False
    
11. DisableRedirections=False

½Æ»s¥N½X

GBKEE

¦^´_ 13# genes
¤@¼Ë¬O 2003ª© ,¬°¦ó§Aªº¤£¦æ

¤U¸ü (35.67 KB)

2013-10-27 15:27

GBKEE

¦^´_ 15# genes
·j´M iqy

GBKEE

¦^´_ 18# chairmen100

1.   With CreateObject("InternetExplorer.application")
   
2.         .Navigate "http://pchome.syspower.com.tw/stock/sto0/ock2/sid" & Stock & ".html"
   
3.         .Visible = True
   
4.         T = Time
   
5.         Do While .Busy Or .ReadyState <> 4
   
6.              DoEvents
   
7.              If Time - T > #12:00:05 AM# Then End  '¶W¹L5¬í °±¤îµ{§Ç
   
8.         Loop

½Æ»s¥N½X

GBKEE

¦^´_ 20# hsiao13

µ{¦¡½XÁÙ¬OµLªk¶×¤Jhttp://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html

¹ï¤£°_¤F,³oºô­¶§Ú·d¤£©w¥¦.

GBKEE

¦^´_  GBKEE
§Ú·Q°Ý¦p¦ó¯à¦bexcel¤¤¥i¥Hª½±µ¿é¤J¥N½X¡A¦b¤j¤jªºµ{¦¡½X¤¤¥u¦³2330¯à¿é¥X¡I
hsiao13 µoªí©ó 2013/12/26 17:25

­n¦bexcel¤¤ª½±µ¿é¤J¥N½X, cji3cj6xu6 22# ¥i°Ñ¦Ò,¦ý³oºô­¶µLªk¶×¤J¸ê®Æ.

GBKEE

¦^´_ 27# iorikoyzz

³oºô­¶ ¥ÎQueryTablesµL®Ä
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub §ì¨C¤ëÀ禬(weburl As String)
   
3.     Dim i As Integer, E As Object, K, R
   
4.     Sheets("Temp").Activate
   
5.     ActiveSheet.Cells.Clear
   
6.     With CreateObject("InternetExplorer.Application")
   
7.         .Visible = True 'Åã¥Üºô­¶
   
8.         .Navigate weburl
   
9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
10.         Set E = .Document.all.TAGS("TABLE")(0)
    
11.         K = 1
    
12.         For Each R In E.Rows
    
13.             For i = 0 To R.Cells.Length - 1
    
14.                 ActiveSheet.Cells(K, i + 1) = R.Cells(i).INNERTEXT
    
15.             Next
    
16.             K = K + 1
    
17.         Next
    
18.         .Quit        'Ãö³¬ºô­¶
    
19.     End With
    
20. End Sub

½Æ»s¥N½X