GBKEE

¦^´_ 1# pcnhkl
¸Õ¸Õ¬Ý¥ÎVBA µ{¦¡

1. Option Explicit
   
2. Sub Ex_¨¬²y½ß²v()
   
3.     Dim A As Object
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True
   
6.        ' .Navigate "http://www.macauslot.com/soccer/html/odds/list/winoddlist.html?langid=1&sport=1"
   
7.         .Navigate "http://www.macauslot.com/slot/html/fixture/fixture.htm?a=0&K=1&l=1"
   
8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
9.         Set A = .Document.getElementsByTagName("table")
   
10.         Application.Wait Time + #12:00:02 AM#
    
11.         .Document.body.innerHTML = A(5).outerHTML
    
12.         .ExecWB 17, 2       '  Select All
    
13.         .ExecWB 12, 2       '  Copy selection
    
14.         With ActiveSheet
    
15.             .UsedRange.Delete
    
16.             .Range("A1").Select
    
17.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
18.             .Range("A1").Select
    
19.         End With
    
20.         .Quit        'Ãö³¬ºô­¶
    
21.     End With
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# pcnhkl

µ{¦¡¦æ«áªº¹Ï¥Ü

¤U¸ü (109.36 KB)

2014-12-12 05:21

GBKEE

¦^´_ 7# pcnhkl
¯à§_¤W¶Ç¤å¥ó¨Ñ°Ñ¦Ò¡A¦pªG·Q¿ï¾Ü§Oªº½ß²v¥i¥H«ç°µ!!
§AÁÙ¤p¾Ç¥Í,µLªk¤U¸üÀÉ®×,©Ò¥H§ÚºÉ¶q¤£¤W¶ÇÀÉ®×,¨Ï¤p¾Ç¥Í¦³¥æ¬y°Q½×ªº¾÷·|
¤W¶Ç§AªºÀÉ®×,»¡©ú¤èª¾¿ù»~¦b­þ¸Ì.

GBKEE

¦^´_ 9# pcnhkl
¤ñ2003ª©·sªºExcel
¬¡­¶Ã¯1.xlsx  ¨S¥¨¶°ªº¬¡­¶Ã¯
¬¡­¶Ã¯1.xlsM ¦³¥¨¶°ªº¬¡­¶Ã¯

GBKEE

¦^´_ 11# pcnhkl

³]©wSHEET1ªºA1¨Ó滙¤J,³oºô­¶µLªk¥Î¥~³¡¬d¸ß¶×¤J¸ê®Æ
"¡A¥ç¤w¸g«ö¤FCTRL + F11¥´¶}¤F¥¨¶°¡A" ³o¬O·s¼WMacro¤u§@ªí

¥¿½T¬O  Alt + F11 ¨ìVBA µøµ¡ªºThisWorkbook ©ÎModule1 ¤¤°õ¦æ¤@¦¸ Sub Ex_¨¬²y½ß²v()

©Î¬O ¦p¹Ï °õ¦æ¤@¦¸


  

¤U¸ü (60.36 KB)

2015-1-11 17:31