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

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

¦^´_ 30# GBKEE


½Ð°Ñ¦Òªþ¥ó
³Â·ÐG¤j¤F  ÁÂÁÂ

µo°Ý.rar (12.17 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-28 07:00 ½s¿è

¦^´_ 31# pollllopkimo
  1. Option Explicit
  2. Sub ¤½¶}¸ê°Tºô­¶()
  3.     Dim A As Object, E As Object, Sh As Worksheet
  4.     Set Sh = Sheets("sheet1")  'ª«¥ó: «ü©w¤u§@ªí
  5.     Sh.Activate
  6.     With CreateObject("InternetExplorer.Application")
  7.         '.Visible = True
  8.         ' .Navigate "http://mops.twse.com.tw/mops/web/t164sb04"     'ºô§}:ºî¦X·l¯qªí
  9.         .Navigate "http://mops.twse.com.tw/mops/web/stapap1"        'ºô§}:¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê
  10.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  11.             .document.getElementById("isnew").Value = "false"       '¿ï¾Ü: ¾ú¥v¸ê®Æ
  12.             'µù¸Ñ¤W¤@¦æµ{¦¡½X¬° -> ¿ï¾Ü: ³Ì·s¸ê®Æ,¤£·|°õ¦æ If ¤ºµ{¦¡½X
  13.            
  14.             If .document.getElementById("isnew").Value = "false" Then
  15.              .document.getElementById("isnew").FireEvent ("onchange")
  16.                 .document.getElementById("year").Value = Sh.Range("C1")       '¦~«×
  17.                 '.document.getElementById("season").Value = "01"    'ºî¦X·l¯qªí:²Ä1©u(©u§O)
  18.                 .document.getElementById("month").Value = Format(Sh.Range("D1"), "00")    '¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê®Æ:¤ë¥÷
  19.             End If
  20.             '********************************************************************
  21.            For Each A In .document.getelementSbyTAGNAME("INPUT")
  22.            
  23.                 If A.Name = "co_id" Then A.Value = Sh.Range("b1")       'ªÑ²¼¥N¸¹
  24.                
  25.                
  26.                 If A.Value = " ·j´M " Then A.Click                     '«ö¤U ·j´M
  27.             Next
  28.             Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  29.             For Each E In .document.ALL.TAGS("div")
  30.                 If E.ID = "table01" Then
  31.                     .document.body.innerHTML = E.outerHTML
  32.                     .ExecWB 17, 2       '  Select All
  33.                     .ExecWB 12, 2       '  Copy selection
  34.                     Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
  35.                     With Sh
  36.                         .UsedRange.Offset(4).Clear
  37.                         .Range("B5").Select
  38.                         .PasteSpecial Format:="HTML"
  39.                         .Range("B5").Select
  40.                         If .Shapes.Count > 0 Then  '¦³¹Ï¤ù
  41.                             .Shapes.SelectAll
  42.                             Selection.Delete
  43.                         End If
  44.                     End With
  45.                 End If
  46.             Next
  47.         .Quit                          'Ãö³¬ IE
  48.     End With
  49. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2014/2/6 08:02): 32#ªºµ{¦¡½X¤w§ó·s

¦^´_ 32# GBKEE


¥ýÁÂÁÂg¤j
¥Ø«eµo²{¤@­Ó°ÝÃD¨Ò¦p·í§ìªÑ²¼¥N¸¹2886®É­Ô
·|§âºô­¶¤Wªº¹Ï¤ù ¹Ï¤ù.JPG ¤]¤@¨Ö§ì¤U¨Ó
¦A§ì²Ä¤G¦¸®É­Ô¸Ó¹Ï¤ù·|´Ý¯d
¦³¿ìªk§ì²Ä¤G¦¸®É§R°£©Î¬O²Ä¤@¦¸¥u§ì¤å¦r,ªí®æ¹À?
¦A¦¸³Â·Ðg¤j  ÁÂÁÂ

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?

ÀÉA.rar (74.39 KB)

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

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

·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¥Î)

TOP

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

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



¤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

ÁÂÁÂ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

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD