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

[µo°Ý] ¦p¦ó§ä¥Xºô¯¸­ì©lÀɺô§}

[µo°Ý] ¦p¦ó§ä¥Xºô¯¸­ì©lÀɺô§}

§Ú·Q¥Îweb¬d¸ß,¤U¸ü¤½¶}Æ[´ú¯¸ªº¸ê®Æ,¨ìexcel,­n¦p¦ó§ä¥X­ì©lÀɺô§}

§Ú·Q§äªººô§}¦p¤U:¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê®Æ¤ºªº¾ú¥v¸ê®Æ
http://mops.twse.com.tw/mops/web/stapap1?

ÁÙ½Ð逹¤H¤j¤jÀ°¦£,·P®¦ÁÂÁÂ

¤F¸Ñ!·PÁÂG¤jÀ°¦£¸Ñµª

TOP

¦^´_ 40# blue2263
ª½±µÅª¨ú¸ê®Æ,¤ñ©äÅs(¨ç¼Æ­pºâ)Ū¨ú¸ê®Æ·íµM¬O§Öªº
¦b¦³§R¤u§@ªíªºÀÉ®×,¥Î#39µ{¦¡½X, ¤U¸ü10­Ó¥N½X,ªá¤F6¬í,¸ê®Æ¥¿½T
¦b¨S¦³§R¤u§@ªíªºÀÉ®×,¥Î#39µ{¦¡½X, ¤U¸ü10­Ó¥N½X,ªá¤F3¤À9¬í,¸ê®Æ¥¿½T

¦b¨S¦³§R¤u§@ªíªºÀÉ®×(¨ç¼Æ¤Ó¦h),°õ¦æ­ì¨Óµ{¦¡(µ{¦¡°õ¦æ°j°é¤@¦¸,¬¡­¶Ã¯ªº¨ç¼Æ­«ºâ©|¥¼§¹¦¨)¬G±o¨ì¸ê®Æ¤£¥¿½T
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂG¤jÀ°¦£
¦^ÂÐG¤j,§Úªº³]©w¬O¦Û°Êªº¨S¿ù,
¥Î#39µ{¦¡½X¤U¸ü¸ê®Æ¤º®e´N¥¿½T¤F
§Ú´£¨ÑªºÀÉ®×,¦³§R±¼¤@¨Ç¦³¨ç¼Æ¤u§@ªí,©Ò¥H¶]°_¨Ó·|«ÜºC
§Ú°µ¤F¤@¨Ç´ú¸Õ
¦b¦³§R¤u§@ªíªºÀÉ®×,¥Î#39µ{¦¡½X, ¤U¸ü10­Ó¥N½X,ªá¤F6¬í,¸ê®Æ¥¿½T
¦b¨S¦³§R¤u§@ªíªºÀÉ®×,¥Î#39µ{¦¡½X, ¤U¸ü10­Ó¥N½X,ªá¤F3¤À9¬í,¸ê®Æ¥¿½T
¦b¨S¦³§R¤u§@ªíªºÀÉ®×,¥Î#36µ{¦¡½X,¤U¸ü10­Ó¥N½X,ªá¤F1¤À30¬í,¸ê®Æ¥ª¤Ñ´ú¸Õ,¬O¿ù»~ªº(#38±¡§Î),¤µ¤Ñ¤S´ú¸Õ¤@¦¸,¸ê®Æ¤SÅܦ^¥¿½T¤F??¤£ª¾¹D¬O¤°»ò°ÝÃD?
½Ð±ÐG¤j,²z½×¤W¬O§_¥Î#39¤èªk,¸ê®Æ¤W¸û¤£·|¦³°ÝÃD,
¬°¤F¤U¸ü¸ê®Æªº³t«×,ºÉ¶qÀɮפº¤]¤£­n¤Ó¦h¨ç¼Æ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-6 20:55 ½s¿è

¦^´_ 38# blue2263
¤º¦³«Ü¦h¨ç¼Æ,©Ò¥H³y¦¨¸ê®Æ§ó·s·|Åܪº«ÜºC,À³¸Ó¤£¬O¦p¦¹.
¬O§_¬¡­¶Ã¯ªº­pºâ¬O¤â°Ê,­n§ï¦¨¦Û°Ê

EX.JPG
2014-2-6 20:54


