엑셀 vlookup vba 문의드립니다.

VBA
작성자
ㅈㄱㄹ
작성일
2021-11-28 21:31
조회
197
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

현재 원본파일에 시험결과2.csv파일의 특정부분을 가져오는거까지는 되는데요.
시험결과2.csv파일이 꼭 열려있어야만 작동을 하더라구요.
파일이 열려있지않아도 작동할수있게 할수는 없을까요?
또 데이터가져올때 비어있는부분이나 오류난걸 iferror같은걸로 걸러주는것도 가능할까요?
전문가분들 도움 부탁드립니다.
Sub Vlookup_VBA()
'Application.VLOOKUP(lookup_value, table_array, column_index, range_lookup)
    Dim lookFor As Range
    Dim table_array As Range
    Dim varResult As Variant
    Dim table_array_col As Integer
    Dim lookFor_col As Integer
    Dim oldTime As Single  '코드 시작시점 넣을 변수
    'oldTime = Timer
    Set lookFor = Range("h3:h200")
'Set lookFor = Range([h3], Cells(Rows.Count, "A").End(3))
    'Set table_array = Range("F7:H21")
      '// 같은 Sheet 에 있는 테이블을 지정할 때
    'Set table_array = Worksheets("Table_array").Range("A2:C16")
      '// 다른 Sheet 에 있는 테이블을 지정할 때
    ' strpath = "C:\kjmacro/"
  ' fname = Dir(strpath & "시험결과2.csv")
    Set table_array = Workbooks("시험결과2.csv").Sheets("시험결과2").Range("A1:F500").Activate
      '// 다른 File 에 있는 Sheet 를 지정할 때
    table_array_col = 3  '// table_array 에서 몇번째 열의 값을 가져올 것인지 설정
    varResult = Application.VLookup(lookFor.Value, table_array, table_array_col, 0)
    lookFor_col = 1  '// lookFor.Value 열로부터 몇번째 열인지 지정. 0/1/2/3 순으로 카운트 함
    lookFor.Offset(0, lookFor_col) = varResult
     'MsgBox "총 " & Format(Timer - oldTime, "#0.00") & " : 초 소요"
End Sub
회원등급 : 4레벨
포인트 : 175 EP
총질문 : 6 개 (마감율 : 83%)
채택답변 : 0 개
전체 4

  • 2021-11-29 20:46

    답변 정말 감사합니다. 저도 처음에 비슷한 생각으로 파일을 열고 vlookup이 되게

    해봤었는데 결과치 적용이 시험결과2.csv 파일에 되더라구요.

    함수입력할때 경로설정도 해봤었는데 그것도 적용이 안되구요.

    뭐 하나만 바꿔주면 될것같은데 찾질못하겠네요.


  • 2021-11-28 23:43
    채택된 답변

    명령문 앞에 파일을 하나 실행하고 종료하는걸 추가해보세요.

    Dim TempBook As WorkBook
    Set TempBook = Application.WorkBook.Open(경로)
    
    명령문 종료 후
    
    TempBook.Close

    VLOOKUP 함수 자체가 닫힌 파일에서는 불러올수가 없기 때문에 그렇고.. 닫힌 파일에서 불러올라면 함수를 입력할 때 파일경로.파일명.시트명!범위 를 다 입력해줘야 합니다


    • 2021-11-29 20:58

      @더블유에이 님 새로 열린 파일이 선택되어지는데 기존파일을 select나 액티브시키면 될것같은데

      그런 명령어도 있을까요?


    • 2021-11-29 21:11

      @더블유에이 님 아.. 해결했습니다. 정말 감사합니다. 선생님글에 힌트를 얻어서 잘 해결했습니다.

      정말 감사합니다.

       


