- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¦^´_ 5# chairles59
§A¸Õ¸Õ- Sub »ù¦ì§ó·s()
- Application.ScreenUpdating = False
- Sheets(1).Activate
- rc = Cells(Rows.Count, 1).End(xlUp).Row
- For i = 3 To rc
- Range("r1:az10").ClearContents
- sn = Cells(i, 1)
- With ActiveSheet.QueryTables.Add(Connection:="URL;https://tw.stock.yahoo.com/q/q?s=" & sn, Destination:=Range("$s$1"))
- .WebFormatting = xlWebFormattingNone
- .WebTables = "4,7"
- .Refresh BackgroundQuery:=False
- .Delete
- End With
- Range("b1") = Left(Range("w1"), 10)
- Cells(i, 10) = Range("t5")
- Cells(i, 9) = Range("u5")
- Next
- Range("r1:az10").ClearContents
- Range("a1").Select
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X
ªÑ²¼.zip (18.68 KB)
|
|