joey0415

¥i¥H®@¡I

³Ñ¤Uªº¦Û¤v§ï

¦^´_ 1# chingmac

1. Sub ex()
   
2.     With ActiveSheet.QueryTables.Add(Connection:= _
   
3.         "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcr/zcr0_2891.djhtm", Destination:=Range("A1"))
   
4.         .WebFormatting = xlWebFormattingNone
   
5.         .Refresh BackgroundQuery:=False
   
6.         .Delete
   
7.     End With
   
8. End Sub

½Æ»s¥N½X

joey0415

¦^´_ 3# chingmac

§¹¥þ¨S¦³ÃD®@¡I

§Úªá¤£¨ì¤Q¬í´N§¹¦¨¤G¤QÀɤF

²Ä¤@­¶©ñªÑ²¼¥N½X

²Ä¤G­¶°õ¦æ

1. Sub ex()
   
2. 
   
3. Worksheets(2).Activate
   
4. Worksheets(2).Cells.Delete
   
5. For i = 1 To 20
   
6.     sname = Worksheets(1).Cells(i, 1)
   
7. 
   
8.     With ActiveSheet.QueryTables.Add(Connection:= _
   
9.         "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcr/zcr0_" & sname & ".djhtm", Destination:=Range("A1"))
   
10.         .WebFormatting = xlWebFormattingNone
    
11.         .Refresh BackgroundQuery:=False
    
12.         .Delete
    
13.     End With
    
14.     'Worksheets(2).Cells.Delete
    
15.    
    
16. Next
    
17. 
    
18. 
    
19. End Sub

½Æ»s¥N½X