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

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

¥»©«³Ì«á¥Ñ carzyindex ©ó 2011-5-16 16:32 ½s¿è

¦^´_ 10# GBKEE


·Q¦A¦¸¸ß°Ýª©¤j¨â­Ó°ÝÃD

1.   ªþ¥ótest
§Ú·Q­n¨Ì·Ósheet2²M³æ AÄæ
°õ¦æµ{¦¡
¥t¦s·sÀÉ   ÀɦW¬°BÄæ

2.   ªþ¥ó1101
µ{¦¡¦³®É­Ô«á·|¦³¿ù»~
FÄæ¦ì¿z¿ï¬°ªÅ®æ
¥i¥H§R°£¶Ü

test.rar (11.34 KB)

1101.rar (116.77 KB)

TOP

¦^´_ 12# carzyindex
¤U¸ü¤@¤äªÑ²¼­n±Nªñ10¤ÀÄÁ , §Ú¨S´ú¸Õ§¹,½Ð§AºCºC´ú¸Õ .
  1. Option Explicit
  2. Sub ©ú²Ó¤U¸ü()
  3.     Dim ªÑ²¼¥N¸¹ As Range, ¤é´Á As Variant, i As Integer, A, T As Date
  4.     Dim Rng As Range
  5.     Do While Not IsDate(¤é´Á)
  6.         ¤é´Á = InputBox("¿é¤J¬d¸ß¤é´Á", "¤é´Á", Date)
  7.         If ¤é´Á = "" Then End
  8.     Loop
  9.     ¤é´Á = Format(¤é´Á, "yyyymmdd")
  10.     Set ªÑ²¼¥N¸¹ = Workbooks("TEST.XLSX").Sheets("sheet2").[A1]
  11.     Do While ªÑ²¼¥N¸¹.Value <> ""
  12.         T = Time
  13.         With Workbooks("TEST.XLSX").Sheets.Add(After:=Sheets(Sheets.Count))
  14.             .Name = ¤é´Á & "-" & ªÑ²¼¥N¸¹     '³]¥ß ¦b¤u§@ªí¦WºÙ
  15.             Application.StatusBar = False
  16.             On Error GoTo A_Wait
  17.             i = 1
  18.             Do
  19.                 Set Rng = .Cells(Rows.Count, 1).End(xlUp).Offset(1)
  20.                 DoEvents
  21.                 With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=" & i, Destination:=Rng)
  22.                     .Name = ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "_" & i
  23.                     .WebSelectionType = xlSpecifiedTables
  24.                     .WebFormatting = xlWebFormattingNone
  25.                     .WebTables = "6"
  26.                     .WebPreFormattedTextToColumns = True
  27.                     .WebConsecutiveDelimitersAsOne = True
  28.                     .WebSingleBlockTextImport = False
  29.                     .WebDisableDateRecognition = False
  30.                     .WebDisableRedirections = False
  31.                 ''''''µLªk¬d¸ß®Éµy«Ý  ¨ì  A_Wait: '''''
  32.                     .Refresh BackgroundQuery:=False
  33.                     If Application.CountA(.ResultRange) = 0 Then GoTo Out
  34.                         i = i + 1
  35.                 End With
  36.                 A = CreateObject("WScript.Shell").popup("½Ðµ¥«á¤U¸ü..." & Chr(10) & Chr(10) & "** ½Ð¤Å«ö¤U  [½T©w] **", 4, ¤é´Á & "_" & ªÑ²¼¥N¸¹ & "  ²Ä" & i & "­¶", 16 * 3 + 0)
  37.                 Application.ScreenUpdating = True
  38.             Loop
  39.             
  40. Out:
  41.             .UsedRange.Columns.AutoFit
  42.             ''''''''§R°£ A,FÄ檺ªÅ®æ  ''''''''''''''''''''''''''''''''
  43.             .Range(.Cells(Rows.Count, "B").End(xlUp).Offset(1), .Cells(Rows.Count, "B")).Offset(, -1).Clear
  44.             .Range(.Cells(Rows.Count, "G").End(xlUp).Offset(1), .Cells(Rows.Count, "G")).Offset(, -1).Clear
  45.             '''''''''''''''''''''''''''''''''''''''
  46.             A = CreateObject("WScript.Shell").popup("¦@¤U¸ü" & i & "­¶", 5, ¤é´Á & "_" & ªÑ²¼¥N¸¹, 48 + 0)
  47.             Application.StatusBar = ªÑ²¼¥N¸¹ & " ¦@¤U¸ü " & i & "­¶ ¶O®É " & Format(Time - T, "HH:MM:SS")
  48.         End With
  49.         Set ªÑ²¼¥N¸¹ = ªÑ²¼¥N¸¹.Offset(1)
  50.     Loop
  51.     End
  52. A_Wait:
  53.     Application.StatusBar = "µLªk¬d¸ßµ¥­Ô10¬íÄÁ"   'ºô­¶Ác¦£®Éµ{¦¡·|¦³¿ù»~
  54.     Application.Wait Now + TimeValue("00:00:10")  '¥i¼W¥[µ¥­Ô¬d¸ßªº¬í¼Æ
  55.     Err.Clear
  56.     Application.StatusBar = False
  57.     Resume    '­«ªð¬d¸ß
  58. End Sub
½Æ»s¥N½X

TOP

diabo

TOP

¥»©«³Ì«á¥Ñ carzyindex ©ó 2011-5-17 08:28 ½s¿è

¦^´_ 14# diabo


«D±`·PÁ±z¦b¦¸¬Û§U

¤£¹L¦b¤U¸ü«e»Ý­nª¾¹DÁ`­¶¼Æ

¦ý¬O³o¤è­±ªºÀ³¥ÎÁÙ¤£¬O«Ü¼ô¸Z

ÁÙ¬O»Ý­n¨â¦ìªºÀ°¦£

ÁÙ¦³®É¶¡¤é´Á¬°­º­¶      ´N¤£»Ý­n¤@ª½¿é¤J¤F

http://bsr.twse.com.tw/bshtm/

¥k¤W¨¤

TOP

¦^´_ 15# carzyindex
¦³¦¹ºô­¶¦n¿ì¨Ç,¦ý¤U¸üÁÙ¬O«Ü¶O®Éªº,ºCºCªº´ú¸Õ§a!!



´ú¸Õ.rar (17.46 KB)

TOP

¦^´_  diabo

«D±`·PÁ±z¦b¦¸¬Û§U

¤£¹L¦b¤U¸ü«e»Ý­nª¾¹DÁ`­¶¼Æ

¦ý¬O³o¤è­±ªºÀ³¥ÎÁÙ¤£¬O«Ü¼ô¸Z

ÁÙ¬O»Ý­n¨â¦ìªºÀ°¦£

ÁÙ¦³®É¶¡¤é´Á¬°­º­¶      ´N¤£»Ý­n¤@ª½¿é¤J¤F

http://bsr.twse.com.tw/bshtm/

¥k¤W¨¤ ...
carzyindex µoªí©ó 2011-5-17 08:21


1. »`¶°¸ê®Æ¥u¬OÄw½X¤ÀªRªº²Ä¤@¨B¡A§AÀ³¸Ó¬O§Æ±æ¤@¦¸¯à¤U¸ü«ü©w¤é´Á°Ï¶¡¤Î©Ò¦³¤W¥«Âd¤½¥qªº¾ú¥v¸ê®Æ¡C
2. «Ø¥ß­ÓªÑÄw½X¤ÀªR¡A¦Ü¤Ö­n¥Î ACCESS(*.mdb) ¤è¦¡¨ÓÀx¦s¡A¤@­Ó¸ê®Æªí´N¥i¥H¸Ñ¨M©Ò¦³°ÝÃD¡C¤£½×¨É¤ÀªR­ÓªÑ¦b¬Y¬q´Á¶¡ªºÄw½XÅܤƩάO¬Y®a¨é°Óªº¤U³æ¶q.....µ¥µ¥¡A³£¥i¥H»´©ö¸Ñ¨M¡C«e´£¬O¼ô±x SQL »yªk¡C
3. ¦pªG§Aªº¥Øªº¬O§ë¸ê¡A«Øijªá¿ú¶R¨t²Î¤ñ¸û§Ö¡C¦pªG§Aªº¥Øªº¬O¾Çµ{¦¡¡A¥i¯àÁÙ­n»Ý­n¤U«Ü¦h¥\¤Ò¡C
4. ¥t¥~­¶¼Æ¦b«Ø¸ê®Æ®w¨ä¹ê¨S¥Î¡C
diabo

TOP

¦^´_ 16# GBKEE


    ·PÁ¨â¦ìªºÀ°¦£

   ¥¿¦b¾Ç²ß¸ê®Æ®w,

·Q½Ð°ÝÀÉ®×Àx¦s¤è¦¡

¤À­¶³o»ò¦h¤]¤£¬O¿ìªk

ÁÙ¬O«Ø¥ß¤é´Á¸ê®Æ§¨

¦UªÑ¤À§O«Ø¥ßÀɮשO

¹ï¸ê®Æ®w¨Ó»¡  ¸Ó«ç»òºÞ²zÀÉ®×

¸Ó¦s¦¨csvÀɶÜ

TOP

¦^´_ 17# diabo


    ¦p1  2ÂI©Ò»¡

§Ú¬OÂǥѳo¼Ëªº¸ê®Æ

¾Ç²ß¸ê®Æ®w

­¶¼Æªº¨Æ±¡¬O§Ú§Ñ°O½¨ì²Ä¤@­¶¥h¬Ý

ªº½T¤£­«­n

ºô¸ô¤Wªº¸ê®Æ®w¦h¥b¬O¤H­û¦W³æ  ÃöÁp¾Ç²ß   ¬Ý°_¨Ó©Mexcel®t¶Z¤£¤j

¦ý¬O¹ï©ó®É¶¡ªº½d¨Ò´N§ä¤£¤Ó¨ì

¹³¬O¨C¤Ñªºª«®ÆÅܤƩMÄw½XÅܤƠ  ¤Ñ¤Ñ³£§ïÅܤ~¯à¯u¦bÅé²{¸ê®Æ®wªº°¶¤j©M±j¤j

·PÁ¨â¦ì¼·¤¾¦^ÂÐ

TOP

¦^´_  diabo


    ¦p1  2ÂI©Ò»¡

§Ú¬OÂǥѳo¼Ëªº¸ê®Æ

¾Ç²ß¸ê®Æ®w

­¶¼Æªº¨Æ±¡¬O§Ú§Ñ°O½¨ì²Ä¤@ ...
carzyindex µoªí©ó 2011-5-18 08:42



³Ì°_½X­n°µ¨ì¹³³o¼Ë¤l¡A¤~¯à¤ÀªR.....

´ú¸Õ2.rar (50.55 KB)
diabo

TOP

¦pªG­n°µÄw½X¤ÀªR ÃÒ¥æ©Ò¦]¸Ó¦³´£¨Ñ¤T¤jªk¤H­ÓªÑ¨C¤Ñ¶R½æ¶W¸ê®Æ
http://www.twse.com.tw/ch/trading/fund/TWT43U/TWT43U.php
´£¨Ñµ¹§A°Ñ¦Ò ¸ê®Æ¤U¸ü³o³¡¤À ¯uªº«Ü§xÃø...¦]¬°¥L¦³¨Ç¥H²æÂ÷VBA
¦³¨Çºô­¶¤£¬O¨º»ò¦³µ½ ©Ò¥H­n·|¨Çhtmlªº»yªk
¤£¹L§A¤]¥i¥H¸ÕµÛ¥Î ctrl c + ctrl v ¤è¦¡ §â¾ã­Óºô­¶½Æ»s¨ìexcel ¦b¥h§ì§A­nªº

^^ ¯¬§A¦n¹BÅo
GinBow

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD