GBKEE

¦^´_ 1# blue2263
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub ¤½¶}¸ê°Tºô­¶()
   
3.     Dim A As Object, E As Object
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True
   
6.         ' .Navigate "http://mops.twse.com.tw/mops/web/t164sb04"     'ºô§}:ºî¦X·l¯qªí
   
7.         .Navigate "http://mops.twse.com.tw/mops/web/stapap1"        'ºô§}:¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê
   
8.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
   
9.             .document.getElementById("isnew").Value = "false"       '¿ï¾Ü: ¾ú¥v¸ê®Æ
   
10.             'µù¸Ñ¤W¤@¦æµ{¦¡½X¬° -> ¿ï¾Ü: ³Ì·s¸ê®Æ,¤£·|°õ¦æ If ¤ºµ{¦¡½X
    
11.            
    
12.             If .document.getElementById("isnew").Value = "false" Then
    
13.              .document.getElementById("isnew").FireEvent ("onchange")
    
14.                 .document.getElementById("year").Value = "102"       '¦~«×
    
15.                 '.document.getElementById("season").Value = "01"    'ºî¦X·l¯qªí:²Ä1©u(©u§O)
    
16.                 .document.getElementById("month").Value = "08"      '¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê®Æ:¤ë¥÷
    
17.             End If
    
18.             '********************************************************************
    
19.            For Each A In .document.getelementSbyTAGNAME("INPUT")
    
20.                 If A.Name = "co_id" Then A.Value = "2303"            'ªÑ²¼¥N¸¹
    
21.                 If A.Value = " ·j´M " Then A.Click                     '«ö¤U ·j´M
    
22.             Next
    
23.             Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
24.             For Each E In .document.ALL.TAGS("div")
    
25.                 If E.ID = "table01" Then
    
26.                     .document.body.innerHTML = E.outerHTML
    
27.                     .ExecWB 17, 2       '  Select All
    
28.                     .ExecWB 12, 2       '  Copy selection
    
29.                     With ActiveSheet
    
30.                         .Cells.Clear
    
31.                         .Cells(1).Select
    
32.                         .PasteSpecial Format:="HTML"
    
33.                     End With
    
34.                 End If
    
35.             Next
    
36.         .Quit                          'Ãö³¬ IE
    
37.     End With
    
38. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# blue2263

   

A1Àx¦s®æ¿é¤JªÑ²¼¥N½X,A2¦~«×,A3¤ë¥÷