¤U¦Cµ{¦¡½X,¤u§@ªí¥i¤£¥Î¨ç¼Æºâ.
  1. Option Explicit
  2. Sub Macro()
  3.     ' ³øªí¾ã¦X1-new
  4.     Dim Rng As Range, Ar(1 To 3)
  5.     On Error GoTo 101 '   'web ¬dµL ¨ì¤U¤@­Ó¥N½X
  6.     Set Rng = Sheets("¥N½X").[a2]
  7.     Do While Rng <> ""   'µL¥N½X ¤¤Â_
  8.         With Sheets("­ì©lªí")
  9.             .Range("a6") = Rng
  10.             .Range("az7").QueryTable.Refresh BackgroundQuery:=False
  11.             With .Range("BB12:BB27")
  12.                 Ar(1) = Application.Transpose(.Cells)         '¤H¼Æ
  13.                 Ar(2) = Application.Transpose(.Offset(, 1))   'ªÑ¼Æ
  14.                 Ar(3) = Application.Transpose(.Offset(, 2))   '¦û¶°«O®w¦s¼Æ¤ñ¨Ò (%)
  15.             End With
  16.         End With
  17.         With Sheets("¶×Á`").Range("A1").End(xlDown).Offset(1) '¿ï¾Ü¤u§@ªí,¨ì³Ì©³¦æ
  18.              .Cells(1) = Rng
  19.              .Cells(1, 2) = Rng.Offset(, 1)
  20.              .Cells(1, "C").Resize(, UBound(Ar(1))) = Ar(1)
  21.              .Cells(1, "S").Resize(, UBound(Ar(1))) = Ar(2)
  22.              .Cells(1, "AI").Resize(, UBound(Ar(1))) = Ar(3)
  23.              .Cells(1, "AX") = ""
  24.             '.Range("A1:aw1").Value = Sheets("­ì©lªí").Range("A6:aw6").Value
  25.        End With
  26. 101
  27.          Set Rng = Rng.Offset(1)   '¤U¤@­Ó¥N½X
  28.     Loop
  29. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂG¤j¼ö¤ßÀ°¦£,°ÝÃD1,¤v¥i¥¿±`°õ¦æ¤F
¥t½Ð±ÐG¤j,¦]§Ú³o­ÓÀÉ®×,¤º¦³«Ü¦h¨ç¼Æ,©Ò¥H³y¦¨¸ê®Æ§ó·s·|Åܪº«ÜºC
©Ò¥H°õ¦æ¥¨¶°®É·|³y¦¨¸ê®Æ¿ù»~,¦p¤U¹Ï
½Ð±ÐG¤j¬O§_¦³µ{¦¡½X,¥i¸Ñ¨M¦¹°ÝÃD,ÁÙ¬O¥u¯à±NÀɮפÀ¶}¬°¨â­Ó(¤U¸ü¸ê®Æ¥Î,¤Î¤ÀªR¥Î)
¹Ï¤ù.png
2014-2-6 19:03

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-6 13:46 ½s¿è

¦^´_ 36# blue2263
  1. Sub Macro()
  2.     ' ³øªí¾ã¦X1-new
  3.     Dim Rng As Range
  4.     On Error GoTo 101 '   'web ¬dµL ¨ì¤U¤@­Ó¥N½X
  5.     Set Rng = Sheets("¥N½X").[a2]
  6.     Do While Rng(1) <> ""   'µL¥N½X ¤¤Â_
  7.         With Sheets("­ì©lªí")
  8.             .Range("a6") = Rng
  9.             .Range("az7").QueryTable.Refresh BackgroundQuery:=False
  10.         End With
  11.         With Sheets("¶×Á`").Range("A1").End(xlDown).Offset(1) '¿ï¾Ü¤u§@ªí,¨ì³Ì©³¦æ
  12.                 .Range("A1:aw1").Value = Sheets("­ì©lªí").Range("A6:aw6").Value
  13.             End With
  14. 101
  15.          Set Rng = Rng.Offset(1)   '¤U¤@­Ó¥N½X
  16.     Loop
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

G¤j,¤£¦n·N«ä§Ú«üªº°ÝÃDµ{§Ç¬O,³øªí¾ã¦X1-new
µ{¦¡·|¤¤Â_¤Î«öF8°õ¦æ,¤U¸ü¸ê®Æ®³¿ù»~,³£¬O¦¹µ{§Ç
ÁÂÁÂG¤j

TOP

¦^´_ 34# blue2263
«öF8³v¦æ°õ¦æ¬O­þ¤@­Óµ{§Ç
  1.   '****** ªþÀɨS³o¤u§@ªí
  2.     With Sheets("¥¨¶°¤u§@ªí")
  3.         Set Rng(1) = .Range("B2")
  4.         .Activate
  5.     End With
  6.     'Sheets("¶×Á`").UsedRange.Offset(1).Clear   '¥Î¦¹µ{¦¡½X" ¦p»Ý²M°£Â¦³¸ê®Æ
  7.     Do While Rng(1) <> ""
  8.         Rng(1).Activate
  9.         With Sheets("­ì©lªí")
  10.             .Range("B2") = Rng(1)
  11.             '****  .Range("E7") ¨S¦³Web  **********
  12.             .Range("E7").QueryTable.Refresh BackgroundQuery:=False
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

G¤j§A¦n,¤§«eµ{¦¡,¬°¤F»Ý¨D,°µ¤F¤@¨Ç­×§ï,¦³¨Ç°ÝÃD,·Q½ÐG¤j³Â·ÐÀ°§Ú¬Ý¤@¤U
1.µ{¦¡·|µLªk¦Û°Ê°õ¦æ,·|¤¤Â_?
2.«öF8³v¦æ°õ¦æ¨S¦³°ÝÃD,¦ýµo²{°õ¦æ¤U¸ü«áªº¸ê®Æ»P­ì©l¸ê®Æ¤£¦P?
¥¼©R¦Wªº¹Ï¤ù.png
2014-2-5 22:49

ÀÉA.rar (74.39 KB)

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD