- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 16
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2012-3-10
- ³Ì«áµn¿ý
- 2015-1-15
|
¥H¤U¬° white5168 ¤j¤j©Ò´£¨Ñªºµ{¦¡½X¡A¥u¬O¤£ª¾¹D¸Ó¦p¦ó§@¥N½X(¦p6257)ªºÅܧó¡A¨D§U!!!
¹Á¸Õ¹L
set STK = sheets("sheet1").range("M1").value
¦A§â Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.asp.htm"
§ï¦¨ Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_" & STK & ".asp.htm"
¦ý¬O¥X²{¿ù»~¡A¤£ª¾¹D¸Ó¦p¦ó§@¥N½X(¦p6257)ªºÅܧó¡A¨D§U!!!
Sub Test()
Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.asp.htm"
Cells.Clear
Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
With ie
.Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
.Navigate url
Do While .ReadyState <> 4 'µ¥«Ýºô¶¶}±Ò
DoEvents
Loop
.ExecWB 17, 2 'Select All
.ExecWB 12, 2 'Copy selection
Sheets("Sheet1").Cells.Select
Range("A1").Activate
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With
Columns("A:B").Delete
ie.Quit
MsgBox "¸ê®Æ½Æ»sµ²§ô"
End Sub |
|