[엑셀] 웹상의 자료를 엑셀에 붙여넣기, 홈페이지, vba > information

웹상에 아래 표등이 있을 경우...<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

엑셀에서 붙여넣어서 사용하고 싶은 경우가 종종 있다.

그러나 막상 위 표를 복사하여 엑셀에 붙여넣으면 아래 형태처럼 되어 버린다.

조금은 갑갑한 노릇이다. 이문제를 해결한다면...

워드등을 동원하는 방법을 일단 제시하고 싶다.

워드에 위표를 붙여넣으면 표 내용그대로 붙여넣어진다.

다시 워드내용을 복사한 후, 엑셀에 붙여넣으면 되는데...

워드의 표를 엑셀에 붙여넣을때 주의할 점은

1. 붙여넣을 셀의 표시헝식은 텍스트로 해두어야 한다.

2. 또한 그냥 붙여넣기 하지 말고, 선택하여 붙여넣기-텍스트로 하여야 한다.

워드를 동원함이 없이 바로 vba로 해결하기를 원한다면 아래의 설명을 읽어보자.

PasteSpecial메서드에 대한 도움말을 살펴보면 용법은 다음과 같이 사용한다.

용법 : expression.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)

여기서 주의할 것은 NoHTMLFormatting인수이다.

NoHTMLFormatting을 True 로 해두면 HTML에서 서식, 하이퍼링크, 이미지를 모두 제거하고 붙여넣는다고 설명하고 있다.

따라서 인터넷상 표를 엑셀에 바로로 붙여넣기를 원할때는

ActiveSheet.PasteSpecial NoHTMLFormatting:=True

구문을 동작시키면 된다.(물론 붙여넣기를 원하는 셀의 표시형식은 텍스트로 설정해 두어야 한다는 점은 주의하시길...)

참고로 NoHTMLFormatting인수는 엑셀2000에는 없는 인수이다.