c_c_lai

¦^´_ 4# white5168
¦^´_ 2# vesperlee
½Ð¸Õ¸Õ¬Ý¡I

1. Private Sub CommandButton1_Click()
   
2.     ' Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zck/zck_6257.asp.htm"
   
3.     Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcx/zcx_6257.asp.htm"     ' ¥¿½Tªº
   
4. 
   
5.     Cells.Clear
   
6. 
   
7.     Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
   
8. 
   
9.     With ie
   
10.         .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
    
11.         .Navigate url
    
12.         Do While .ReadyState <> 4 'µ¥«Ýºô­¶¶}±Ò
    
13.         DoEvents
    
14.         Loop
    
15.         .ExecWB 17, 2 'Select All
    
16.         .ExecWB 12, 2 'Copy selection
    
17.         Range("A1").Activate
    
18.         ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
    
19.             False, NoHTMLFormatting:=True
    
20.     End With
    
21. 
    
22.     Columns("A:B").Delete    ' ±N¶×¤J®É A¡BB ¨âÄæ²¾°£¡A ­ì¥» C:I ªºÄæ¦ì¥þ³¡¥ª¾a¡A ¦¨¬° A:I
    
23.     ie.Quit
    
24.     MsgBox "¸ê®Æ½Æ»sµ²§ô"    ' Â÷¶}«eÅã¥Ü¤@¤pµøµ¡´£¿ô¡A«ö¥¦«á§Yµ²§ô¡C
    
25. End Sub

½Æ»s¥N½X

¤U¸ü (40.23 KB)

2012-5-1 16:42

c_c_lai

¦^´_ 7# arksu
objXmlHttp.Open("GET", url, False) µ¥¼Ò²ÕµLªk¨Ï¥Î¡A
¥i¯à¶·­n¦A¤J¨ä¬Û¹ï DLL¡A¦ý§Ú¹ï VBA ¤£±E¡A
½Ð°Ý¸Ó¦p¦ó³]©w¡H