|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
Sub Test()
Dim IE As Object
Dim vals As Variant
Sheets("Sheet1").Range("A1:A1000") = "" ' erase previous data
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate "http://www.daum.net" ' should work for any URL
Do Until .ReadyState = 4: DoEvents: Loop
End With
IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
Sheets("Sheet1").Cells(1, 1).PasteSpecial Paste:=7
IE.Quit
End Sub
질문 : PasteSpecial 항에서 런타임 오류 발생하는데 구글링에도 답을 찾지 못하겠어요.. 고수님 한번 봐주시고 제 고민 좀 해결해주세요~~
|
|