|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
황기성님이 주신 답은 정말 유용하게 사용했습니다. 그런데 다시 문제가 생겼습니다.
다름아니라 열린화일이 같은이름으로 열린다는 겁니다. 그래서 차례대로 복사가 이뤄지지 않습니다.
열릴때 화일명은 kin![1].xls kin![2].xls kin![1].xls 이렇게 열리거든요
참고로 엘셀화일은 웹과 링크되어 열리게 되어 있습니다.
이렇게 열린 화일을 구분하여 차례대로 복사하기 위해서는 같은 숫자로 열린화일을 구분해야되는데 방법이 없을까요
구현하고싶은 구문
For Each w In Workbooks
w.Activate
If ActiveWorkbook.Name = "고객.xls" Then
MsgBox ActiveWorkbook.Name
Else
MsgBox ActiveWorkbook.Name
kin자료 <- 자료정리을 위한 서브
Application.DisplayAlerts = False
w.Close <-여기서 화일을 닫으면 같은숫자의 다른 화일이 닫혀버립니다.
Application.DisplayAlerts = True
End If
그리고 상식으로는 같은 화일이름으로는 열리지 않는걸로 알고 있는데 위와같이 같은 이름으로 열리는 이유도 알고 싶습니다.(링크가 되서?) |
|