FOR 이용하여 파일 가져오기

VBA
작성자
ArkGie
작성일
2021-09-24 14:23
조회
67
엑셀버전 : 엑셀2019

운영체제 : 윈도우10


파일 열지 않고 시트 가져오기 코드가 있습니다.

 

파일을 반복하여 열고 작업하고 저장하고를 하고싶습니다.

FOR 문구를 이용하여 반복하고 싶은데..[폴더의 이름들을 숫자로 넣어서 가능하게 생각했습니다. 파일명은 같습니다]

아래 그림과 같이 오류가 뜨는거 같습니다. 어떻게 해야할지요?

제가 사용하는코드 넣어보겠습니다.

 

감사합니다.

For ABC = 1 To 15
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '시트가져오기
    Dim rngS1 As Range
    Dim cntRows1 As Long
    Dim fPath1 As String
    Dim File1 As Object
 
 
    fPath1 = "C:\Users\DNLZMF\Desktop\업로드 전\" & ABC & "\DNLZMF.xls"
    Set File1 = GetObject(fPath1)
 
    Set rngS1 = File1.Sheets(1).UsedRange
    Set rngS1 = rngS1.Offset(0).Resize(rngS1.Rows.Count - 1)
    cntRows1 = rngS1.Rows.Count
 
    Sheets("AA").Cells(Rows.Count, "a").End(3)(1).Resize(cntRows1, 67) = rngS1.Value
 
    File1.Close
    Set File1 = Nothing
 
Next ABC

 

Snipaste_2021-09-24_14-01-09.jpg

전체 4

  • 2021-09-30 15:22

    다른 엑셀 파일의 정보 가져오기 - 오빠두엑셀 (oppadu.com)

    찾으시는 정보가 맞는지 모르겠지만.. 홈페이지에 검색해보니 비슷한 질문이 있어 링크 남겨드려요

    구글에 ADODB Closed WorkBook 검색하시면 관련예제 많이 찾아보실 수 있을겁니다


    • 2021-10-01 15:22

      감사합니다.

      확인후 응용해 보겠습니다.

      귀한시간내주셔서 감사드려요!


  • 2021-09-24 16:58

    어디서 어떤 오류가 발생하시는 건가요?

    Set File1 = GetObject(fPath1)

    이렇게 엑셀 데이터를 불러올 수 있는지 모르겠네요..  아래 첨부한 사진은 오류가 아니라 파일 형식을 선택하는 건데, 엑셀 파일을 오브젝트로 불러와서 출력된 창입니다.

    파일을 열지 않고 데이터 편집하려면 ADO 레코드셋 사용하셔야 됩니다


    • 2021-09-28 17:04

      그방법을 여쭤봐도 될까요..?

      말씀하신대료
      Set File1 = GetObject(fPath1)
      에서에러가 나네요 ㅠ