µ{¦¡½X¤¤¦³µù¸Ñ ªÑ²¼¥N½X ,¦~«×,¤ë¥÷
±N¨º¨Ç=¦r¦ê ¨ú¥N¬° A1,A2,A3

GBKEE

¦^´_ 7# blue2263

A1¬O¤u§@ªí¤Wªº¦ì¸m, VBA »yªk Range("A1")

1. If A.Name = "co_id" Then A.Value =Range("A1")        'ªÑ²¼¥N¸¹

½Æ»s¥N½X

GBKEE

¦^´_ 10# blue2263
°Ñ¦Ò³o¸Ì

GBKEE

¦^´_ 14# blue2263

§Ú±N(Åýµøµ¡¤£¸òÀH§ó·sÅÜ°Ê),¦¹¦æµ{¦¡½X¥[¤J®É,¤]¤@¼Ë·|¦³¿ù»~

§A¨SªþÀÉ,²ö®_¦Ï.

GBKEE

¦^´_ 16# blue2263

1. Sub Macro()
   
2.     Application.ScreenUpdating = False 'Åýµøµ¡¤£¸òÀH§ó·sÅÜ°Ê
   
3.     If ActiveCell.Value <> Empty Then
   
4.         Application.CutCopyMode = False
   
5.         Selection.Copy
   
6.         Sheets("­ì©lªí").Select
   
7.         Range("B2").Select
   
8.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.             :=False, Transpose:=False '¶K¤W
   
10.         On Error GoTo 101 '   '·s¼W±ø¥ó¶}©l101
    
11.         '*********************************************************************
    
12.         'ActiveCell.ValueÀ³¬O³oSheets("­ì©lªí").Range("E7")QueryTableªºªÑ²¼¥N¸¹
    
13.         '¦ýSheets("¥¨¶°¤u§@ªí").Select
    
14.         'ActiveCell.Offset(1, 0).Range("A1").Select <-¨S¦³ªÑ²¼¥N¸¹
    
15.         'Webªº§ó·s·|¿ù»~ ¤@ª½ªº GoTo 101
    
16.         Sheets("­ì©lªí").Range("E7").QueryTable.Refresh BackgroundQuery:=True
    
17.         '*********************************************************************
    
18.         'Application.Wait (Now + TimeValue("0:00:02"))
    
19.         Sheets("¶×Á`").Select
    
20.         Range("A2:K21").Select
    
21.         Selection.Copy
    
22.         Range("A1").Select
    
23.         Selection.End(xlDown).Select '¨ì³Ì©³¸ê®Æ¦C
    
24.         ActiveCell.Offset(1, 0).Range("A1").Select '¤U¤@¦C
    
25.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
26.                     :=False, Transpose:=False '¶K¤W­È
    
27. 101
    
28.         Sheets("¥N½X").Select   '­×§ï³o¸Ì¸Õ¸Õ¬Ý
    
29.         'Sheets("¥¨¶°¤u§@ªí").Select
    
30.         ActiveCell.Offset(1, 0).Range("A1").Select
    
31.         Call Macro
    
32.     End If
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 18# blue2263

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng(1 To 2) As Range
   
4.     On Error Resume Next  '°õ¦æµ{¦¡½X¦p¦³¿ù»~Ä~Äò°õ¦æ¤U¤@­Óµ{¦¡½X: ªÑ²¼Web¦³¿ù»~®É
   
5.     With Sheets("¥¨¶°¤u§@ªí")
   
6.         Set Rng(1) = .Range("B2")
   
7.         .Activate
   
8.     End With
   
9.     'Sheets("¶×Á`").UsedRange.Offset(1).Clear   '¥Î¦¹µ{¦¡½X" ¦p»Ý²M°£Â¦³¸ê®Æ
   
10.     Do While Rng(1) <> ""
    
11.         Rng(1).Activate
    
12.         With Sheets("­ì©lªí")
    
13.             .Range("B2") = Rng(1)
    
14.             .Range("E7").QueryTable.Refresh BackgroundQuery:=False
    
15.             Set Rng(2) = .Range("A10:K29")   '§A­nªº­ì©l¸ê®Æ            
    
16.         End With
    
17.         If Err = 0 Then
    
18.             Application.StatusBar = Rng(1) & " ¶×¤J¤¤"
    
19.             With Sheets("¶×Á`").Range("A1").End(xlDown).Offset(1)  
    
20.                 .Range("A1:K20").Value = Sheets("¶×Á`").Range("A2:K21").Value
    
21.                 Rng(1).Parent.Hyperlinks.Add Anchor:=Rng(1).Offset(, 2), Address:="", SubAddress:=.Address(, , , 1), TextToDisplay:=.Parent.Name & "!" & .Address(0, 0)
    
22.                 '­«·s³]©w¶W³sµ²
    
23.             End With
    
24.             
    
25.             '************'¥Î¦¹µ{¦¡½X:°t¦X»Ý²M°£Â¦³¸ê®Æ ******************************
    
26.             'With Sheets("¶×Á`").Range("A" & Sheets("¶×Á`").Rows.Count).End(xlUp).Offset(1)
    
27.             '   .Resize(Rng(2).Rows.Count, Rng(2).Columns.Count) = Rng(2).Value
    
28.             '    Rng(1).Parent.Hyperlinks.Add Anchor:=Rng(1).Offset(, 2), Address:="", SubAddress:=.Address(, , , 1), TextToDisplay:=.Parent.Name & "!" & .Address(0, 0)
    
29.             'End With
    
30.             '********************************************
    
31.             
    
32.         Else
    
33.             With Rng(1).Offset(, 2)
    
34.                 .Hyperlinks.Delete  'ªÑ²¼Web¿ù»~:§R°£¶W³sµ²
    
35.                 .Value = ""
    
36.             End With
    
37.             Err.Clear
    
38.         End If
    
39.         Set Rng(1) = Rng(1).Offset(1)
    
40.     Loop
    
41.     Application.StatusBar = " ¤u§@ §¹¦¨ !!"
    
42. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# blue2263
20# «ö¤U²ÕÁäCTRL+ESC+PAUSE,°±¤î¥¨¶°«á,->µM«á¦A¦¸°õ¦æ¥¨¶°·|Åܦ¨µLªk¦Û°Ê°õ¦æ¥¨¶°,,§AªºExcel¦³°ÝÃD.

°j°éªºµ{¦¡¤Ö¥Î Copy(¦û¥Î¸ê·½,´î½w³t«×),Select(¤Á´«¦ì¸m,¦û¥Î®É¶¡),¦h°Ñ¦Ò½d¨Ò,¦h½m²ß,·|¶i¨Bªº.

GBKEE

¦^´_ 23# blue2263
§A­n¦h¤F¸ÑVBAªº¤èªk.ÄÝ©Ê.¨ç¼Æ

ActiveCell.Offset(0, 0).Range("A1").Select
¤À¸Ñ:   .Offset(0, 0) :­ì¦ì¸m
        .Offset(0, 0).Range("A1") :­ì¦ì¸mªºA1
           ¨º¤£´N¤@¼Ë¬O ActiveCell

10# 39¦æµ{¦¡½X: ­ì¦ì¸m¤U²¾¤@¦C¦ì¸m

1.   Set Rng(1) = Rng(1).Offset(1)

½Æ»s¥N½X

GBKEE

¦^´_ 29# pollllopkimo

¤W¶ÇÀɮ׬ݬÝ