엑셀 vba 다른파일 시트 불러오기 질문드립니다.

VBA
작성자
mizuki00
작성일
2022-07-18 17:41
조회
86
엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10


질문 요약 : 엑셀 vba 다른파일 시트 불러오기

 

엑셀 vba 중 다른파일에 있는 시트 내용을 불러오려고 하는데 파일 용량이 크다보니 불러오는데 시간도 많이걸리고 해서 현재 쓰고 있는 코드는

Dim file As String

Dim wb As Workbook, ws As Worksheet

Dim wb_Cur As Workbook, ws_Cur As Worksheet

Dim RowCnt1 As Integer

Dim RowCnt2 As Integer

Dim intNo As Integer

Application.ScreenUpdating = False

Sheets("재고리스트").Select

Columns("A:p").Select

Selection.ClearContents

file = Application.GetOpenFilename("Excel Files" & _

"(*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm", , "선택파일 불러오기")

intNo = 1

Set wb_Cur = ThisWorkbook

Set ws_Cur = wb_Cur.Sheets("재고리스트")

RowCnt1 = ws_Cur.Cells(Rows.Count, "A").End(xlUp).Row

Set wb = Workbooks.Open(file)

Set ws = ActiveWorkbook.Sheets(intNo)

RowCnt2 = ws.Cells(Rows.Count, "A").End(xlUp).Row

ws.Range(ws.Range("A2"), ws.Range("p" & RowCnt2)).Copy ws_Cur.Range("A" & RowCnt1)

wb.Close

이런식인데 좀더 빠르게 불러오는 방법이 있을까요? 불러올려는 파일 1.6mb정도 되는 엑셀파일입니다.

현재 올린 첨부파일보다 2배정도 양이 많습니다.

특히나 해당파일에서 예로들면 abd만 불러오거나 abd순을 dab순으로 볼러오고 싶은데 방법이 있을까요?

 

회원등급 : 4레벨
포인트 : 169 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 1

  • 2022-07-18 17:48

    @mizuki00 님 ADODB 를 사용하면 가능한데.. 지금 사용중이신 파일 1행, 4행에 db구조에 어긋나는 값이 있어서 우선 수정하셔야 할겁니다.

    adodb 사용하면 sql형태로 불러올 수 있어서 직접 파일을 실행해서 불러오는것보다 훨씬 빠르게 불러올수 있습니다


