GBKEE

¦^´_ 4# seemee
°ÝÃD1
Myear = Year(xlData) - 1911 '¥Á°ê¦~
Mmon = Format(Month(xlData), "00")
With Q(1)
      .Connection = "URL;http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php?myear=" & Myear & "&mmon=" & Mmon
Åã¥Üºô§}«á¤ñ¹ï¤@¤U:'"URL;http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php?myear=101&mmon=04"

°ÝÃD2
With Q(1)
       .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)
End With
.ResultRange.Offset(2).Copy -> ³o½d³òªº½Æ»s
.ResultRange->¥~³¡¸ê®Æ¨Ó·½¶Ç¦^¸ê®Æªº½d³ò
.Offset(2)     ->¸ê®Æªº½d³ò¤U²¾2¦C
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)  ->Q(1)ª«¥ó¤u§@ªí.EÄ橳³¡.©¹¤W¨ì¦³¸ê®Æªº¦C.¤U²¾1¦C
.Parent                                 ->  Q(1)ª«¥óªº¤÷¼h: ©Ò¦bªº¤u§@ªí   
Rows.Count                           ->¤u§@ªí¦CªºÁ`¼Æ
.Cells(Rows.Count, "E")           ->EÄæ³Ì«á¤@¦C
.End(xlUp)                             ->©¹¤W: xlUp ¨ì¦³¸ê®Æªº¦C
.Offset(1)                             ->¸ê®Æªº½d³ò¤U²¾1¦C
'**********************************************************************
.ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)
¥~³¡¸ê®Æ¨Ó·½¶Ç¦^¸ê®Æªº½d³ò¤U²¾2¦C.½Æ»s ¶K¤W¦ì¸m(ª«¥ó¤u§@ªí.EÄæ³Ì«á¤@¦C.©¹¤W¨ì¦³¸ê®Æªº¦C.¤U²¾1¦C)

GBKEE

¦^´_ 6# seemee
Q1: ±q4#³o¬qµ{¦¡½X¸Ì±oª¾

1. 10.           xlData = DateAdd("m", -i, DateSerial(.[b1] + 1911, .[b2], 1))
   
2. 11.            Myear = Year(xlData) - 1911 '¥Á°ê¦~
   
3. 12.            Mmon = Format(Month(xlData), "00")

½Æ»s¥N½X

Q2 :¨S¦³Destination  ¨º«ç»òª¾¹D ResultRange ­n©ñ­þ¸Ì?
±q4#³o¬qµ{¦¡½X¸Ì±oª¾ ¬O¤w¦s¦b¥~³¡¬d¸ß ,¤£¶·«ü©wDestination¡@

1. 07.        Set Q(1) = .QueryTables(1)
   
2. 
   
3. 08.        Set Q(2) = .QueryTables(2)

½Æ»s¥N½X

¦^´_ 7# seemee
³o¸Ì¦³µª®×

GBKEE

¦^´_ 9# seemee
Q1:  Google·j´M WEB¬d¸ß     
Q2:  ½Ð¸Ô¬Ý ­ÓªÑ¾ú¥v¦æ±¡TEST1 ³o¤@¦æµ{¦¡½Xªº¤º®e
     .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "S").End(xlUp).Offset(1)
    ³o¦ì¸m"S"¬OSÄæ, ½Ð¤ñ¹ï [¥[Åv¾ú¥v¦æ±¡] ¬Û¹ïªºµ{¦¡½X ½Æ»s¨ìªº¦ì¸m¦b­þ¸Ì?

1. With Q(2)  '­ÓªÑ¾ú¥v¦æ±¡TEST1Tµ{¦¡½X
   
2.                 .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/FMTQIK/genpage/Report" & Year(xlData) & Mmon & "/" & Year(xlData) & Mmon & "_F3_1_2.php?STK_NO=&myear=" & Year(xlData) & "&mmon=" & Mmon
   
3.                 Q(2).WebTables = "8"
   
4.                 Q(2).Refresh BackgroundQuery:=False
   
5.                 .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "S").End(xlUp).Offset(1)
   
6.             End With

½Æ»s¥N½X