µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» Object¸ê®Æ«ç»òÂà¨ìWorksheet!
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
Object¸ê®Æ«ç»òÂà¨ìWorksheet!
GBKEE
µoµu®ø®§
¥[¬°¦n¤Í
GBKEE
·í«eÂ÷½u
UID
16
©«¤l
5923
¥DÃD
13
ºëµØ
1
¿n¤À
5986
ª÷¿ú
5986
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
Office 2010
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥xÆW°ò¶©
¦b½u®É¶¡
4811 ¤p®É
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2022-1-23
¶W¯Åª©¥D
©«¤l
5923
¥DÃD
13
ºëµØ
1
¿n¤À
5986
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
Office 2010
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥xÆW°ò¶©
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2022-1-23
1
#
¸õÂà¨ì
»
µoªí©ó 2011-4-19 15:43
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
1#
chlungi
¸Õ¸Õ¬Ý
¤U¸ü
(12.01 KB)
2011-4-19 15:43
Sub ªÑ¥«¸ê®Æºô¶()
Dim Rng(1) As Range, i As Integer
With ActiveSheet
Set Rng(0) = .[C1] 'ªÑ²¼¥N¸¹¿é¤J³B
Set Rng(1) = .[B4] 'ªÑ²¼¼Æ¾Ú¦s©ñ°_©lÂI
End With
With CreateObject("InternetExplorer.Application")
.Navigate ("http://tw.stock.yahoo.com/q/q?s=" & Rng(0))
Do While .Busy = True
Loop
DoEvents
For i = 0 To .Document.all.Length - 1
If .Document.all(i).tagName = "TD" And Len(.Document.all(i).innerText) > 3 Then
If .Document.all(i).innerText Like "****/**/**" Then Rng(0).Offset(1, -1) = .Document.all(i).innerText '¨ú±o¸ê®Æªº¤é´Á
If .Document.all(i).innerText Like Rng(0) & "*" Then
Rng(1).Value = Mid(.Document.all(i).innerText, 1, InStr(.Document.all(i).innerText, "¥[") - 2) '¨ú±oªÑ²¼¥N¸¹¦WºÙ
Set Rng(1) = Rng(1).Offset(, 1) '³]©w¤UÓ¦ì§}
ElseIf Len(.Document.all(i).innerText) <= 5 Then
Rng(1).Value = .Document.all(i).innerText '¨ú±oªÑ²¼¼Æ¾Ú
Set Rng(1) = Rng(1).Offset(, 1) '³]©w¤UÓ¦ì§}
End If
End If
Next
.Quit
End With
End Sub
½Æ»s¥N½X
TOP
ÀR«ä¦Û¦b :
ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·