FOR 이용하여 파일 가져오기

VBA
작성자
ArkGie
작성일
2021-09-24 14:23
조회
69
엑셀버전 : 엑셀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,261
번호 카테고리 제목 작성자 작성일 추천 조회
4245 함수/공식
New raw 데이터를 이용하여 복수 조건에 해당하는 데이터 나열하기 문의 (3)
신동 | 2021.10.22 | 추천 0 | 조회 39
신동 2021.10.22 0 39
4244 함수/공식
New if를 사용하여 값 참조하게하기 (3)
현표 | 2021.10.22 | 추천 0 | 조회 36
현표 2021.10.22 0 36
4243 차트/그래프
New 음영 셀만 그래프에 수치가 표기 되거나 강조되게 하는 방법이 있을까요? 첨부파일 (1)
은하상회 | 2021.10.22 | 추천 0 | 조회 20
은하상회 2021.10.22 0 20
4242 VBA
New Sheet간 이미지 복사 방법이 있을까요?..(셀병합, 범위..) 첨부파일
tu1541 | 2021.10.22 | 추천 0 | 조회 34
tu1541 2021.10.22 0 34
4241 문서서식
New 기초) 자동필터에서 와일드카드 검색 질문드립니다 (2)
월마리아 | 2021.10.22 | 추천 0 | 조회 31
월마리아 2021.10.22 0 31
4240 VBA
New 피벗테이블 필터자동 변경 문의드려요 ㅠㅠ 첨부파일 (1)
Jun0211 | 2021.10.21 | 추천 0 | 조회 34
Jun0211 2021.10.21 0 34
4239 함수/공식
New 셀 2개의 데이타를 ㄹ합치는 법 (4) 답변완료
마운틴 | 2021.10.21 | 추천 0 | 조회 47
마운틴 2021.10.21 0 47
4238 VBA
New 필터링된 값 붙여넣기 첨부파일 (8) 답변완료
지연 | 2021.10.21 | 추천 0 | 조회 53
지연 2021.10.21 0 53
4237 함수/공식
New 엑셀 수식을 부탁드립니다. 첨부파일 (1)
워싱턴 | 2021.10.21 | 추천 0 | 조회 39
워싱턴 2021.10.21 0 39
4236 VBA
New 도와주세요 첨부파일 (1)
현아 | 2021.10.21 | 추천 0 | 조회 35
현아 2021.10.21 0 35
4235 함수/공식
New 업체명으로 된 DB에서 업체명 + ~월 등 문자가 추가되었을때 DB에서 찾아오는 함수 수식 (3) 답변완료
이수철 | 2021.10.21 | 추천 0 | 조회 41
이수철 2021.10.21 0 41
4234 함수/공식
New 로우데이터에서 특정값을 찾아 값이 있을 경우와 없을 경우 결과 값을 지정하여 도출하는 방법이 궁금합니다. (1)
mysoul**** | 2021.10.21 | 추천 0 | 조회 30
mysoul**** 2021.10.21 0 30
4233 함수/공식
New x,y,z로 이루어진 방정식 두 개를 '해 찾기' 기능으로 풀 수 있을까요? (6)
고대하라 | 2021.10.21 | 추천 0 | 조회 46
고대하라 2021.10.21 0 46
4232 기능/도구
New 셀선택시 설명 팝업 (6) 답변완료
HYODONG | 2021.10.21 | 추천 0 | 조회 35
HYODONG 2021.10.21 0 35
4231 피벗테이블
New 정규화에 대한 문의 첨부파일 (1)
광개토태왕 | 2021.10.21 | 추천 0 | 조회 31
광개토태왕 2021.10.21 0 31
4230 차트/그래프
New 원형 차트에 슬라이서 연결 시 표시 방법 문의 드립니다. (1)
이찬우 | 2021.10.21 | 추천 0 | 조회 25
이찬우 2021.10.21 0 25
4229 함수/공식
New 대량의 데이터를 가지고 있는 다른 시트에서 중복값찾기 (6) 답변완료
라운 | 2021.10.21 | 추천 0 | 조회 54
라운 2021.10.21 0 54
4228 VBA
New 시간이 겹치거나 겹친 시간에 동일 이름이 중복될 경우 찾을려면 어떻게 하면 될까요? (4)
셀라푸우 | 2021.10.20 | 추천 0 | 조회 42
셀라푸우 2021.10.20 0 42
4227 VBA
New 데이터 범위설정 매크로 수식 (2)
젬마 | 2021.10.20 | 추천 0 | 조회 53
젬마 2021.10.20 0 53
4226 피벗테이블
New 피벗테이블 구성 (2)
광개토태왕 | 2021.10.20 | 추천 0 | 조회 45
광개토태왕 2021.10.20 0 45
4225 VBA
New (초보..)vba 웹크롤링(selenium 사용) 문자를 읽어오지않아 문의드립니다!! (4)
윌터너 | 2021.10.20 | 추천 0 | 조회 37
윌터너 2021.10.20 0 37
4224 함수/공식
New 함수 자동입력?
흑형 | 2021.10.20 | 추천 0 | 조회 58
흑형 2021.10.20 0 58
4223 기능/도구
구글 스프레드시트 이미지 인쇄 문제 (1)
민 쌤 | 2021.10.20 | 추천 0 | 조회 31
민 쌤 2021.10.20 0 31
4222 파워쿼리/피벗
파워쿼리 입문입니다. 시트 합치는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2021.10.19 | 추천 0 | 조회 59
월마리아 2021.10.19 0 59
4221 함수/공식
공부용 일정표 관련해서 자동 생성 질문드립니다.
1234느린열차 | 2021.10.19 | 추천 0 | 조회 34
1234느린열차 2021.10.19 0 34
4220 함수/공식
변화되는 값 추적하기 첨부파일 (1)
아자사랑 | 2021.10.19 | 추천 0 | 조회 50
아자사랑 2021.10.19 0 50
4219 함수/공식
셀에 포함된 특정단어 추출 함수 첨부파일 (6) 답변완료
마운틴 | 2021.10.19 | 추천 0 | 조회 80
마운틴 2021.10.19 0 80
4218 피벗테이블
피벗테이블에서 열 (레이블) 상위 10% 필터링 방법 문의 첨부파일 (3)
김성현19 | 2021.10.19 | 추천 0 | 조회 39
김성현19 2021.10.19 0 39
4217 함수/공식
다중조건으로 매출 순위 구하기 첨부파일 (8) 답변완료
newstar | 2021.10.19 | 추천 0 | 조회 60
newstar 2021.10.19 0 60
4216 파워쿼리/피벗
Expression.Error: Table 형식의 값을 Binary 형식으로 변환할 수 없습니다 첨부파일 (3)
슝슝 | 2021.10.19 | 추천 0 | 조회 32
슝슝 2021.10.19 0 32