GBKEE

¦^´_ 2# cudui

1. On Error Resume Next
   
2.     With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_AL_" & myear & mmon & nowday & ".html" _
   
3.         , Destination:=ActiveCell.Offset(2, 0))
   
4.         .WebSelectionType = xlEntirePage
   
5.         .WebFormatting = xlWebFormattingNone
   
6.         .WebPreFormattedTextToColumns = True
   
7.         .WebConsecutiveDelimitersAsOne = True
   
8.         .WebSingleBlockTextImport = False
   
9.         .WebDisableDateRecognition = False
   
10.         .WebDisableRedirections = False
    
11.         .Refresh BackgroundQuery:=False
    
12.         If Err.Number <> 0 Then Err.Clear: MsgBox "¸ê®Æ¬d¸ß¥¢±Ñ"
    
13.     End With

½Æ»s¥N½X

GBKEE

¦^´_ 9# cudui
³o¥i¦Û¤v¸Õ¸Õ¬Ý ¤£¦æ¦A»¡

GBKEE

¦^´_ 12# cudui
[¦b¥X°ÝÃDªº¨º¤@¦C¤§«e,¼W¥[: "On Error Resume Next"]
¦b¨ºµ{§Ç¤¤ ¹w­p·|µo¥Í¿ù»~ªºµ{¦¡½X «e£¾ªº¥ô¤@¦C ¼W¥[: "On Error Resume Next" ¬Ò¥i¥H

¦^´_ 14# cudui
http://www.otc.org.tw/ch/stock/a ... OTE_AL_1010402.html
1010402.html ³oºô­¶ ªº¤ë¥÷ ¤é´Á³£¬O¨â¦ì¼Æ
Connection:="URL;http://www.otc.org.tw/ch/stock/a ... s_no1430/SQUOTE_AL_" & myear & mmon & nowday & ".html
mmon & nowday  ¶·¥ý³B¸Ì¬°¨â¦ì¼Æ

1. mmon = Format(mmon, "00")
   
2. nowday = Format(nowday, "00")

½Æ»s¥N½X

GBKEE

¦^´_ 16# cudui
À³¬O³oºô­¶ªº°ÝÃD À°§A¬Ý¤F¤@¤U 3/1 ,3/2, 4/10  ³£µLªk¶×¤J
¥i§ï¥Î  Workbooks.Open ("http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_AL_" & myear & mmon & nowday & ".CSV")  ¶×¤J