GBKEE

¦^´_ 1# spermbank
µ¹§A¤U¸üªºµ{¦¡½X ,¨ä¾lªº°ÝÃD¥i¹î¬Ý¥»°Q½×°Ïªº¥DÃD,¥[¥H²Õ¦X(¦Û¤v¦h½m²ß vba ·|¶i¨B)

1. Option Explicit
   
2. Sub °ò¥»¥«ªp³ø¾Éºô¯¸()
   
3.     Dim xlVbTable(1 To 2) As Object, R As Integer, C As Integer, i As Variant, Y As Integer
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True
   
6.        .Navigate "http://newmis.twse.com.tw/stock/fibest.jsp?stock=1101"
   
7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
8.         Set xlVbTable(1) = .Document.getElementById("hor-minimalist-a")
   
9.         Set xlVbTable(2) = .Document.getElementById("hor-minimalist-b")
   
10.         On Error Resume Next
    
11.         With ActiveSheet
    
12.             .Cells.Clear
    
13.             Y = 1
    
14.             For i = 1 To 2
    
15.                 For R = 0 To xlVbTable(i).Rows.Length - 1
    
16.                     For C = 0 To xlVbTable(i).Rows(R).all.Length - 1
    
17.                         .Cells(Y, C + 1) = xlVbTable(i).Rows(R).Cells(C).innertext
    
18.                     Next
    
19.                     Y = Y + 1
    
20.                 Next
    
21.             Next
    
22.         End With
    
23.        .Quit
    
24.     End With
    
25. End Sub
    
26.    

½Æ»s¥N½X

GBKEE

¦^´_ 3# spermbank
·|µo¥Í""µLªk¨C¦¸""¸ê®Æ§¹¥þ½Æ»s¦Ü¤À­¶,¶K¤W§Aªºµ{¦¡½X¬Ý¬Ý

GBKEE

¦^´_ 6# spermbank
§Aªºµ{¦¡½X¨S°ÝÃD
¥i¦A»¡©ú  ·|µo¥Í""µLªk¨C¦¸""¸ê®Æ§¹¥þ½Æ»s¦Ü¤À­¶ ¬O¤°»ò±¡§Î??
CreateObject("InternetExplorer.Application") ¬OMicroSoft ªº iexplore.exe
Google Chrome ¤£¾A¥Î

GBKEE

¦^´_ 9# spermbank
VBA ¨S¦³¦w¸Ë IE ªº»¡©ú

1. Option Explicit
   
2. Sub °ò¥»¥«ªp³ø¾Éºô¯¸()
   
3.     Dim xlVbTable(1 To 2) As Object, R As Integer, C As Integer, i As Variant, Y As Integer
   
4.    Sheets("¤u§@ªí3").Select
   
5.    With CreateObject("InternetExplorer.Application")
   
6.        ' .Visible = True
   
7.        .Navigate "http://newmis.twse.com.tw/stock/fibest.jsp?stock=5490"
   
8.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
9.         Application.Wait Now + TimeValue("00:00:02")   'IE¶}±Ò«á¦A¼È°±2¬íµ¥­Ô¤U¸üIE¸ê®Æ
   
10.         Set xlVbTable(1) = .Document.getElementById("hor-minimalist-a")
    
11.         Set xlVbTable(2) = .Document.getElementById("hor-minimalist-b")
    
12.         On Error Resume Next
    
13.         With ActiveSheet
    
14.             .Cells.Clear
    
15.             Y = 1
    
16.             For i = 1 To 2
    
17.                 For R = 0 To xlVbTable(i).Rows.Length - 1
    
18.                     For C = 0 To xlVbTable(i).Rows(R).all.Length - 1
    
19.                         .Cells(Y, C + 1) = xlVbTable(i).Rows(R).Cells(C).innertext
    
20.                     Next
    
21.                     Y = Y + 1
    
22.                 Next
    
23.             Next
    
24.         End With
    
25.        .Quit
    
26.     End With
    
27. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# spermbank
11#  http://www.excelpx.com/thread-149757-1-1.html

13# §A¥i¸Õ¸Õ¬Ý

12#
  ¶}±Ò¬d¸ßÀÉ

1. WEB
   
2. 1
   
3. http://newmis.twse.com.tw/stock/fibest.jsp?stock=1101
   
4. '************************
   
5. Selection=hor-minimalist-a
   
6. '*************************
   
7. Formatting=None
   
8. PreFormattedTextToColumns=True
   
9. ConsecutiveDelimitersAsOne=True
   
10. SingleBlockTextImport=False
    
11. DisableDateRecognition=False
    
12. DisableRedirections=False

½Æ»s¥N½X

1. WEB
   
2. 1
   
3. http://forum.twbts.com/thread-10377-1-1.html
   
4. '*****************
   
5. Selection=23,24           ' ¶·´î 1 , 22,23  ½Ð¬Ý  http://forum.twbts.com/viewthread.php?tid=10389&pid=58549&page=5&extra=pageD1#pid58549
   
6. '******************
   
7. Formatting=None
   
8. PreFormattedTextToColumns=True
   
9. ConsecutiveDelimitersAsOne=True
   
10. SingleBlockTextImport=False
    
11. DisableDateRecognition=False
    
12. DisableRedirections=False

½Æ»s¥N½X

¤U¸ü (23.69 KB)

2013-9-6 17:47

¤U¸ü (24.61 KB)

2013-9-6 17:47

¤U¸ü (59.03 KB)

2013-9-6 17:47