엑셀파일에 PDF 파일 일괄 첨부(객체 삽입)

안녕하세요, 파일 정리 하는데 엑셀파일을 사용하다 보면 객체 삽입 하는 경우가 은근 많더라고요

근데 아래와 같이 파일이 너무 많아요.... 이걸 언제 하나하나 첨부합니까. 그래서

일괄 PDF 객체 삽입 하는 것을 포스팅 하려고 합니다! 

오늘 정리작업 할 내용:

 

1. 파일명 추출 후 엑셀에 구분 저장

2. 객체 삽입 일괄 적용(PDF)

수많은 PDF 파일....

 

 

우선 폴더 내 수많은 파일을 불러와서 엑셀파일에 불러올게요.

일일이 직접 기입하는 분은 없으시죠 ^^?

1. CMD 실행 후 cd 경로 Enter.

  * ex) cd C:\Users\Jung\Desktop\임시\User\매출전표_2\

2. dir/b 입력

cmd 작업

출력된 부분 드래그 후 복사

 

3. 엑셀파일에 붙여넣기

엑셀파일 작업_시작

데이터 가공 작업 시작

데이터 Tab - 텍스트나누기 Click

 

엑셀파일 작업_텍스트나누기_(1/3)

엑셀파일 작업_텍스트나누기(2/3)

 

 

엑셀파일 작업_텍스트나누기(3/3)

위와 같이 텍스트 나누기 후 필요없는 부분 지워야겠죠!? 

저는 " _ " 부분과 ".pdf" 부분이 필요 없어서 지울거에요

1. 찾기/바꾸기(Ctrl+H) → 찾기: .pdf  /   바꾸기:  공백상태 그대로(아무것도 입력 안할것)

  * " _ " 부분도 동일하게 진행

엑셀파일 작업_찾기/바꾸기

2. VBA 언어(매크로) 코드 입력(코드 복사/붙여넣기)

  * 2-1 엑셀창에서 Alt + F11

  * 2-2 열린 창에서 삽입 - 모듈 Click

매크로 입력_(1/3)

매크로 입력_(2/3)

Sub InsertPDFs()
    Dim MyPath As String, MyFile As String
    Dim i As Integer
    
    'PDF 파일이 있는 폴더 경로 설정, 아래 " " 부분 안에 내용(경로)는 사용자에 맞게 변경하세요.
    MyPath = "C:\Users\Jung\Desktop\임시\User\매출전표_2\"
    
    'PDF 파일 개수만큼 반복
    MyFile = Dir(MyPath & "*.pdf")
    i = 2
    Do While Len(MyFile) > 0
        'PDF 파일 삽입
        ActiveSheet.OLEObjects.Add(Filename:=MyPath & MyFile, Link:=False, DisplayAsIcon:=False, Left:=0, Top:=i * 15, Width:=100, Height:=100).Select
        
        '다음 파일로 이동
        i = i + 1
        MyFile = Dir
    Loop
End Sub

 

 

위의 값 붙여넣기 후 키보드 F5 누르시면 아래와 같이 PDF 파일들이 한꺼번에 잘 첨부되는 모습을 볼 수 있습니다!!!!!

매크로 입력(3/3)

짜잔!!! 한 번에 지정된 폴더(경로) 내에 모든 PDF 파일 일괄첨부 였습니다!!!

 

아래 게시글은 PDF 파일 일괄첨부 후에 깔끔하게 정리하는 방법 입니다.

글이 길게 작성되어서 나누어서 게시하였습니다.

객체 삽입 파일 깔끔하게 정리

객체 삽입 파일 깔끔하게 정리

 

감사합니다.