전체 5,221
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (32)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 824
트로피 오빠두엑셀 2021.10.12 23 824
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (23)
오빠두엑셀 | 2021.10.28 | 추천 33 | 조회 2502
트로피 오빠두엑셀 2021.10.28 33 2502
26454 VBA
New Excel VBA _ Select 하지않고 바로 작업하는 방법 (1)
백일호 | 16:34 | 추천 1 | 조회 12
백일호 16:34 1 12
26444 VBA
New 네이버 웹페이지 특정 정보 가져오기 질문
엑셀초보(LV.1) | 14:09 | 추천 0 | 조회 13
엑셀초보(LV.1) 14:09 0 13
26441 VBA
New vba 코딩으로 다른 시트 데이터 가져오기 질문입니다. 첨부파일 (1)
qkrwo**** | 13:34 | 추천 0 | 조회 22
qkrwo**** 13:34 0 22
26440 피벗테이블
New 3개의 피벗테이블 필터 값을 동시에 변경하는 방법이 알고 싶어요 첨부파일
forest choi | 13:19 | 추천 0 | 조회 15
forest choi 13:19 0 15
26439 VBA
New VBA 네이버 부동산 크롤링 질문
엑셀초보(LV.1) | 12:55 | 추천 0 | 조회 18
엑셀초보(LV.1) 12:55 0 18
26421 문서서식
New 엑셀과 워드 메일머지 강의에는 예제파일이 없나요?
pcs**** | 01:30 | 추천 0 | 조회 21
pcs**** 01:30 0 21
26420 함수/공식
New 회원자료실 커스텀 일정표에서 조건추가하여 사용하고싶은데 질문있습니다 !
창동명 | 01:27 | 추천 0 | 조회 21
창동명 01:27 0 21
26410 피벗테이블
New 피벗 테이블에서 취소선을 표현하는 방법 첨부파일 (1)
퉁퉁이 | 2022.01.25 | 추천 0 | 조회 39
퉁퉁이 2022.01.25 0 39
26408 기능/도구
New 표에서 바로만든 슬라이서도 보고서연결 기능과 비슷하게 만들 수 있나요? (2)
차가운열매 | 2022.01.25 | 추천 0 | 조회 31
차가운열매 2022.01.25 0 31
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일 (6) 답변완료
km**** | 2022.01.25 | 추천 0 | 조회 46
km**** 2022.01.25 0 46
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법
콩순이 | 2022.01.25 | 추천 0 | 조회 25
콩순이 2022.01.25 0 25
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일 (1)
박우성 | 2022.01.25 | 추천 0 | 조회 37
박우성 2022.01.25 0 37
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 2022.01.25 | 추천 0 | 조회 24
유정 2022.01.25 0 24
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (2) 답변완료
김원석 | 2022.01.25 | 추천 0 | 조회 33
김원석 2022.01.25 0 33
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 2022.01.25 | 추천 0 | 조회 34
병욱 2022.01.25 0 34
26378 피벗테이블
New 피벗테이블 집계 오류 (5) 답변완료
가을남자 | 2022.01.25 | 추천 0 | 조회 41
가을남자 2022.01.25 0 41
26371 VBA
New VBA 항목별 행렬전환 문의 첨부파일 (6) 답변완료
H.B | 2022.01.25 | 추천 1 | 조회 44
H.B 2022.01.25 1 44
26368 문서서식
New 셀에 입력시 자음 모음 분리문제 (1)
흑형 | 2022.01.25 | 추천 0 | 조회 28
흑형 2022.01.25 0 28
26366 VBA
New ■ 셀에 삽입된 메모 수량 카운팅하는 방법 첨부파일 (5) 답변완료
비스타 | 2022.01.25 | 추천 1 | 조회 54
비스타 2022.01.25 1 54
26360 함수/공식
New 엑셀 데이터통합 기능 이용시 합계가 달라지는 이유 첨부파일 (5)
wlfl**** | 2022.01.25 | 추천 0 | 조회 47
wlfl**** 2022.01.25 0 47
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (4) 답변완료
sunjong**** | 2022.01.24 | 추천 0 | 조회 70
sunjong**** 2022.01.24 0 70
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일
병욱 | 2022.01.24 | 추천 0 | 조회 36
병욱 2022.01.24 0 36
26339 VBA
New 많은 텍스트상자안 문자 찾기 (4)
noeu**** | 2022.01.24 | 추천 -1 | 조회 53
noeu**** 2022.01.24 -1 53
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (3) 답변완료
말창 | 2022.01.24 | 추천 0 | 조회 52
말창 2022.01.24 0 52
함수/공식
New Re:지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? (1)
Lucas's | 2022.01.24 | 추천 0 | 조회 33
Lucas's 2022.01.24 0 33
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 2022.01.24 | 추천 0 | 조회 31
sickp**** 2022.01.24 0 31
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (8) 답변완료
아마테라스 | 2022.01.24 | 추천 0 | 조회 57
아마테라스 2022.01.24 0 57
26329 VBA
New VBA 자동으로 그룹 구분하여 sheet split 기능 행열 전환 관련 질문드립니다. 첨부파일
shon**** | 2022.01.24 | 추천 -1 | 조회 22
shon**** 2022.01.24 -1 22
26324 기능/도구
New 파일 오류로 열리지 않습니다. (2)
가을남자 | 2022.01.24 | 추천 0 | 조회 28
가을남자 2022.01.24 0 28
26323 함수/공식
New 불려오는 data 행 길이에 따라 자동으로 행길이 바뀌도록 하는 수식/기능 관련 첨부파일 (2)
엑초파 | 2022.01.24 | 추천 0 | 조회 37
엑초파 2022.01.24 0 37
26308 VBA
New pdf 로 자동 저장하고 싶습니다. 첨부파일 (1) 답변완료
wan**** | 2022.01.24 | 추천 0 | 조회 46
wan**** 2022.01.24 0 46