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

[µo°Ý] ºô­¶¸ê®Æ¤U¸ü²¤Æ

ÁÂÁÂGBKEE©Ò°µªº½d¨Ò¡C

TOP

¥Ø«e¥¿¦b¾Ç ªÑ²¼¸ê®Æ¤U¸ü¡K
·PÁÂGBKEE¤j¡K´£¨Ñªºµ{¦¡¡K
¥Ø«e´ú¸Õ¥¿±`¡K¦@¤U¸ü23­¶¡K
¨««æªº¤H¬Ý¤£¨£¦a¤Wªº°v¤l¡A ·Ð´oªº¤H¨É¨ü¤£¨ì©¯ºÖªº¤é¤l¡C

TOP

¥»©«³Ì«á¥Ñ white5168 ©ó 2012-5-31 00:23 ½s¿è

³Ìªñ¦b5/30,5/29,5/28§ì¸ê®Æ¯uªº¶V¨Ó¶V¦³Ãø«×¤F,·d¤£À´¨ì©³­þ­Ó®`¸s¤§°¨¤@ª½¦b¾Þ±¾ ÃÒ¥æ©Òªº¦øªA¾¹,·dªº¤j®a­n§ì¸ê®Æ³£Åܪº«Ü§xÃø
§Ú¬O¥Îpython¨Ó¤U¸ü¸ê®Æ´N¤w¸g§Ö§ì¨g¤F,§Ú¬Ý¥ÎVBA§ì¸ê®Æªº¤HÀ³¸Ó·|§ó·Q¥´¤H,¦]¬° ÃÒ¥æ©Òªº¨¾¤õÀð¤w¸g°µ¤F­×§ï,¦]¬°¦b¦y®p®É¬q¨¾¤õÀð·|­­¨î³s½u¼Æ»P®É¶¡,­nªø®É¶¡³s½u§ì¸ê®Æ¯uªº·|¦³Ãø«×
¥Îpython¤U¸ü¤W¥«795¤äªÑ²¼ªº¸ê°T,¦b³o3¤Ñ­nªá2~3¤p®É,¬O¥­¹ê§ì¤W¥«795 ¤WÂd615 (§Ú§ìªº¤£¬O³æ¤@¤äªÑ²¼ªº®É¶¡¬O¥þ³¡)®É¶¡ªº3­¿,¯uªº¤j®a§ä§ä³o­Ó®`¸s¤§°¨
³Ìªñ¤]¦b¥ÎVBA§ìºô­¶,¦ý¤£¬O§ì¨C¤é¦¨¥æ©ú²Ó,¤£µM§Ú¤]·|¨ü¤£¤F
¯¬¤j®a¦n¹B

TOP

¦^´_  carzyindex
¦³¦¹ºô­¶¦n¿ì¨Ç,¦ý¤U¸üÁÙ¬O«Ü¶O®Éªº,ºCºCªº´ú¸Õ§a!!
GBKEE µoªí©ó 2011-5-17 16:04


GBKEE¤j¤j,¤U¸ü´ú¸ÕÀÉ´ú¸Õ®É²Ä¤@¤ä­ÓªÑ¤U¸ü§¹²¦«á,·|¥X²{ "°õ¦æ¶¥¬q¿ù»~'424':¦¹³B»Ý­nª«¥ó" ,°»¿ù«á·|«ü¦V³o¤@¬qµ{¦¡" Sheets(¤é´Á & "-" & ªÑ²¼¥N¸¹).Cells.Clear ",¤p§ÌÁÙ¬Oªì¾ÇªÌ,·Q½Ð°Ý¤j¤j³o¤@¬q¥Nªí¤°»ò·N«ä??½Ð¤j¤j½ç±Ð

TOP

¦^´_ 27# gracyei
Sheets(¤é´Á & "-" & ªÑ²¼¥N¸¹).Cells.Clear   

"°õ¦æ¶¥¬q¿ù»~'424':¦¹³B»Ý­nª«¥ó   ¬¡­¶Ã¯¤¤¨S¦³©R¦W¬°¤é´Á & "-" & ªÑ²¼¥N¸¹ ªº¤u§@ªí

¤é´Á & "-" & ªÑ²¼¥N¸¹  ³o¤u§@ªí©Ò¦³Cells(Àx¦s®æ).Clear(²M°£¸ê®Æ)

TOP

¦^´_ 28# GBKEE


    ·PÁÂGBKEE¤j¤jªº¦^ÂÐ,¤p§Ì¤U¸ü#16ªº´ú¸ÕÀÉ°µ´ú¸Õ¨C¦¸¶]¨ì²Ä2ÀÉ1102®É´N·|µo¥Í¿ù»~,¥B²Ä2ÀɪѲ¼Sheetªº¤º®e·|³Q³o¤@¬q«ü¥OClear±¼,¥B¥N¸¹ªºSheet·|³Q§R°£±¼;­Y¥u³]©w1ÀÉ«h¥i§¹¦¨,¤p§ÌÁÙ¬O§ä¤£¥X­þ¸Ìªº°ÝÃD,½Ð°Ý¤j¤j¬O­þ¸Ìªº°ÝÃD?? THX!!

TOP

¦^´_ 29# gracyei
±NÀɮפW¶Ç¬Ý¬Ý

TOP

¦^´_  gracyei
±NÀɮפW¶Ç¬Ý¬Ý
GBKEE µoªí©ó 2012-7-4 16:13

´ú¸ÕÀɬO±q¥»©«16¼Ó¤U¸ü,µL°µ­×§ï,³Â·ÐGBKEE¤j¤j¬Ý¤@¤U
´ú¸Õ.rar (17.46 KB)

TOP

¦^´_ 31# gracyei
­×§ï¦p¤U
  1. Option Explicit
  2. Sub ­ÓªÑ¥æ©ö¾ã­¶()
  3.     Dim ªÑ²¼¥N¸¹ As Range, ¤é´Á As Variant, F As Range
  4.     Do While Not IsDate(¤é´Á)
  5.         ¤é´Á = InputBox("¿é¤J¬d¸ß¤é´Á", "¤é´Á", Date)
  6.         If ¤é´Á = "" Then End
  7.     Loop
  8.     ¤é´Á = Format(¤é´Á, "yyyymmdd")
  9.     Set ªÑ²¼¥N¸¹ = ThisWorkbook.Sheets("¥N¸¹").[A1]
  10.     On Error Resume Next                           '¤£²z·| ¦b°õ¦æµ{¦¡ªº®É­Ôµo¥Íªº¿ù»~
  11.     Do While ªÑ²¼¥N¸¹.Value <> ""
  12.         ThisWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
  13.         ActiveSheet.Name = ¤é´Á & "-" & ªÑ²¼¥N¸¹
  14.         Sheets("¥N¸¹").Activate
  15.         With Sheets(¤é´Á & "-" & ªÑ²¼¥N¸¹)
  16.             With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=All_100", Destination:=.Cells(1))
  17.                 .Name = ¤é´Á & "-" & ªÑ²¼¥N¸¹
  18.                 .WebSelectionType = xlEntirePage
  19.                 .WebFormatting = xlWebFormattingNone
  20.                 .WebPreFormattedTextToColumns = True
  21.                 .WebConsecutiveDelimitersAsOne = True
  22.                 .WebSingleBlockTextImport = False
  23.                 .WebDisableDateRecognition = False
  24.                 .WebDisableRedirections = False
  25.                 Do
  26.                     DoEvents
  27.                     Err.Clear                         'Errª«¥óªº­«³]
  28.                     .Refresh BackgroundQuery:=False   '¬d¸ß¥¢±Ñ ·|²£¥Í¿ù»~
  29.                 Loop Until Err.Number = 0             '°õ¦æ°j°éª½¨ì¿ù»~®ø:¥¢ ¬d¸ß¦¨¥\
  30.             End With
  31.             .Range("F5:H" & Rows.Count).Delete 1
  32.             .Range(.Cells(.Rows.Count, "B").End(xlUp).Offset(1), .Cells(.Rows.Count, "B")).Offset(, -1).Clear
  33.             .Range(.Cells(Rows.Count, "G").End(xlUp).Offset(1), .Cells(Rows.Count, "G")).Offset(, -1).Clear
  34.             Set F = .[A:A].Find("*­¶ / ¦@*", LOOKAT:=xlPart)
  35.             Do While Not F Is Nothing
  36.                 F.Offset(-1).Resize(7).EntireRow.Delete
  37.                 Set F = .[A:A].FindNext
  38.             Loop
  39.             .UsedRange.Columns.AutoFit
  40.         End With
  41.         Set ªÑ²¼¥N¸¹ = ªÑ²¼¥N¸¹.Offset(1)
  42.     Loop
  43.     MsgBox "¤U¸ü§¹²¦ !!!", 32 + 0, "­ÓªÑ¥æ©ö©ú²Ó"
  44. End Sub
½Æ»s¥N½X

TOP

¦U¦ì¤j¤j¡G
½Ð°Ý¹³³o¨Ç»yªk¡A
§ÚÀ³¸Ó§â¥L¶K¦b­þ¸Ì¡A
¤~¯à°õ¦æ¡H
§A­ÌªºÀɮקڳ£¨S¦³¿ìªk¬Ý¡A
¬O§_¥i¥H±Hµ¹§Ú©O¡H
[email protected]
·PÁ¡I
shall

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD