매크로 사용하여 다른 파일 의 sheet 열기

기능/도구
작성자
동방불패
작성일
2020-06-02 03:40
조회
6092

다른파일 sheet의 값을 복사하여 붙여넣기 한다음 피봇을 돌리는 매크로를 사용합니다.지금은 복사할 파일을 연다음은 매크로가 작동을 하나 파일을 열지 않으면 오류가 나옵니다. 매크로 사용시 파일을 열고 복사 그리고 다시 닫는 매크로로 만들고 싶습니다. 파일을 불러오는 매크로 부탁드립니다.

신고
스크랩
공유
전체 6

  • 2020-06-02 09:23

    @동방불패 님 ' open된 파일과 같은 위치의 특정 엑셀파일 열고 닫기
    Sub oPcLWbk(ByVal orgWbk As Workbook, ByVal fileNm As String)

    Dim pathNm As String
    Dim openWbk As Workbook

    ' 열려진 엑셀파일과 같은 위치라고 가정
    pathNm = orgWbk.Path

    Workbooks.Open Filename:=pathNm & "\" & fileNm
    ' 열린 파일 변수할당
    Set openWbk = ActiveWorkbook

    openWbk.Close

    Set openWbk = Nothing

    End Sub

    열린 엑셀파일과 (매크로를 실행할 엑셀파일) 같은 위치에 열어야 할 파일이 있다면 저런 프로시져로 open하고 close 할 수 있을 것 같아요!
    🙂


    • 2020-06-02 19:24

      @네모고래 님 감사합니다. 매크로에 복사 후 붙여넣기후 실행을 하면 "
      "컴파일 오류입니다.
      End Sub 가 필요합니다" 란 문구가 뜹니다.


      • 2020-06-03 11:12

        @동방불패 님 아마도 매크로 sub 내에 그대로 복사하신 것 같은데 별도의 sub로 매크로 sub 밑에다가 추가하시고 매크로 sub에서는 call로 저 sub를 불러서 사용하시면 되요!!
        ex) 매크로 파일과 같은 위치에 있는 test.xlsx라는 파일을 열고자 할때

        sub 매크로1()

        Call oPcLWbk(ThisWorkbook, "test.xlsx")

        end sub

        ------------------------------------------------------------------------------

        Sub oPcLWbk(ByVal orgWbk As Workbook, ByVal fileNm As String)
        ~
        ~
        end sub


        • 2020-06-05 19:04

          @네모고래 님 고래님 답변 감사합니다.
          제가 완전 매크로 문외한입니다. 만일 hydro status dB_wit 란 엑셀 파일을 열고 싶으면 어디에 이 파일네임을 넣어야 하나요?


          • 2020-06-16 09:12

            @동방불패 님 Sub 매크로1()

            ' 두번째 인수에다가 해당 파일 이름을 넣어주시면 됩니다.
            Call oPcLWbk(ThisWorkbook, "hydro status dB_wit.xlsx")

            End Sub

            ' open된 파일과 같은 위치의 특정 엑셀파일 열고 닫기
            Sub oPcLWbk(ByVal orgWbk As Workbook, ByVal fileNm As String)

            Dim pathNm As String
            Dim openWbk As Workbook

            ' 열려진 엑셀파일과 같은 위치라고 가정
            pathNm = orgWbk.Path

            Workbooks.Open Filename:=pathNm & "\" & fileNm
            ' 열린 파일 변수할당
            Set openWbk = ActiveWorkbook

            '--------------------------------------------
            ' 이 영역에 열린 엑셀파일(ex: hydro status dB_wit)을
            ' 대상으로 작업을 적으면 됩니다!
            ' 밑에 예시는 열린 엑셀파일(ex:hydro status dB_wit)의
            ' 파일이름을 Msgbox로 출력만 하게 한 예이니 참고하세요!

            MsgBox openWbk.Name & " 파일이 열렸습니다."

            '--------------------------------------------

            openWbk.Close

            Set openWbk = Nothing

            End Sub


            • 2020-06-18 13:53

              이건 혹시나 해서 팁으로 파일 이름이 특정셀에 연속으로 있는 경우라면 for each in ~ next 요거랑 range 객체를 통해서 파일 리스트 만큼 열었다 닫았다 할 수 있어요!!!
              소스는 아래와 같아요!!!

              Sub 매크로1()

              Dim fRng, tRng As Range

              ' A1셀부터 연속적으로 파일명이 있다고 가정
              Set fRng = Range(Range("A1"), Range("A1048576").End(xlUp))

              For Each tRng In fRng
              Call oPcLWbk(ThisWorkbook, tRng.Value)
              Next

              Set fRng = Nothing

              End Sub


