|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):2000
3. CPU (486,PentiumI/II/III/IV...):III
4. RAM (32,64,128,256,512MB,1G...): 128
* 아래줄에 질문을 작성하세요 >>
어제 훌륭한 답변 주셔서 정말 감사합니다.
혹시 강좌를 직접 진행하시는곳은 없나요? ^^ 들어보고 싶은데...
그리고 궁금한게 있습니다.
아래에서...7번열을 복사한 후...그것을 새로운 workbook에 복사하는 과정이
없음에도 불구하고...새로운 파일로 저장이 되는게 이해가 안됩니다.
바쁘시겠지만 설명을 좀 부탁드릴게요...
감사합니다.
1 Sub dhNewWorkbookFromSht()
2 Dim s As Worksheet
3 Dim wb As Workbook
4 Dim wbCur As Workbook
5 Set wbCur = ActiveWorkbook
6 For Each s In wbCur.Worksheets
7 s.Copy
8 Set wb = ActiveWorkbook
9 wb.SaveAs Application.DefaultFilePath & "\" & s.Name
10 wb.Close
11 Next s
12 End Sub
|
|