GBKEE

¦^´_ 1# t8899

1. Sub Ex()
   
2.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer, i As Variant, Y As Integer
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.        .Navigate "http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
   
6.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
7.         Set xlVbTable = .document.getelementsbytagname("table")
   
8.         On Error Resume Next
   
9.         With ActiveSheet
   
10.             .Cells.Clear
    
11.             .Cells(1, 1) = "º¦°±ÂꦺªÑ"
    
12.             Y = 2
    
13.             For Each i In Array(20, 24)
    
14.                 If i = 24 Then .Cells(Y, 1) = "¶^°±ÂꦺªÑ": Y = Y + 1
    
15.                 For R = 0 To xlVbTable(i).Rows.Length - 1
    
16.                     For C = 0 To xlVbTable(i).Rows(1).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.             .Rows(13).Delete
    
23.         End With
    
24.        .Quit
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# t8899
°Q½×°Ï¸Ì¦³³\¦hÃþ¦üªº°Q½×,¦Û¤v¸ÕµÛ§R¬Ý¬Ý.

GBKEE

¦^´_ 5# t8899
¦h½m²ß¤@¤UVBA´N·|¶i¨B(¤£·|¨Ã¤£¤@©w­n°Ý¤Hªº)

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer, i As Variant, Y As Integer
   
4.     Dim t As Date
   
5.     t = Time
   
6.     With CreateObject("InternetExplorer.Application")
   
7.        ' .Visible = True
   
8.        .Navigate "http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
   
9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
10.         Set xlVbTable = .document.getelementsbytagname("table")
    
11.         On Error Resume Next
    
12.         With ActiveSheet
    
13.             .Cells = ""
    
14.             .Cells(1, 1) = "º¦°±ÂꦺªÑ"
    
15.             For Each i In Array(20, 24)
    
16.                 If i = 24 Then .Cells(1, "J") = "¶^°±ÂꦺªÑ"
    
17.                 Y = 2
    
18.                 For R = 0 To xlVbTable(i).Rows.Length - 1
    
19.                     For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
    
20.                         .Cells(Y, C + IIf(i = 20, 1, 10)) = xlVbTable(i).Rows(R).Cells(C).innerText
    
21.                         'IIf(i = 20, 1, 10) ->  1:="A", 10:="J"
    
22.                     Next
    
23.                     Y = Y + 1
    
24.                 Next
    
25.                 If i = 20 Then .Rows(13).Delete
    
26.             Next
    
27.         End With
    
28.        .Quit
    
29.     End With
    
30.     MsgBox Application.Text(Time - t, "¶O®É [ss] ¬í")
    
31. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# t8899
.Cells.Clear §ï¦¨->.Cells="" ¸Õ¸Õ¬Ý

GBKEE

¦^´_ 10# t8899
³o»yªk¤Wªº¿ù»~,(¤â»~,9#ªº¤º®e¤w­×¥¿)¥i¸ÕµÛ­×§ï.

GBKEE

¦^´_ 13# t8899
¤j¬ù1 ¤ÀÄÁ§ó·s¤@¦¸,¨S¨º»òºC§a! (©w®É²M°£±N§Apc¤Wªº¼È¦sÀÉ,ÁÙ¦³§R°£ie¤WÂsø°¬ö¿ý,³t«×·|§Ö«Ü¦h)
¸Õ¸Õ 6# §ó·sªºµ{¦¡½X

¤U¸ü (37.77 KB)

2013-9-4 12:56

GBKEE

¦^´_ 15# t8899
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer, i As Variant, Y As Integer
   
4.     Dim t As Date, Msg As Boolean
   
5.     t = Time
   
6.     With CreateObject("InternetExplorer.Application")
   
7.        ' .Visible = True
   
8.        .Navigate "http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
   
9.         Do While (.Busy Or .ReadyState <> 4) And Msg = False
   
10.              DoEvents
    
11.              If Time > t + #12:00:05 AM# Then Msg = True
    
12.         Loop
    
13.          On Error Resume Next
    
14.         If Msg = True Then
    
15.             .Quit
    
16.             MsgBox "³s½uªº®É¶¡¶W¹L5¬í"
    
17.         Else
    
18.             Set xlVbTable = .document.getelementsbytagname("table")
    
19.             With Sheets("Sheet5")
    
20.                 .Cells = ""
    
21.                 .Cells(1, 1) = "º¦°±ÂꦺªÑ"
    
22.                 For Each i In Array(20, 24)
    
23.                     If i = 24 Then .Cells(1, "J") = "¶^°±ÂꦺªÑ"
    
24.                     Y = 2
    
25.                     For R = 0 To xlVbTable(i).Rows.Length - 1
    
26.                         For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
    
27.                             .Cells(Y, C + IIf(i = 20, 1, 10)) = xlVbTable(i).Rows(R).Cells(C).innerText
    
28.                             'IIf(i = 20, 1, 10) ->  1:="A", 10:="J"
    
29.                         Next
    
30.                         Y = Y + 1
    
31.                     Next
    
32.                     If i = 20 Then .Rows(13).Delete   '¶K¤W³sµ²ªºÀx¦s®æ¤´µM¬O#REF!->Àx¦s®æ³Q§R°£±¼
    
33.                 Next
    
34.             End With
    
35.             .Quit
    
36.             Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]" '¶K¤W³sµ²ªºÀx¦s®æ¤´
    