전체 7,395
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚교재 출간 안내] 「진짜쓰는 실무엑셀」 , 드디어 출간되었습니다! (135)
오빠두엑셀 | 2022.02.03 | 추천 387 | 조회 67960
오빠두엑셀 2022.02.03 387 67960
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 508
오빠두엑셀 2022.08.04 4 508
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 118 | 조회 6349
오빠두엑셀 2021.10.28 118 6349
41302 파워쿼리/피벗
New 다른 PC에서 웹 콘텐츠를 가져오려면 자격증명이 필요하다고 합니다. 해결방법을..
방구맨 | 08:07 | 추천 0 | 조회 2
방구맨 08:07 - 2
41300 파워쿼리/피벗
New 이 자료도 정규화 할 수 있을까요? 엑셀파일
김초보 | 06:15 | 추천 0 | 조회 13
김초보 06:15 - 13
41295 차트/그래프
New 데이터레이블 글꼴크기 조절 가능할까요ㅠㅠ 첨부파일 (1)
424**** | 2022.08.17 | 추천 0 | 조회 15
424**** 2022.08.17 - 15
41293 함수/공식
New 엑셀 마지막 셀 이동 버튼 match 함수 질문드립니다. (1)
박준홍 | 2022.08.17 | 추천 0 | 조회 19
박준홍 2022.08.17 - 19
41291 함수/공식
New 엑셀 문장 속에서 특정한 단어만 찾아내는 함수의 공식을 알고 싶습니다. (4) 답변완료
엑셀 초보자 | 2022.08.17 | 추천 0 | 조회 20
엑셀 초보자 2022.08.17 - 20
41288 VBA
New 웹페이지의 특정값을 가져오려고 합니다-고수님들 답변좀 부탁드립니다 첨부파일
tangle | 2022.08.17 | 추천 0 | 조회 21
tangle 2022.08.17 - 21
41286 함수/공식
New 음수 달성률 및 신장률 시에 ABS 함수 사용이유(feat. 신장률, 달성률) 첨부파일 (1)
darc**** | 2022.08.17 | 추천 0 | 조회 22
darc**** 2022.08.17 - 22
41284 VBA
New VBA로 PDF파일 변환 관련 질문입니다. 엑셀파일 (1)
k**** | 2022.08.17 | 추천 0 | 조회 28
k**** 2022.08.17 - 28
41283 VBA
New 리스트 박스에서 선택된 항목을 다시 클릭해서 선택 해제하기
내별 아빠 | 2022.08.17 | 추천 0 | 조회 11
내별 아빠 2022.08.17 - 11
41282 기능/도구
New 참조되는 셀 이동 단축키 미인식 첨부파일 (1)
민규지요 | 2022.08.17 | 추천 0 | 조회 13
민규지요 2022.08.17 - 13
41274 함수/공식
New OFFSET 함수를 이용한 매월 목표값 불러오기 엑셀파일 (4) 답변완료
흑설탕 | 2022.08.17 | 추천 0 | 조회 37
흑설탕 2022.08.17 - 37
41273 VBA
New 행이 다른 여러개의 각시트에 열의 합계 구하는게 가능할까요? 첨부파일 (4)
뚜이 | 2022.08.17 | 추천 0 | 조회 25
뚜이 2022.08.17 - 25
41272 함수/공식
New 빈셀일 경우 입력제한을 걸 수 없을까요? 첨부파일 (3) 답변완료
asya | 2022.08.17 | 추천 0 | 조회 24
asya 2022.08.17 - 24
41266 피벗테이블
New 엑셀 필터에서 기타항목 만들기 (3) 답변완료
pingu | 2022.08.17 | 추천 0 | 조회 25
pingu 2022.08.17 - 25
41256 함수/공식
New 조건이 2개가 일치하는 값 가져오기 엑셀파일 (2) 답변완료
포에버하윤둥이 | 2022.08.17 | 추천 0 | 조회 41
포에버하윤둥이 2022.08.17 - 41
41255 차트/그래프
New 가트너(Gartner)의 Hype cycle을 엑셀 차트로 표현할 수 있을까요? 엑셀파일첨부파일 (3) 답변완료
1kko | 2022.08.17 | 추천 0 | 조회 31
1kko 2022.08.17 - 31
41253 함수/공식
New 배열 형식으로 누적합을 표현 할수 있나요? 엑셀파일첨부파일
j**** | 2022.08.17 | 추천 1 | 조회 41
j**** 2022.08.17 1 41
41252 VBA
New 유저폼 옵션버튼에 점선을 지우고 싶어요. 첨부파일 (2)
033cola | 2022.08.17 | 추천 0 | 조회 26
033cola 2022.08.17 - 26
41250 함수/공식
New sumifs를 통해 월별 합산 데이터를 추출 했을 때, 해당 조회 기간 중, 최대값을 찾는 방법 엑셀파일첨부파일 (3) 답변완료
JeilK | 2022.08.17 | 추천 0 | 조회 28
JeilK 2022.08.17 - 28
41248 VBA
New 다수의 버튼 클릭 이벤트가 동일할 때 코드를 간단히 할수 있을까요? 첨부파일 (2)
늙은베짱이 | 2022.08.17 | 추천 0 | 조회 26
늙은베짱이 2022.08.17 - 26
41246 문서서식
New 엑셀에서 '계산 중 : (4 프로세서): 0%'와 계산중 (6 스레드): 0% 질문드립니다. (1) 답변완료
월마리아 | 2022.08.17 | 추천 0 | 조회 25
월마리아 2022.08.17 - 25
41241 문서서식
New 조건부 서식의 AND규칙이 올바르게 작동하지 않습니다. 첨부파일 (3) 답변완료
정성 | 2022.08.16 | 추천 0 | 조회 31
정성 2022.08.16 - 31
41239 VBA
New 생성한 UserForm 시작위치 설정 (4)
장주훈 | 2022.08.16 | 추천 0 | 조회 41
장주훈 2022.08.16 - 41
41231 함수/공식
New 지정한 지급일 이후의 오름차순 기준 7개의 고유일자 가져오기 첨부파일 (1)
이삭줍기 | 2022.08.16 | 추천 1 | 조회 39
이삭줍기 2022.08.16 1 39
41226 피벗테이블
New 피벗테이블에서 없는 항목을 표시하고 싶습니다. 첨부파일 (6) 답변완료
gaeko | 2022.08.16 | 추천 0 | 조회 39
gaeko 2022.08.16 - 39
41224 함수/공식
New (초보 질문) index + match 사용? 조건 4개 이상 데이터 가져오기 (4) 답변완료
JeilK | 2022.08.16 | 추천 1 | 조회 38
JeilK 2022.08.16 1 38
41223 기능/도구
New 데이터 필터 검색 기능 질문 첨부파일 (7) 답변완료
mksong | 2022.08.16 | 추천 0 | 조회 24
mksong 2022.08.16 - 24
41222 피벗테이블
New 피벗테이블로 제품별+월별(날짜)별 클릭률(CTR) 변화를 그래프로 표현하고자 합니다 첨부파일
박진우 | 2022.08.16 | 추천 0 | 조회 23
박진우 2022.08.16 - 23
41218 VBA
New 시트를 구분해서 PDF로 저장하는거까진 되는데 시트를 합치는게 안되서요.. 엑셀파일 (3) 답변완료
qkznl**** | 2022.08.16 | 추천 0 | 조회 47
qkznl**** 2022.08.16 - 47
41214 함수/공식
New 동일 파일 시트 단독 작업 후 붙여넣기 시 함수 참조값이 변경될 때 (2)
대전엑린이 | 2022.08.16 | 추천 0 | 조회 33
대전엑린이 2022.08.16 - 33