제가 잠깐 ㅋ
-
![[서경]in╂∑rNⓔⓔDs](//www.kiasportage.net/files/member_extra_info/profile_image/896/860/008/8860896.gif?20110823172625)
[서경]in╂∑rNⓔⓔDs - 1103
- 14
Sub OutSheets()
Application.DisplayAlerts = False
Dim i, j As Integer
Dim oriFileName, sPath, sFileName, Sheet_temp As String
oriFileName = "sponet.xls" 'Original Filename Here
sPath = "C:" 'Change path Here
For i = 1 To Workbooks(oriFileName).Sheets.Count
sFileName = Workbooks(oriFileName).Sheets(i).Name
Workbooks.Add
Sheet_temp = ActiveWorkbook.Name
Workbooks(oriFileName).Sheets(sFileName).Copy Before:=Workbooks(Sheet_temp).Sheets(1)
For j = 1 To 3
Workbooks(Sheet_temp).Sheets("Sheet" & j).Delete
Next j
Workbooks(Sheet_temp).SaveAs (sPath & sFileName)
Next i
End Sub
Application.DisplayAlerts = False
Dim i, j As Integer
Dim oriFileName, sPath, sFileName, Sheet_temp As String
oriFileName = "sponet.xls" 'Original Filename Here
sPath = "C:" 'Change path Here
For i = 1 To Workbooks(oriFileName).Sheets.Count
sFileName = Workbooks(oriFileName).Sheets(i).Name
Workbooks.Add
Sheet_temp = ActiveWorkbook.Name
Workbooks(oriFileName).Sheets(sFileName).Copy Before:=Workbooks(Sheet_temp).Sheets(1)
For j = 1 To 3
Workbooks(Sheet_temp).Sheets("Sheet" & j).Delete
Next j
Workbooks(Sheet_temp).SaveAs (sPath & sFileName)
Next i
End Sub
[서경]in..
공유
댓글 14
스포넷은 자동 등업 시스템입니다. 가입후 가입인사 게시판과 출고신고 게시판에 인사 남겨주세요. 함께 환영 댓글 다시면 어느새 등급이 올라갈겁니다. ^0^
oriFileName = "sponet.xls" 'Original Filename Here
요기에 화일 이름 적으시기가 귀찮으시다면..
==================================================
oriFileName = ActiveWorkbook.Name
위와 같이 고치셔두 됩니다.
위의 원본에서는 혹시나 해서, 특정화일에서만 가능하게끔 코딩했는데,
귀차니즘이 있다면,
-----------------------------------
oriFileName = ActiveWorkbook.Name
-----------------------------------
이걸로 바꾸세요..
요기에 화일 이름 적으시기가 귀찮으시다면..
==================================================
oriFileName = ActiveWorkbook.Name
위와 같이 고치셔두 됩니다.
위의 원본에서는 혹시나 해서, 특정화일에서만 가능하게끔 코딩했는데,
귀차니즘이 있다면,
-----------------------------------
oriFileName = ActiveWorkbook.Name
-----------------------------------
이걸로 바꾸세요..
그러면, 다시금 전체소스 리플로 적어드릴께용..
Sub OutSheets()
Application.DisplayAlerts = False
Dim i, j As Integer
Dim oriFileName, sPath, sFileName, Sheet_temp As String
sPath = "C:\"
oriFileName = ActiveWorkbook.Name
For i = 1 To Workbooks(oriFileName).Sheets.Count
sFileName = Workbooks(oriFileName).Sheets(i).Name
Workbooks.Add
Sheet_temp = ActiveWorkbook.Name
Workbooks(oriFileName).Sheets(sFileName).Copy Before:=Workbooks(Sheet_temp).Sheets(1)
For j = 1 To 3
Workbooks(Sheet_temp).Sheets("Sheet" & j).Delete
Next j
Workbooks(Sheet_temp).SaveAs (sPath & sFileName)
Next i
End Sub
Application.DisplayAlerts = False
Dim i, j As Integer
Dim oriFileName, sPath, sFileName, Sheet_temp As String
sPath = "C:\"
oriFileName = ActiveWorkbook.Name
For i = 1 To Workbooks(oriFileName).Sheets.Count
sFileName = Workbooks(oriFileName).Sheets(i).Name
Workbooks.Add
Sheet_temp = ActiveWorkbook.Name
Workbooks(oriFileName).Sheets(sFileName).Copy Before:=Workbooks(Sheet_temp).Sheets(1)
For j = 1 To 3
Workbooks(Sheet_temp).Sheets("Sheet" & j).Delete
Next j
Workbooks(Sheet_temp).SaveAs (sPath & sFileName)
Next i
End Sub
진짜 끝!~~
음.. 역시 이것도 소스라.. 삽질을..
한가지만, 추가해드리죠..
위의 소스들은, 저장하면서 화면에 저장된 화일들을 모두 띄우기 때문에,
나중에 열린창 닫기가 꿀꿀할 수도 있는데요..
창을 열고 확인하길 원하신다면.. 그대로 가고..
확인안하셔도 된다면,
Next i 윗부분에 한줄만 추가해주세요
-------------------
ActiveWindow.Close
-------------------
요고 한줄입니다.
아래는 다시금 전체소스..
한가지만, 추가해드리죠..
위의 소스들은, 저장하면서 화면에 저장된 화일들을 모두 띄우기 때문에,
나중에 열린창 닫기가 꿀꿀할 수도 있는데요..
창을 열고 확인하길 원하신다면.. 그대로 가고..
확인안하셔도 된다면,
Next i 윗부분에 한줄만 추가해주세요
-------------------
ActiveWindow.Close
-------------------
요고 한줄입니다.
아래는 다시금 전체소스..
Sub OutSheets()
Application.DisplayAlerts = False
Dim i, j As Integer
Dim oriFileName, sPath, sFileName, Sheet_temp As String
sPath = "C:\"
oriFileName = ActiveWorkbook.Name
For i = 1 To Workbooks(oriFileName).Sheets.Count
sFileName = Workbooks(oriFileName).Sheets(i).Name
Workbooks.Add
Sheet_temp = ActiveWorkbook.Name
Workbooks(oriFileName).Sheets(sFileName).Copy Before:=Workbooks(Sheet_temp).Sheets(1)
For j = 1 To 3
Workbooks(Sheet_temp).Sheets("Sheet" & j).Delete
Next j
Workbooks(Sheet_temp).SaveAs (sPath & sFileName)
ActiveWindow.Close
Next i
End Sub
Application.DisplayAlerts = False
Dim i, j As Integer
Dim oriFileName, sPath, sFileName, Sheet_temp As String
sPath = "C:\"
oriFileName = ActiveWorkbook.Name
For i = 1 To Workbooks(oriFileName).Sheets.Count
sFileName = Workbooks(oriFileName).Sheets(i).Name
Workbooks.Add
Sheet_temp = ActiveWorkbook.Name
Workbooks(oriFileName).Sheets(sFileName).Copy Before:=Workbooks(Sheet_temp).Sheets(1)
For j = 1 To 3
Workbooks(Sheet_temp).Sheets("Sheet" & j).Delete
Next j
Workbooks(Sheet_temp).SaveAs (sPath & sFileName)
ActiveWindow.Close
Next i
End Sub
이제 삼세번으로 마지막으로 이소스는 마무리 합니다요!~~~
아싸리!~~~
아싸리!~~~
이게 머에요~? ㅡ.ㅡ;;
음 역시.. 이럴줄 알았어!~~
VBA는 엑셀 매니아들 빼놓고는 역시나 안쓰시나??
괜히 적어드렸나봐.. ㅜㅜ
원질문자이신 성현아빠님이라도 이해하셨으면..
이해 못하시면 상세설명 들어갑니다요!~~
VBA는 엑셀 매니아들 빼놓고는 역시나 안쓰시나??
괜히 적어드렸나봐.. ㅜㅜ
원질문자이신 성현아빠님이라도 이해하셨으면..
이해 못하시면 상세설명 들어갑니다요!~~
헉..... ^^ 대략 난감... ^^
흠....
꼬부랑 꼬부랑 ㅡㅡ; ㅋㅋ
권한이 없습니다. 로그인
신고
"님의 댓글"
이 댓글을 신고 하시겠습니까?
뭐 앞뒤안가리고 대충한다고.. 좀 그렇지만. 될겁니다. ㅋ
vba사용하실줄 아시죠??
메크로에 저놈들 올려두시구요.. 한번 실행시키시면 됩니다.
이때 소스에서 바꿔줄게 있는데용..
------------------------------------------------
oriFileName = "sponet.xls" 'Original Filename Here
sPath = "C:\" 'Change path Here
------------------------------------------------
위의 2줄입니다.
sponet.xls 대신에 변환시킬 엑셀화일 이름 적으시구요.
다음줄의 C:\ 대신에 변환된 화일들이 저장될 위치를 지정하시면 됩니다.
끝!~~