37.             MsgBox Application.Text(Time - t, "¶O®É [ss] ¬í")            
    
38.         End If
    
39.     End With
    
40. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 17# t8899
Rows(13).Delete   ->²Ä13¦C

¤U¸ü (55.58 KB)

2013-9-4 21:02

¸Ô¬Ý  FormulaR1C1, Rows  ªºVBA »¡©ú

GBKEE

¦^´_ 19# t8899
¸Õ¸Õ¬Ý¤£´Nª¾¹D.

GBKEE

¦^´_ 21# t8899

1. Option Explicit
   
2. Private Sub Ex()
   
3.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer, i As Variant, Y As Integer
   
4.     Dim t As Date, Msg As Boolean
   
5.    ' Application.OnTime Time + #12:01:00 AM#, "Ex"   '¤@¤ÀÄÁ«á°õ¦æ Ex µ{¦¡
   
6.     Application.OnTime Time + #12:01:00 AM#, "SHEET5.Ex"   '¤@¤ÀÄÁ«á°õ¦æ Ex µ{¦¡
   
7.     'µ{¦¡¦bª«¥ó¼Ò²Õ¤¤­n«ü©ú¼Ò²Õ¦WºÙ , Private Sub(¨p¥Îµ{¦¡)¦b¤@¯ë¼Ò²Õ¤¤¤]­n«ü©ú ¤@¯ë¼Ò²Õ¦WºÙ
   
8.     Application.DisplayStatusBar = True                     'Åã¥Üª¬ºA¦C
   
9.     t = Time
   
10.     With CreateObject("InternetExplorer.Application")
    
11.       '  .Visible = True
    
12.        .Navigate "http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
    
13.         Do While (.Busy Or .ReadyState <> 4) And Msg = False
    
14.              DoEvents
    
15.              If Time > t + #12:00:05 AM# Then Msg = True
    
16.         Loop
    
17.         If Msg = True Then
    
18.             .Quit
    
19.             'MsgBox "³s½uªº®É¶¡¶W¹L5¬í"
    
20.             Application.StatusBar = "³s½u¥¢±Ñ   ³s½uªº®É¶¡¶W¹L5¬í"
    
21.         Else
    
22.             Set xlVbTable = .document.getelementsbytagname("table")
    
23.              On Error Resume Next
    
24.             With Sheets("Sheet5")
    
25.                 .Cells = ""
    
26.                 .Cells(1, 1) = "º¦°±ÂꦺªÑ"
    
27.                 For Each i In Array(20, 24)
    
28.                     If i = 24 Then .Cells(1, "J") = "¶^°±ÂꦺªÑ"
    
29.                     Y = 2
    
30.                     For R = 0 To xlVbTable(i).Rows.Length - 1
    
31.                         For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
    
32.                             .Cells(Y, C + IIf(i = 20, 1, 10)) = xlVbTable(i).Rows(R).Cells(C).innerText
    
33.                             'IIf(i = 20, 1, 10) ->  1:="A", 10:="J"
    
34.                         Next
    
35.                         Y = Y + 1
    
36.                     Next
    
37.                     If i = 20 Then .Rows(13).Delete   '¶K¤W³sµ²ªºÀx¦s®æ¤´µM¬O#REF!->Àx¦s®æ³Q§R°£±¼
    
38.                 Next
    
39.             End With
    
40.             .Quit
    
41.             Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]" '¶K¤W³sµ²ªºÀx¦s®æ¤´
    
42.             'MsgBox Application.Text(Time - t, "¶O®É [ss] ¬í")
    
43.             Application.StatusBar = "³s½u¦¨¥\   §ó·s®É¶¡ " & Format(Time, "HH:MM:SS")
    
44.         End If
    
45.     End With
    
46. End Sub

½Æ»s¥N½X