파일 오픈하지 않고 값을 배열로 받아 현재 작업하고 있는 파일 시트 레인지에 값 입력 하는 방법? (재 질문)

VBA
작성자
밍장군
작성일
2020-09-07 11:28
조회
50
지난 번 답변 일단 감사합니다

당시 ADO 라이브러리를 이용해 보라고 하셨는데 찾아보니까

Function getCellValue(filepath, filename, sheetname, row, column)
Dim msg As Variant
msg = "'" & filepath & "[" & filename & "]" & sheetname & "'!" & Cells(1, 1).Cells(row, column).Address(, , xlR1C1)
getCellValue = ExecuteExcel4Macro(msg)

End Function

이 방법이 동작 하더라구요

실제 "오빠두엑셀" 님 말대로 이게 열리는건지 아닌건지는 잘 모르겠지만

그런데 여기서 문제는 저기 셀 값만 빼서 반환하는데

이 부분을 배열로 반환할 수 없을까요?

 
밍장군
회원등급 : 가지1단계
포인트 : 325 EP
전체 4

  • 2020-09-07 16:29

    안녕하세요.

    위 적어주신 방법은 ado 라이브러리를 사용하는 방식이 아니며,배열반환은 불가능하며 시트의 값을 다른 시트로 옮기는 동작만 수행합니다.

    따라서 위 명령문으로 출력된 범위를 참조해서 배열로 반환하는 방법으로 구현하시면 되겠습니다.

    제시해드린 답변이 도움이 되셨길 바랍니다. 🙂


    • 2020-09-11 11:10

      그럼 저 코드에서 반환을 range 로 받아서 다시 배열로 넣는 작업을 거치란 말씀이세요

      아니면 cell 값 하나하나를 받아서 for 문 같은걸로 배열에 넣어야 된다는 말씀인가요?


      • 2020-09-11 13:47

        안녕하세요.
        Range를 배열로 반환하는건 간단합니다. 🙂

        예를 들어,

        Dim Rng as Range
        Dim vaRng as Variant
        
        Set Rng = Range("A1:B10")
        Set VaRng = Rng

        로 설정하시면 범위가 배열로 자동 반환됩니다.

        답변이 도움이 되셨길 바랍니다.


    • 2020-09-07 17:01

      ' Sub GetRange()
      ' With Range("g1:j50") 'set range to copy from / to.
      ' .Formula = "='C:\a\[a.xls]AllData'!A1" 'refers to a workbook, sheet and first cell.
      ' 'It will put the relative references into the target sheet correctly.
      ' .Value = .Value 'changes formula to value.
      ' End With
      ' End Sub
      일단 요 방법은 찾았습니다 만 열지 않은 데이터 파일 안에서 find 문을 쓸수가 없네요

      그래서 with 문으로 어떻게 해보려고 하는데

      Set test_book = Workbooks("\\172.30.145.135\evr data\" & today_year & "-" & today_month & "\" & today_day & "\" & lastModifiedFdr & "\" & today_total & ".xls")

      이 구문이 먹질 않습니다

      그리고 이거에 연결해서 worksheet 를 지정해서

      today_day.xls 를 이용해서

      set worksheet1 = worksheets("today_day.xls")

      with thisworkbook.worksheet1.sheets(1).usedrange

      '--------------------- .range ~~~~~

      end with

      이게 안되네요

      방법좀 가르쳐주세요


      전체 1,182
      번호 카테고리제목작성자작성일추천조회
      1178 VBA
      New HTS연동 된 값 질문 입니다.
      COXMAN | 2020.09.27 | 추천 0 | 조회 14
      COXMAN2020.09.27014
      1177 차트/그래프
      New 조건부서식 규칙관리자 첨부파일 (2)
      강재성 | 2020.09.27 | 추천 0 | 조회 19
      강재성2020.09.27019
      1176 문서서식
      New 행 2개로 구분되어 있는 텍스트를 열 2개로 만드는 방법은 없을까요..? (3)
      찬찬 | 2020.09.26 | 추천 0 | 조회 29
      찬찬2020.09.26029
      1175 함수/공식
      New 함수 참조 문제 첨부파일 (1)
      1oi1oi1oi | 2020.09.26 | 추천 0 | 조회 19
      1oi1oi1oi2020.09.26019
      1174 피벗테이블
      New 시간슬라이서와 피벗테이블 주 간격 생성방법 첨부파일 (3)
      iviolin**** | 2020.09.26 | 추천 0 | 조회 21
      iviolin****2020.09.26021
      1173 함수/공식
      New 섬프로덱트+인덱스매치 조합 외에도 다른 방식이 있는지 궁금합니다. 첨부파일 (1)
      달퐁이 | 2020.09.26 | 추천 0 | 조회 37
      달퐁이2020.09.26037
      1172 기능/도구
      New 엑셀늅인데 정렬에 관해서 궁금합니다 ㅠ (2)
      유녕 | 2020.09.25 | 추천 0 | 조회 32
      유녕2020.09.25032
      1171 파워쿼리/피벗
      New 데이터셋을 재구성하는 방법 질문.. 첨부파일 (2)
      김연수 | 2020.09.25 | 추천 0 | 조회 29
      김연수2020.09.25029
      1170 VBA
      VBA에서 변수로 영역 지정하는 방법과 구문의 구조에 대한 질문입니다 (3)
      공대생 | 2020.09.24 | 추천 0 | 조회 35
      공대생2020.09.24035
      1169 VBA
      웹 크롤링 관련 질문드립니다. (5)
      hall**** | 2020.09.24 | 추천 2 | 조회 49
      hall****2020.09.24249
      1168 함수/공식
      NaverFinanceSearch 함수 기능 문의 첨부파일 (2)
      알파보이 | 2020.09.24 | 추천 0 | 조회 38
      알파보이2020.09.24038
      1167 차트/그래프
      동적범위를 이용한 날짜 합계 구하는 함수 문의 (1)
      째쨈 | 2020.09.24 | 추천 0 | 조회 35
      째쨈2020.09.24035
      1166 피벗테이블
      대량의 두개의 데이터를 합친후 데이터수정 및 합계결과 뽑아내는법이 궁금합니다 (1)
      자유인 | 2020.09.24 | 추천 0 | 조회 37
      자유인2020.09.24037
      1165 VBA
      VBA 여러개 시트를 활용한 피벗데이블 질문 첨부파일 (4)
      sundaychefchef | 2020.09.23 | 추천 0 | 조회 41
      sundaychefchef2020.09.23041
      1164 VBA
      if문의 조건에 대해 질문드립니다. (6)
      엑셀늅늅이 | 2020.09.23 | 추천 0 | 조회 40
      엑셀늅늅이2020.09.23040
      1163 함수/공식
      엑셀 배열을 합칠 수 있는 방법이 있을까요? (7)
      나그네 | 2020.09.23 | 추천 0 | 조회 51
      나그네2020.09.23051
      1162 함수/공식
      경우의 수 관련 질문드립니다. (10)
      speedoo | 2020.09.23 | 추천 0 | 조회 50
      speedoo2020.09.23050
      1161 함수/공식
      데이터 뽑기 첨부파일 (1)
      soung**** | 2020.09.23 | 추천 0 | 조회 47
      soung****2020.09.23047
      1160 VBA
      기초적인 질문 하나만 할께요 2차원 배열에서 range값을 배열로 받아서 다른 시트에 배열 붙여넣는 방법이 어떻게 되나요 (1)
      밍장군 | 2020.09.23 | 추천 0 | 조회 22
      밍장군2020.09.23022
      1159 VBA
      (VBA) 도형서식 -> 채우기 -> 그림 또는 질감 채우기 -> 다음에서 그림 삽입 -> 클립보드 선택 구현 (1)
      건주 | 2020.09.23 | 추천 0 | 조회 29
      건주2020.09.23029
      1158 VBA
      엑셀이서도 검색어 자동완성기능을 구현할 수 있을까요? 첨부파일 (1)
      fre | 2020.09.23 | 추천 0 | 조회 30
      fre2020.09.23030
      1157 차트/그래프
      차트 최대값 및 Xfilter 함수 문의드립니다. (1)
      Elkins | 2020.09.23 | 추천 0 | 조회 27
      Elkins2020.09.23027
      1156 VBA
      WorkSheet_Change 와 같은 사용자 정의 함수를 만드는 방법은 없나요? (1)
      엑셀늅늅이 | 2020.09.22 | 추천 0 | 조회 29
      엑셀늅늅이2020.09.22029
      1155 파워쿼리/피벗
      상단바가 잠금 걸렸는데 왜이러는지 모르겠습니다. 첨부파일 (4)
      신윤재 | 2020.09.22 | 추천 1 | 조회 28
      신윤재2020.09.22128
      1154 문서서식
      이미지 삽입 후 크기를 조절해도 압축되지 않고 원본 해상도 유지하는 방법? (5)
      악순환의 굴레 | 2020.09.22 | 추천 0 | 조회 26
      악순환의 굴레2020.09.22026
      1153 VBA
      application.ontime 실행 시 멈추는 함수가 동작을 하지 않습니다 (재 질문, 오빠두 님 말대로 코드 수정 완료) - VBA 명령문 매 초마다 반복 (3)
      밍장군 | 2020.09.22 | 추천 0 | 조회 28
      밍장군2020.09.22028
      1152 함수/공식
      절대주소 고정했는데 셀 삽입하면 고정이 안되네요? (1)
      해랑사 | 2020.09.22 | 추천 0 | 조회 49
      해랑사2020.09.22049
      1151 기능/도구
      셀서식 왕초보 질문입니다! (3)
      Hannah | 2020.09.22 | 추천 0 | 조회 38
      Hannah2020.09.22038
      1150 VBA
      전역변수로 포맷까지 지정할 순 없나요? (2)
      밍장군 | 2020.09.22 | 추천 0 | 조회 25
      밍장군2020.09.22025
      1149 문서서식
      90일습관을 위한 엑셀 시트를 만들고 싶습니다. (3)
      파파깡 | 2020.09.22 | 추천 0 | 조회 40
      파파깡2020.09.22040