엑셀 개체삽입하는 vba를 인터넷 찾아보다가 아래 문구를 발견하였는데
마지막 명령문 myfile= dir
제가 vba초보라서 이게 무슨의미로 사용된건지 잘 몰르겠습니다.
my=file = dir 이게 어떤 역할을 하는건가요?
Sub InsertPDFs()
Dim MyPath As String, MyFile As String
Dim i As Integer
'PDF 파일이 있는 폴더 경로 설정, 아래 " " 부분 안에 내용(경로)는 사용자에 맞게 변경하세요.
MyPath = "C:UsersJungDesktop임시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
관련 링크
https://sppechless.tistory.com/19
커뮤니티 전체
엑셀 vba질문
📅 2025년 08월 28일 15:19
👁 조회 290
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 1 / 971게시글 제목
날짜
조회
추천
3일 전
조회 132
0
답글 2
답변 완료
주민번호에서 남,여 추출 수식..
3일 전
조회 152
0
답글 4
해결
3일 전
조회 149
0
답글 2
해결
4일 전
조회 169
0
답글 1
4일 전
조회 180
0
답글 3
답변 완료
물품별로 코드를 만들어야합니다
4일 전
조회 182
0
답글 2
해결
4일 전
조회 159
0
답글 2
5일 전
조회 208
0
답글 2
해결
5일 전
조회 171
0
답글 1
답변 완료
시트명 참조 문의 드립니다.
6일 전
조회 207
0
답글 3
해결
답변 완료
엑셀 함수 SUBTOTAL 질문드립니다.
6일 전
조회 192
0
답글 1
해결
6일 전
조회 296
0
답글 4
2026.02.06
조회 369
0
답글 8
2026.02.06
조회 302
0
답글 2
2026.02.05
조회 461
0
답글 4
2026.02.05
조회 336
0
답글 7
2026.02.04
조회 376
0
답글 3
해결
2026.02.04
조회 283
0
답글 1
2026.02.04
조회 356
0
답글 1
2026.02.04
조회 350
0
답글 6
해결

MyFile = Dir(MyPath & "*.pdf")
다시 아래와 같이 파일명이 없이 그냥 사용하면
MyFile = Dir
같은 필터(MyPath & "*.pdf")로 다음 파일명을 가져오게 합니다.
=> 결과적으로 계속해서 이름 필터에 맞는 다음 파일명을 얻어 옵니다.
원래 괄호 안을 안넣어도 자동필터가 적용되는것인지와
만약 해당 폴더에 1.pdf와 2.pdf가 존재하는 경우
1.pdf 뽑아내고 다음 2.pdf로 갈때 어떻게 1.pdf가 아닌 2.pdf로 넘어갈수 있는지 저 명령문에서는 이해가 안가는데 혹시 조금만 더 설명 부탁드려도 될까요?
do loop 에서 다음것으로 넘어가려면 row=1
row=row+1 이런식으로 다음으로 넘어가게 하는 연결문이 있어야 되는것으로 아는데 위 명령문에서는 다음으로 넘어가는 문구가 안보여서요.
처음 필터로 Dir를 하면 대상 파일명의 첫번째가 넘어오고,
다음 Dir를 그냥 하면 두번째, 다시 하면 세번째...
없으면 ""이 될 겁니다.
그냥 1+1은 2라고 배운 것처럼 그냥 그렇습니다.