VBA로 폴더내 모든 파일데이터 땡겨오기

VBA
작성자
H.B
작성일
2021-12-17 19:19
조회
120
엑셀버전 : M365

운영체제 : 윈도우10


안녕하세요.

첨부링크처럼 도움을 받아서,  폴더 내의 모든 파일을 경로지정하여 나름대로 데이터를 가져와 현재 SHEET에

붙여넣는데 성공하였습니다!!!

다만, 문제는 모폴더 내의 자폴더의 파일이 몇백개가 넘어서 모두 열고 닫고하면서 데이터를 가져오는게 엄청난 시간이

걸립니다..... 단순히 파일을 열어서 COPY, Pastespacial을 하는 방법말고 ARRAY를 활용하여, ARRAY에 데이터를 넣어서

오빠두님의 ARRAYTORNG를 써써 한번에 뿌려주면 속도가 빨라지지 않을까 생각중입니다만.....

방법이 생각나지를 않네요 ㅠㅠ 첨부파일 보시고 조언 부탁드립니다 ㅠ

Sub testchu()
 
Dim sPath As String
Dim arr As Variant
Dim WB As Workbook, WS As Worksheet
Dim i As Long
Dim motolng As Long, copylng As Long
 
 
sPath = ActiveSheet.Range("b2").Value
arr = ListFiles(sPath, True, True)  '폴더 경로내의 파일 list
 
For i = LBound(arr) To UBound(arr)
 
     Set WB = Application.Workbooks.Open(arr(i), UpdateLinks:=False, ReadOnly:=True) '데이터 복사 붙이기
            motolng = WB.Sheets(1).Range("a3000").End(xlUp).Row
            copylng = ThisWorkbook.Sheets(2).Range("a3000").End(xlUp).Row
 
             WB.Sheets(1).Range(Cells(5, 1), Cells(motolng, 313)).Copy
             ThisWorkbook.Sheets(2).Range("a" & copylng + 1).PasteSpecial xlPasteValuesAndNumberFormats
            WB.Close
 
Next i
End Sub

 

전체 0