전체 16,956
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 849682
오빠두엑셀 2022.02.03 554 849682
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31680
오빠두엑셀 2021.10.28 304 31680
74673 함수/공식
New 제조일자별 가장빠른 재고와 다음으로 빠른 위치 도출방법 문의 엑셀파일첨부파일 (2)
Joshu | 13:57 | 추천 0 | 조회 35
Joshu 13:57 - 35
74671 VBA
New 유튜브에서 소개하신 엑셀 문자발송 자동화 예제파일에 대한 문의 드립니다. (1)
jckim**** | 07:15 | 추천 0 | 조회 45
jckim**** 07:15 - 45
74669 피벗테이블
New 피벗테이블 날짜 그룹화에 원치 않는 범위 생성 첨부파일
단팥빵 | 01:08 | 추천 0 | 조회 43
단팥빵 01:08 - 43
74664 기능/도구
New 엑셀 빠른실행도구에 원하는 폰트 등록(바로가기) 가능한가요 ? (1)
불량감자 | 2024.11.01 | 추천 0 | 조회 55
불량감자 2024.11.01 - 55
74662 VBA
New LISTBOX 목록 상자를 만들려고 하는데 ... (1)
땡이 | 2024.11.01 | 추천 0 | 조회 63
땡이 2024.11.01 - 63
74660 함수/공식
New 엑셀처리 속도 관련 질문 (2)
캐쿨이 | 2024.11.01 | 추천 0 | 조회 79
캐쿨이 2024.11.01 - 79
74655
New 데이터 유효성검사 그룹화 하여 여러시트 값 넣기 해결방법 알려주세요 첨부파일 (1)
훅가 | 2024.11.01 | 추천 0 | 조회 68
훅가 2024.11.01 - 68
74654 함수/공식
New 필요 없는 열 숨기기 조건부서식 엑셀파일첨부파일 (2)
JL2 | 2024.11.01 | 추천 0 | 조회 62
JL2 2024.11.01 - 62
74653 VBA
New Form의 CommandButton에서 Module에 있는 매크로 사용방법 문의 첨부파일 (3) 답변완료
땡이 | 2024.11.01 | 추천 0 | 조회 54
땡이 2024.11.01 - 54
74651 문서서식
New 엑셀 번역 기능 질문 입니다. (1)
Foxtail011 | 2024.11.01 | 추천 0 | 조회 65
Foxtail011 2024.11.01 - 65
74649 함수/공식
New 이중 데이터 유효성 질문드립니다. 엑셀파일 (3)
반흔 | 2024.11.01 | 추천 0 | 조회 84
반흔 2024.11.01 - 84
74648 파워쿼리/피벗
New 파워쿼리 구분기호 사라짐 (1)
Byun_inn | 2024.11.01 | 추천 0 | 조회 63
Byun_inn 2024.11.01 - 63
74643 파워쿼리/피벗
New 파워쿼리 구분 키워드 설정 관련 첨부파일 (11) 답변완료
Byun_inn | 2024.11.01 | 추천 0 | 조회 80
Byun_inn 2024.11.01 - 80
74641 함수/공식
New 선택된 셀에 색상넣기 (셀에 만 적용) 수식 변경 부탁드립니다. (8)
갓바위 龍 | 2024.11.01 | 추천 0 | 조회 78
갓바위 龍 2024.11.01 - 78
74639 함수/공식
New 데이터유효성 검사를 통해 40배수의 수만 입력 (10)
쿠노이 | 2024.11.01 | 추천 0 | 조회 91
쿠노이 2024.11.01 - 91
74638 피벗테이블
New 피벗테이블 날짜 그룹화 원치 않는 범위가 뜹니다. (1) 답변완료
단팥빵 | 2024.10.31 | 추천 0 | 조회 76
단팥빵 2024.10.31 - 76
74633 문서서식
New 안녕하세요 게임 시스템 테이블 작성 배우고 있는데 기초적인 부분을 잘 모르겠어서 질문 드립니다! 첨부파일 (1) 답변완료
코니 | 2024.10.31 | 추천 0 | 조회 93
코니 2024.10.31 - 93
74632 기능/도구
New 챗gpt 연동해서 이미지로 된 표의 데이터를 가져오려고 합니다.
김수현 | 2024.10.31 | 추천 0 | 조회 97
김수현 2024.10.31 - 97
74628 구글시트
New IMPORTRANGE 함수에서 칸을 늘리면 사라지는데 고정하는 방법은 없을까요? (3)
야망이 | 2024.10.31 | 추천 0 | 조회 97
야망이 2024.10.31 - 97
74627 문서서식
New 조건부 서식 문의 엑셀파일첨부파일 (9)
배고픈짐승 | 2024.10.31 | 추천 0 | 조회 118
배고픈짐승 2024.10.31 - 118
74626 파워쿼리/피벗
New [파워쿼리] 여러 파일 한번에 불러올 때 데이터 유실 첨부파일 (3)
naa**** | 2024.10.31 | 추천 0 | 조회 81
naa**** 2024.10.31 - 81
74625 VBA
New 시트이동시 유저폼 실행방법 문의 (3) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 86
땡이 2024.10.31 - 86
74621 기능/도구
New 4개의 열 에서 같은 이름 가로로 정렬 (4)
Bukonge | 2024.10.31 | 추천 0 | 조회 88
Bukonge 2024.10.31 - 88
74618 VBA
New 유저폼에 바코드스캔시 입력속도 개선방법? (6) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 79
땡이 2024.10.31 - 79
74616 함수/공식
New Rawdata 첨부파일 (4)
HIHUGO | 2024.10.31 | 추천 0 | 조회 91
HIHUGO 2024.10.31 - 91
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (3)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 98
배고픈짐승 2024.10.30 - 98
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (3)
iwnqn | 2024.10.30 | 추천 0 | 조회 133
iwnqn 2024.10.30 - 133
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2) 답변완료
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 93
퉁퉁이 2024.10.30 - 93
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (9) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 117
저도해볼게요 2024.10.30 - 117
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 76
스톤스톤 2024.10.30 - 76