ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] EXCEL±qºô¯¸滙¤J«á¡A¦ý«o¬O¤@¤ùªÅ¥Õ

[µo°Ý] EXCEL±qºô¯¸滙¤J«á¡A¦ý«o¬O¤@¤ùªÅ¥Õ

EXCEL­n«ç¼Ë¤~¥i¥H¾É¤J¥H¤Uºô¯¸ªº½ß²v

http://www.macauslot.com/index.html?langid=1&sport=1

滙¤J«á«o¬OªÅ¥Õ(FROM THE WEB¥\¯à)

½Ð°ª¤âÀ°§U

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  pcnhkl
¸Õ¸Õ¬Ý¥ÎVBA µ{¦¡
GBKEE µoªí©ó 2014-12-8 10:31



    ·PÁÂÀ°¦£¡A¥i±¤ÁÙ¬O¤@¤ùªÅ¥Õ¡A¬O§Ú¦³¤°»ò¦a¤è°µ¿ù¶Ü

TOP

¦^´_ 3# pcnhkl

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


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# pcnhkl


    §Ú¸Õ§â¥´¶}ªººô­¶Ãö±¼¦A°õ¦æ´N¥i¶×¤J¤F ^_^

TOP

¦^´_  pcnhkl

µ{¦¡¦æ«áªº¹Ï¥Ü
GBKEE µoªí©ó 2014-12-12 05:22

¨s³º§Ú¬O­þ¸Ì¥X¿ù¡A¯à§_¤W¶Ç¤å¥ó¨Ñ°Ñ¦Ò¡A¦pªG·Q¿ï¾Ü§Oªº½ß²v¥i¥H«ç°µ

1.jpg (164.11 KB)

1.jpg

2.jpg (145.57 KB)

2.jpg

TOP

¦^´_  pcnhkl


    §Ú¸Õ§â¥´¶}ªººô­¶Ãö±¼¦A°õ¦æ´N¥i¶×¤J¤F ^_^
wufonna µoªí©ó 2014-12-12 15:04


¤£¬O«Ü©ú¥Õ¡A§Ú¹J¨ì¤W­±ªº°ÝÃD

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-15 06:22 ½s¿è

¦^´_ 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­þ¸Ì.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  pcnhkl
¯à§_¤W¶Ç¤å¥ó¨Ñ°Ñ¦Ò¡A¦pªG·Q¿ï¾Ü§Oªº½ß²v¥i¥H«ç°µ!!
§AÁÙ¤p¾Ç¥Í,µLªk¤U¸üÀÉ®×,©Ò¥H§ÚºÉ¶q¤£ ...
GBKEE µoªí©ó 2014-12-15 06:21

·Q¤£³q¿ù¦b­þ¸Ì¡A²{¦b还¬O¤@¤ùªÅ¥Õ¡A滙¤J¤£¨ì
«D±`·PÁ§AÀ°¦£
Desktop.rar (7.71 KB)

TOP

¦^´_ 9# pcnhkl
¤ñ2003ª©·sªºExcel
¬¡­¶Ã¯1.xlsx  ¨S¥¨¶°ªº¬¡­¶Ã¯
¬¡­¶Ã¯1.xlsM ¦³¥¨¶°ªº¬¡­¶Ã¯
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD