<06-14 모든 워크시트를 각각의 새 파일로 생성하기>
작성자 정보
- 모아 작성
- 작성일
컨텐츠 정보
- 21 조회
- 0 추천
- 0 비추천
- 목록
본문
<06-14 모든 워크시트를 각각의 새 파일로 생성하기>
Dim PN As String, FN As String
Dim sh As Worksheet
Application.ScreenUpdating = False
PN = ThisWorkbook.Path & "\"
For Each sh In ThisWorkbook.Worksheets
FN = sh.Name & ".xlsx"
If Dir(PN & FN) <> "" Then Kill PN & FN
sh.Copy
ActiveSheet.Buttons.Delete
ActiveWorkbook.SaveAs Filename:=PN & FN
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
Set sh = Nothing
출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]
|
포인트 선물 선물명단 선물하기
최소 5P ~ 최대 100000000P 까지 가능합니다.
로그인 후 선물하실 수 있습니다.
선물 받은 내용이 없습니다.
관련자료

모아
ex.9
-
등록일 05:56
-
등록일 05:56
-
등록일 05:56
-
등록일 05:55
댓글 0
등록된 댓글이 없습니다.