GBKEE

¦^´_ 3# bioleon69

1. Option Explicit   '¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
   
2. Sub Ex()
   
3.     Dim Ar1(), Ar2(), i As Integer
   
4.     Ar1 = Array("http://mops.twse.com.tw/nas/t21/sii/t21sc03_", "XXX1", "XXX2", "XXX3")
   
5.     Ar2 = Array("TEST1", "TEST2", "TEST3", "TEST4")
   
6.     For i = 0 To UBound(Ar1)
   
7.         TEST Ar1(i), Ar2(i)
   
8.     Next
   
9. End Sub
   
10. Sub TEST(ByVal xUrl As String, ByVal xName As String)
    
11.     With ActiveSheet.QueryTables.Add(Connection:="URL;" & xUrl & ccyear & "_" & ccmonth & "_0.html", Destination:=Range("B" & maxr + 5))
    
12.         .Name = xName
    
13.         .WebFormatting = xlWebFormattingNone
    
14.         .WebTables = "2"
    
15.         .RefreshStyle = xlOverwriteCells
    
16.         .WebPreFormattedTextToColumns = True
    
17.         .WebConsecutiveDelimitersAsOne = True
    
18.         .WebDisableDateRecognition = False
    
19.         .Refresh BackgroundQuery:=False
    
20.     End With
    
21. End Sub

½Æ»s¥N½X