ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

§ó·sªÑ¥«¨C¤é½L«á¦æ±¡³Ì·s¸ê®Æ

§ó·sªÑ¥«¨C¤é½L«á¦æ±¡³Ì·s¸ê®Æ

"¦pªGªÑ¥«·í¤Ñ¥ð¥«¡A¥i¦Û°Ê§ó·s¦³¥æ©öªº³Ì·s¤é´Á"??½Ð°Ý¦p¦ó­×§ïµ{¦¡
Sub ¤U¸üºô¯¸¸ê®Æ()
   
    With Range(Cells(3, 1), Cells(1000, 16))
        .Clear
        .Delete
            
    End With
   
    Dim ptxt As String
        
        Startday = Left(Date, 4) & "0" & Mid(Date, 6, 1) & Right(Date, 2)  "¦pªGªÑ¥«·í¤Ñ¥ð¥«¡A¥i¦Û°Ê§ó·s¦³¥æ©öªº³Ì·s¤é´Á"??½Ð°Ý¦p¦ó­×§ïµ{¦¡
        Startmonth = Left(Date, 4) & "0" & Mid(Date, 6, 1)
        
        
        '¤U¸üºô¯¸ªººô§}
        With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & Startmonth & "/A112" & Startday & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & Startday, Destination:=Range("A3"))
   
        ' xlOverwriteCells ªí¥ÜÂл\Äæ¦ì
        .RefreshStyle = xlOverwriteCells
        ' §ì¨úºô­¶ªº²Ä10­Óªí®æ§@¬°¶×¤J¸ê®Æ
        .WebTables = "10"
        .Refresh BackgroundQuery:=False
        
        End With
    '±NR2C1:R878C16½d³òªºÀx¦s®æ¦r§Î½Õ¾ã¬°12
    Cells.Select
    Cells.Font.Size = 12

End Sub

·Ð½Ð¦U¦ì°ª¤â±M®a¸Ñ´b¡AÁÂÁÂ!

¦^´_ 1# gelai01000001


    "¦pªGªÑ¥«·í¤Ñ¥ð¥«¡A¥i¦Û°Ê§ó·s¦³¥æ©öªº³Ì·s¤é´Á"??½Ð°Ý¦p¦ó­×§ïµ{¦¡
    §ä¥þ¦~¦æ¨Æ¾ä·íDATABASE¥ý¤ñ¹ï,½T»{§_¬°°²¤é¦A§ìDATA...§A¤w·|°ªÃø«×µ{§Ç,³o­Ó§AÀ³¸Ó·|¼g¤~¹ï!!
    ¥t¤@ºØ¬Oºâ¶g¤@¨ì¤­¤£¹L·|¦³¨Ò¥~,¦¹¤èªkÁÙ¬O­n¥Î¨ì¤W­z¦¬§À!!!

TOP

chen_cook «e½ú±M®a!·PÁ§AÀ°¦£©âªÅ¸Ñ´b¡C
¥i¬O§A»¡ªº¡q¥þ¦~¦æ¨Æ¾ä·íDATABASE¥ý¤ñ¹ï¡r¡A¤p¾Ç¥ÍÁÙ¬O¤£¤ÓÀ´©O!
¦]§Ú¤W­zªºµ{¦¡¬Oºô¸ô¤W«÷´ê¦Ó¨Ó¡AVBA¨ä¹ê»¡¯uªº§Ú¤£¬O«Ü¤F¸Ñ¡C

¦pªG·Ó§A»¡ªº¤è¦¡?¬O§_­n¨Ï¥Î
If Then
Elseif(±Ô­z¥¼ªÑ¥«¥ð¥«ªº¤é´Á)
Else
end if

³Â·Ðchen_cook «e½ú±M®a«ü¾É!

TOP

¦^´_ 3# gelai01000001

   
     §Ú¤£¬O«e½ú...§Ú¤]¤£·|¤Ó²`ªºEXCEL VAB....
     ¨Ì¦æ¨Æ¾äÂন¤@ºû°}¦C©Î¤@­ÓDATDBASE(SHEET DATA¥i¥H¤è«K¹j¦~ UPDATE)
     ¦ýÁÙ¬O·|¦³¨Ò¥~¦pªñ¤éªº¨¾¨a°²!!(¨Æ«á¦A°l¥[)
     ¦p¦ó½s¼g§Aªº¤èªk¬O¥i¦æªº(§Úªº°µªk¬O¤ñ¹ï­Y¬°°²¤é´N¤£¥h§ìWEB DATA¤F,ª½±µ´Nµ²§ô¤F)
     ¥H¤W!!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-3 07:21 ½s¿è

¦^´_ 3# gelai01000001
  1. Option Explicit
  2. Sub ¤U¸üºô¯¸¸ê®Æ()
  3.     Dim Startmonth As String, Startday As String, xDate As Date, Msg As Boolean, Sh As Worksheet
  4.     Dim T As Date
  5.     T = Time
  6.     On Error Resume Next                    'µ{¦¡°õ¦æ¤¤¦³¿ù»~®É,¤£¸Ì·|Ä~Äò°õ¦æµ{¦¡
  7.     xDate = Date                            '·í¤é
  8.     '***************´ú¸Õ¥Î
  9.     xDate = #9/8/2013#                 '¥ð¥«¤é  
  10.     '***************´ú¸ÕµL»~«á¥i§R°£±¼
  11.     Set Sh = ActiveSheet                    '«ü©w¤u§@ªí:¦¹µ{¦¡¦b¥ô¦ó¼Ò²Õ¤¤¬Ò¥i¥Î
  12. EX:
  13.     If Err.Number <> 0 Or Msg = True Then   '·í¤é(©|¥¼¦³¸ê®Æ:¿ù»~) ©Î ¥ð¥«
  14.         xDate = xDate - 1                   '©¹«á°h¤@¤é
  15.         Err.Clear
  16.         Msg = False
  17.     End If
  18.     Sh.UsedRange.Clear                       '²M²z¤u§@ªí¤w¨Ï¥Îªº½d³ò
  19.     Startday = Format(xDate, "YYYYMMDD")
  20.     Startmonth = Format(xDate, "YYYYMM")
  21.         '¤U¸üºô¯¸ªººô§}
  22.     With Sh.QueryTables.Add(Connection:="URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & Startmonth & "/A112" & Startday & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & Format(xDate, "E/MM/DD"), Destination:=Range("A3"))
  23.         .RefreshStyle = xlOverwriteCells                            '§ì¨úºô­¶ªº²Ä10­Óªí®æ§@¬°¶×¤J¸ê®Æ
  24.         .WebTables = "10"
  25.         .Refresh BackgroundQuery:=False                             '·í¤é(©|¥¼¦³¸ê®Æ:¿ù»~)
  26.         If Err.Number <> 0 Then GoTo EX
  27.         If Application.CountA(Sh.QueryTables(1).ResultRange) = 0 Then  '¥ð¥« ¨S¦³¸ê®Æ
  28.             Msg = True
  29.             GoTo EX
  30.         End If
  31.     End With
  32.     With Sh.UsedRange
  33.         .Font.Size = 12
  34.         .EntireColumn.AutoFit
  35.     End With
  36.     MsgBox "¥æ©öªº³Ì·s¤é´Á " & xDate & vbLf & Application.Text(Time - T, "¶O®É [SS] ¬í")
  37. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

§Ú±Ndateªº¤é´Á§ï¬°¬P´Á¤Ñªº¤é´Á¡Aµ{¦¡·|µL¤îÀRªº¶]¦^°é?
½Ð°ÝGBKEE¶W¯Åª©¥D¡A°²¦p§Ú§ó·sªº¤é´Á(Date)¶ZÂ÷ªÑ¥«³Ì«á¥æ©ö¤é¶W¹L1¤Ñ¥H¤W¡A¤S¸Ó¦p¦ó­×§ï©O?·PÁ«ü¾É
  1. Sub ¤U¸üºô¯¸¸ê®Æ()
  2.     Dim Startmonth As String, Startday As String, xDate As Date, Msg As Boolean, Sh As Worksheet
  3.     On Error GoTo EX                        'µ{¦¡°õ¦æ¤¤¦³¿ù»~®É¸õ¨ì EX: Ä~Äò°õ¦æµ{¦¡
  4.     xDate = Date                            '·í¤é
  5.     Set Sh = ActiveSheet                    '«ü©w¤u§@ªí:¦¹µ{¦¡¦b¥ô¦ó¼Ò²Õ¤¤¬Ò¥i¥Î
  6. EX:
  7.     If Err.Number <> 0 Or Msg = True Then   '·í¤é(©|¥¼¦³¸ê®Æ:¿ù»~) ©Î ¥ð¥«
  8.         [color=Red]xDate = xDate - 1    (À³§ï¬°xDate = Date - 1)[/color]     °²¦p¥ð¥«¶W¹L1¤Ñ¥H¤W(2,3,4,5,6,¬K¸`9¤Ñ)¡A¤S¦p¦ó­×§ï©O?         
  9.         Err.Clear
  10.         Msg = False
  11.     End If
  12.     Sh.UsedRange.Clear                       '²M²z¤u§@ªí¤w¨Ï¥Îªº½d³ò
  13.     Startday = Format(xDate, "YYYYMMDD")
  14.     Startmonth = Format(xDate, "YYYYMM")
  15.         '¤U¸üºô¯¸ªººô§}
  16.     With Sh.QueryTables.Add(Connection:="URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & Startmonth & "/A112" & Startday & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & Format(xDate, "E/MM/DD"), Destination:=Range("A3"))
  17.         .RefreshStyle = xlOverwriteCells                            '§ì¨úºô­¶ªº²Ä10­Óªí®æ§@¬°¶×¤J¸ê®Æ
  18.         .WebTables = "10"
  19.         .Refresh BackgroundQuery:=False                             '·í¤é(©|¥¼¦³¸ê®Æ:¿ù»~)
  20.         If Application.CountA(Sh.QueryTables(1).ResultRange) = 0 Then  '¥ð¥« ¨S¦³¸ê®Æ
  21.             Msg = True
  22.             GoTo EX
  23.         End If
  24.     End With
  25.     With Sh.UsedRange
  26.         .Font.Size = 12
  27.         .EntireColumn.AutoFit
  28.     End With
  29. End Sub
½Æ»s¥N½X
¦^´_ 5# GBKEE

TOP

¦^´_ 6# gelai01000001
µ{¦¡·|µL¤îºÉªº¶]¦^°é?¤£·|§a!¬O¸ê®Æ¶q¤j¤U¸ü¶O®É§a !!
5#ªºµ{¦¡½X¤w­×¥¿¸Õ¸Õ¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-6 07:26 ½s¿è

¦^´_ 7# GBKEE
GBKEE·PÁ§A³o»ò¼ö¤ß©âªÅ«ü¾É¸Ñ´b!
¥á°Õ!³o¤~¬O§Ú·Qªü£z£°!2013¬K¸`¥ð°²9¤Ñ¤]¥i¥H©O!

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD