엑셀 두개의 파일 업데이트

http://kin.search.naver.com/search.naver?where=kin&sm=tab_jum&ie=utf8&query=%EC%97%91%EC%85%80%20%EC%97%B4%EC%A7%80%20%EC%95%8A%EA%B3%A0%20%EC%97%85%EB%8D%B0%EC%9D%B4%ED%8A%B8&&nso=so%3Ar%2Ca%3Aall%2Cp%3Aall

안녕하세요~

 

어차피 VBA 를 사용해야될 상황인것 같은데요...

 

파일을 열고 닫는거야 눈 깜짝할 사이에 이루어 지므로 크게 문제될건 없지 않나요?

 

sub Test()

dim ws1  as worksheet

dim ws2  as worksheet

dim wb1 as workbook

dim wb2 as workbook

 

application.screenupdating=false

application.calculation=xlcalculationmanual

set wb1=thisworkbook

set ws1=wb1.sheets("Sheet1")

set wb2=workbooks.open(thisworkbook.path & application.pathseparator & "B.xls")

set ws2=wb2.sheets("Sheet1")

ws2.range("K1").value=ws1.range("A1").value

application.calculate

ws1.range("B1:F1").value=ws2.range("L1:P1").value

wb2.close true

application.calculation=xlcalculationautomatic

application.screenupdating=true

end sub