- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-3
- ³Ì«áµn¿ý
- 2011-11-15
|
ºô¶¸ê®ÆÂà¨ìexcelªº°ÝÃD
·í§âºô¶ªº¸ê®Æcopy¨ìexcel®É¨C¤@¦æ·|Åܦ¨¤@®æ¸ê®Æ
§Ú·QÅý©Ò¦³¸ê®Æ¥Hì¨Óªº¼Ë¤l¶K¦b¦P¤@ÓÀx¦s®æ ¸Ó¦p¦ó°µ©O
§Úªºµ{¦¡½X¦p¤U
Sub IE()
Dim myhr
Dim IEbrowser As Object
Set IEbrowser = CreateObject("InternetExplorer.Application")
myhr = "http://tw.yahoo.com/"
With IEbrowser
.navigate myhr
Do While .busy
DoEvents
Loop
.document.execCommand "SelectAll", False
.document.execCommand "Copy", False
With Worksheets("Sheet1")
.Range("A" & .[A65536].End(3).Row + 1).Select
.Paste
End With
.Quit
End With
Set IEbrowser = Nothing
End Sub |
|