[VBA/엑셀] 문서 내 모든 시트 pdf 파일로 변경하기 메크로

안녕하세요,

구칠씀입니다!

 

 

요즘 저요...,

다시 코딩 공부를 하고 있습니다!!!

🤓

 

 

 

 

정말 사람 일은 어떻게 될지 모른다고

제가 컴공인 전공에서 벗어난 취직을 했다고 생각했는데

엑셀을 하게 되고 엑셀을 하니 VBA를 하게 되고

엇...? 정신을 차리고 보니 다시 코딩 공부를 하고 있습니다 🙄

 

 

 

기웃기웃하다 보니 생각보다 재밌...?

VBA를 공부하고 필요한 업무에 적용도 해보니

시간도 줄고 하니까 보람이 느껴져서 더 그런 것 같아요!

 

 

 

 

물론 아직 많이 잘 모르는 초보 단계지만요!

차근차근 배워가다 보면 

 잘 만들어 놓은 메크로가

일을 나눠 맡아해 주리라 기대해봅니다 ㅎㅎ

 

 

 

여기저기 지혜도 구하고

저에게 맞게 수정한 코드입니다!

 

 

 

일명!

 

모든 시트 PDF 파일로 바꿔주는 메크로

---

Sub 시트pdf로저장()
 
' 시트pdf로저장 매크로
' 문서 내 시트를 pdf로 변환하여 (해당폴더에) 저장한다
 
 
    Dim s_name As String '시트 이름 저장 변수
    Dim i As Integer '반복문 변수
    
    ChDir "C:\Users\바탕 화면"
    
    For i = 1 To Worksheets.Count
        Sheets(i).Select
        s_name = ActiveSheet.Name
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            s_name, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
    Next i
    
End Sub
 

.

.

.

🤖
간단하게 설명드리겠습니다!
👉 문서 내 모든 시트를 PDF 파일로 변환하여 저장해주는 메크로입니다.
👉 저장 위치는 바탕화면이에요!
👉 파일명은 편의상 각 시트 이름으로 저장이 되는 것이 특징

.

.

.

---

 

 

작명 센스가 부족해서 저렇게 지었지만

지혜로우신 방문자님들은

찰떡같이 검색해서 찾아주시리라 저는 믿습니다🙏

 

 

 

💖💖💖💖💖

필요하신 분들은 유용하게 사용해주시되

댓글, 하트 눌러주시면

감사드리겠습니다!!!

💖💖💖💖💖

 

 

 

궁금하신 것 있으면 댓글 달아주셔요!

아는 한에 다 알려드리겠습니다

 

 

또 공부해서 돌아오겠습니다!