GBKEE

¦^´_ 23# t8899
µL¨¥

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-7 06:44

½Ð°Ý¦b³oºØª¬ºA¤U¡Aºô¯¸¼Æ¾Ú§ó·s¡A¤u§@ªí¤]§Y®É§ó·s??¬O§_·|¤Ó®øÏäexcel¸ê·½ (¹«¼Ð¤@ª½¥X²{º|¤æª¬)

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

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-3 07:59

¦³µL¿ìªk¤@ª½³B©ó³s½uª¬ºA?(¹³DDE)

GBKEE

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

t8899

¦^´_  t8899
Rows(13).Delete   ->²Ä13¦C¸Ô¬Ý  FormulaR1C1, Rows  ªºVBA »¡©ú
GBKEE µoªí©ó 2013-9-4 21:06

ÁÂÁÂ!
¥t¥~½Ð±Ð¤@¤U,¤U­±«Å§i¦p¦ó§ï¬°¤½¥Î?
Private Declare Function MsgBoxTest Lib "user32" Alias "MessageBoxTimeoutA" ( _
¬O±N private §ï¬° public ´N¥i¥H¤F¶Ü?

GBKEE

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

¤U¸ü (55.58 KB)

2013-9-4 21:02

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

t8899

¦^´_  t8899
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2013-9-4 16:55

¶â, §¹¬üµL¯Ê.
©êºp¤p§Ìvb ­èªì¾Ç

  If i = 20 Then .Rows(13).Delete   

  ³o¬Odelete sheet5ªº¨º¤@­Ó?

  Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]"  

RC[-6] ===>¬O«ü??

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

t8899

»yªk¿ù»~?
t8899 µoªí©ó 2013-9-4 08:54

¤j¬ù1 ¤ÀÄÁ§ó·s¤@¦¸,¨S¨º»òºC§a  

§Ú«üªº¤@¤ÀÄÁ¬O§Ú³]©w¨C1¤ÀÄÁ¶]¤@¦¸¥¨¶°,(¤£¬Oµ{¦¡¶]¤@¦¸­n1¤ÀÄÁ)
µ¥©ó¶]¤F60¦¸¡Aexcel ¤¤³~·í¤F¨â¦¸
¬O§_³s½uªºÃö¨t?¦pªG¬O¥i§_§ï¦¨5¬í³s¤£¦¨´N¸õ¥X?

.Cells.Clear §ï¦¨->.Cells="" ¸Õ¸Õ¬Ý  

¤»¼Óµ{¦¡½X­«·s¶]¤F¨â¦¸¡A¶K¤W³sµ²ªºÀx¦s®æ¤´µM¬O#REF!
    ªþÀÉ TEST.rar (11.49 KB)

¤U¸ü¦¸¼Æ: 12

2013-9-4 14:45