전체 5,212
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (31)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 806
트로피 오빠두엑셀 2021.10.12 23 806
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (22)
오빠두엑셀 | 2021.10.28 | 추천 32 | 조회 2491
트로피 오빠두엑셀 2021.10.28 32 2491
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일
km**** | 18:52 | 추천 0 | 조회 3
km**** 18:52 0 3
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법
콩순이 | 18:38 | 추천 0 | 조회 7
콩순이 18:38 0 7
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일
박우성 | 18:08 | 추천 0 | 조회 14
박우성 18:08 0 14
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 17:06 | 추천 0 | 조회 13
유정 17:06 0 13
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (1)
김원석 | 15:47 | 추천 0 | 조회 20
김원석 15:47 0 20
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 15:07 | 추천 0 | 조회 25
병욱 15:07 0 25
26378 피벗테이블
New 피벗테이블 집계 오류 (5)
가을남자 | 11:56 | 추천 0 | 조회 31
가을남자 11:56 0 31
26371 VBA
New VBA 항목별 행렬전환 문의 첨부파일 (6) 답변완료
H.B | 10:57 | 추천 1 | 조회 31
H.B 10:57 1 31
26368 문서서식
New 셀에 입력시 자음 모음 분리문제 (1)
흑형 | 09:25 | 추천 0 | 조회 26
흑형 09:25 0 26
26366 VBA
New ■ 셀에 삽입된 메모 수량 카운팅하는 방법 첨부파일 (5) 답변완료
비스타 | 08:56 | 추천 1 | 조회 42
비스타 08:56 1 42
26360 함수/공식
New 엑셀 데이터통합 기능 이용시 합계가 달라지는 이유 첨부파일 (5)
wlfl**** | 00:24 | 추천 0 | 조회 39
wlfl**** 00:24 0 39
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (4) 답변완료
sunjong**** | 2022.01.24 | 추천 0 | 조회 66
sunjong**** 2022.01.24 0 66
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일
병욱 | 2022.01.24 | 추천 0 | 조회 29
병욱 2022.01.24 0 29
26339 VBA
New 많은 텍스트상자안 문자 찾기 (2)
noeu**** | 2022.01.24 | 추천 -1 | 조회 44
noeu**** 2022.01.24 -1 44
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (3) 답변완료
말창 | 2022.01.24 | 추천 0 | 조회 50
말창 2022.01.24 0 50
함수/공식
New Re:지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? (1)
Lucas's | 2022.01.24 | 추천 0 | 조회 30
Lucas's 2022.01.24 0 30
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 2022.01.24 | 추천 0 | 조회 27
sickp**** 2022.01.24 0 27
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (8) 답변완료
아마테라스 | 2022.01.24 | 추천 0 | 조회 49
아마테라스 2022.01.24 0 49
26329 VBA
New VBA 자동으로 그룹 구분하여 sheet split 기능 행열 전환 관련 질문드립니다. 첨부파일
shon**** | 2022.01.24 | 추천 -1 | 조회 19
shon**** 2022.01.24 -1 19
26324 기능/도구
New 파일 오류로 열리지 않습니다. (2)
가을남자 | 2022.01.24 | 추천 0 | 조회 27
가을남자 2022.01.24 0 27
26323 함수/공식
New 불려오는 data 행 길이에 따라 자동으로 행길이 바뀌도록 하는 수식/기능 관련 첨부파일 (1)
엑초파 | 2022.01.24 | 추천 0 | 조회 34
엑초파 2022.01.24 0 34
26308 VBA
New pdf 로 자동 저장하고 싶습니다. 첨부파일 (1)
wan**** | 2022.01.24 | 추천 0 | 조회 42
wan**** 2022.01.24 0 42
26295 파워쿼리/피벗
New 피벗테이블 '각 필드에 유지할 항목 수'에서 질문입니다. (3)
월마리아 | 2022.01.23 | 추천 0 | 조회 36
월마리아 2022.01.23 0 36
26294 함수/공식
New 합계값이 일치하지 않는 값 구하기! (1)
정해인 | 2022.01.23 | 추천 0 | 조회 43
정해인 2022.01.23 0 43
26290 함수/공식
New 기간구분 IF함수 에러 원인이 뭔지 모르겠어요 (6) 답변완료
마운틴 | 2022.01.23 | 추천 0 | 조회 50
마운틴 2022.01.23 0 50
26285 함수/공식
New 이번주 시작일(월요일), 마지막일(금요일) yyyy-mm-dd 형식으로 출력하는 방법 (1)
joeee | 2022.01.23 | 추천 0 | 조회 42
joeee 2022.01.23 0 42
26284 피벗테이블
New 피벗 테이블 날짜인식 및 월별 그룹화 관련 첨부파일 (3)
baechu9 | 2022.01.23 | 추천 0 | 조회 33
baechu9 2022.01.23 0 33
26278 피벗테이블
New 피벗테이블 영상보면서 따라해보고 있는데요 잘안되요 ㅠ 첨부파일 (1)
희야맘 | 2022.01.23 | 추천 0 | 조회 27
희야맘 2022.01.23 0 27
26276 문서서식
New [조건부 서식] 아직 데이터가 입력되지 않은 칸에 조건부 서식 적용하지 않도록 하기 첨부파일
jo2 | 2022.01.23 | 추천 0 | 조회 33
jo2 2022.01.23 0 33
26268 함수/공식
New 조건부서식 내에서 INDIRECT 함수와 AND 함수를 함께 사용할 수 없나요? (10)
나는나 | 2022.01.22 | 추천 0 | 조회 77
나는나 2022.01.22 0 77
26260 함수/공식
각 지점별 연,월 매출의 합을 구하고 싶습니다. 첨부파일 (4) 답변완료
창이 | 2022.01.22 | 추천 1 | 조회 52
창이 2022.01.22 1 52