전체 4,227
번호 카테고리 제목 작성자 작성일 추천 조회
4211 함수/공식
New 엑셀 수식 가로로 하는법 첨부파일
KT | 11:08 | 추천 0 | 조회 9
KT 11:08 0 9
4210 함수/공식
New 유효성검사를 통해 다른시트의 데이터 중 매출액이 있는 데이터만 불러오는 방법 첨부파일
emp**** | 10:34 | 추천 0 | 조회 9
emp**** 10:34 0 9
4209 VBA
New 이미지넣는 매크로, 다시 열어보니 사진이 안떠요
흑형 | 09:08 | 추천 0 | 조회 12
흑형 09:08 0 12
4208 함수/공식
New 조건에 맞는 값 추출될 수 있도록 수식 질문드립니다 첨부파일 (1)
젬마 | 08:43 | 추천 0 | 조회 16
젬마 08:43 0 16
4207 기능/도구
New 하나 이상의 수식이 허용된 8,192자 제한보다 깁니다.
City0311 | 08:41 | 추천 0 | 조회 9
City0311 08:41 0 9
4206 VBA
New 재질문 : ParseJSON 함수 첨부파일
하늘의 꿈 | 01:48 | 추천 0 | 조회 17
하늘의 꿈 01:48 0 17
4205 VBA
New 다른시트명 불러오기 vba
야야야야구르트 | 2021.10.18 | 추천 0 | 조회 25
야야야야구르트 2021.10.18 0 25
4204 VBA
New 유저폼에서 리스트 검색 후, 선택목록 내용 보기 첨부파일
007 | 2021.10.18 | 추천 0 | 조회 18
007 2021.10.18 0 18
4203 함수/공식
New 변하는 변수값 고정시키기 첨부파일
아자사랑 | 2021.10.18 | 추천 0 | 조회 18
아자사랑 2021.10.18 0 18
4202 VBA
New VBA로 사용자정의폼을 동시에 여러개 띄울수 있나요? (2) 답변완료
가을전어 | 2021.10.18 | 추천 0 | 조회 35
가을전어 2021.10.18 0 35
4201 VBA
New vba 웹 크롤링 공부중 질문이 있습니다! 첨부파일
VBA시작하자 | 2021.10.18 | 추천 0 | 조회 22
VBA시작하자 2021.10.18 0 22
4200 VBA
New VBA의 Find활용 특정날짜 복붙 첨부파일 (4) 답변완료
H.B | 2021.10.18 | 추천 1 | 조회 32
H.B 2021.10.18 1 32
4199 함수/공식
New 부품과 완제품 수량 연동 질문입니다. 첨부파일 (2) 답변완료
receive | 2021.10.18 | 추천 1 | 조회 37
receive 2021.10.18 1 37
4198 VBA
New 시트별 셀수정 관련 질문드립니다 첨부파일 (4) 답변완료
ehrud**** | 2021.10.18 | 추천 0 | 조회 39
ehrud**** 2021.10.18 0 39
4197 기능/도구
New 엑셀 추가기능 XFILTER를 사용한 파일이 XFILTER 가 설치되어있는 다른PC에서 열때 오류가 납니다. (2)
No14 | 2021.10.18 | 추천 2 | 조회 25
No14 2021.10.18 2 25
4196 기능/도구
New 엑셀데이터유효성검사 질문입니다 꼭 도와주세용 첨부파일 (4) 답변완료
하곰 | 2021.10.18 | 추천 0 | 조회 42
하곰 2021.10.18 0 42
4195 함수/공식
New 동적엑셀 서식 (2)
| 2021.10.18 | 추천 0 | 조회 32
2021.10.18 0 32
4194 함수/공식
New 합계 및 합수값 해결방법 첨부파일 (2)
kk**** | 2021.10.18 | 추천 0 | 조회 32
kk**** 2021.10.18 0 32
4193 VBA
New 특정날짜 데이터만 COPY 붙이기 첨부파일 (4) 답변완료
H.B | 2021.10.18 | 추천 0 | 조회 37
H.B 2021.10.18 0 37
4192 함수/공식
New 강의실내용 교재로 받을수 있나요?
호반안개 | 2021.10.18 | 추천 0 | 조회 30
호반안개 2021.10.18 0 30
4191 함수/공식
New 월별 매출을 위해 서식을 짜고있습니다 첨부파일 (2)
크래용 | 2021.10.18 | 추천 0 | 조회 46
크래용 2021.10.18 0 46
4190 VBA
New ParseJSON 함수 자리차지 첨부파일 (3) 답변완료
하늘의 꿈 | 2021.10.18 | 추천 0 | 조회 41
하늘의 꿈 2021.10.18 0 41
4189 VBA
New vba listbox 에 head 추가하는 방법 (1)
서민철 | 2021.10.17 | 추천 0 | 조회 36
서민철 2021.10.17 0 36
4188 함수/공식
New 다품목 안전 재고 관리시 사용할 수 있는 함수 문의
엑셀왕왕초보 | 2021.10.17 | 추천 0 | 조회 33
엑셀왕왕초보 2021.10.17 0 33
4187 함수/공식
New importrange로 불러온 그림이 인쇄가 안됩니다..ㅠㅠ (2) 답변완료
민 쌤 | 2021.10.17 | 추천 0 | 조회 27
민 쌤 2021.10.17 0 27
4186 함수/공식
New 꼭 도와 주세요. 첨부파일 (3)
그린의달인 | 2021.10.16 | 추천 1 | 조회 66
그린의달인 2021.10.16 1 66
4185 함수/공식
New 공백 유지하는 중복 제거 문의 첨부파일 (4) 답변완료
clairebear8 | 2021.10.16 | 추천 0 | 조회 54
clairebear8 2021.10.16 0 54
4184 함수/공식
New 엑셀 공식 도와주세요~ 첨부파일 (1)
ma**** | 2021.10.16 | 추천 0 | 조회 57
ma**** 2021.10.16 0 57
4183
제가 만든 엑셀VBA가 오류들이 있어 도움을 청합니다. 첨부파일 (1)
유림아빠 | 2021.10.16 | 추천 0 | 조회 38
유림아빠 2021.10.16 0 38
4182 차트/그래프
이런 챠트도 가능한지요 (1)
| 2021.10.16 | 추천 0 | 조회 63
2021.10.16 0 63