c_c_lai

¦^´_ 68# GBKEE
¨Æ«á·Q·Q¡Aµoı§Q¥Î "ªÅ¥Õºô­¶" ¨Ó°µ¬°Á{®É¾Ô³õ  (¶i¦æ½Æ»s¤u§@)¡A
³o­Ó Idea ÆZ¦nªº¡A¥ç¤£·|¯}Ãa­ì¥»ºô­¶ªº Table ¤º®e¡C

1.         Set A = .Document.getElementsBytagname("table")
   
2.         For x = 1 To 6
   
3.             With ie
   
4.                 .Document.body.innerHTML = A(x).outerHTML
   
5.                 .ExecWB 17, 2       '  Select All
   
6.                 .ExecWB 12, 2       '  Copy selection
   
7.             End With
   
8.             
   
9.             With shts
   
10.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
    
11.                 .PasteSpecial Format:="HTML"
    
12.             End With
    
13.         Next

½Æ»s¥N½X

c_c_lai

¦^´_ 68# GBKEE
«¢«¢¡I
¤Ó²M²n¤F¤]¤£¦æ¡I (¥u¯à²Ä¤@­Ó "ªÅ¥Õºô­¶")

¤U¸ü (83.91 KB)

2013-11-22 08:17

c_c_lai

¦^´_ 72# GBKEE
©Ò¥H»¡¹À¡A³o´N¬O§Ú¤§©Ò¥H¨ØªA Micrsoft ªº¦a¤è¡I
¤£±o¤£ªA®ð¡C

c_c_lai

¦^´_ 72# GBKEE
¤£«H¨¸¦A¸Õ¤@¦¸ (Marked «á¥ýÀx¦s¤@¦¸¡A¦A¦æ°õ¦æ)¡C
¨Æ«á¥u¥X²{¹L¤@¦¸"Åv­­°ÝÃD"«á¡A¤@¤Á¤SÂk©ó¥­ÀR (¥¿±`¤F)¡C
³o«K¬O§Ú¨ØªA Microsoft ªº½t¬G¡C

c_c_lai

¦^´_ 72# GBKEE

1.     Set ie = CreateObject("InternetExplorer.Application")
   
2.     ie.Navigate "about:Tabs"
   
3.     '  ie.Visible = True
   
4.    
   
5.     Set shts = ActiveSheet    '  Sheets("¤u§@ªí2")
   
6.     shts.Cells.Clear
   
7.    
   
8.     URL = "http://www.cnyes.com/twstock/Institutional/1101.htm"
   
9.     With CreateObject("InternetExplorer.Application")
   
10.         '  .Visible = True     '  ¬O§_Åã¥Ü IE
    
11.         .Navigate URL
    
12.         

½Æ»s¥N½X