다른시트명 불러오기 vba

VBA
작성자
야야야야구르트
작성일
2021-10-18 23:52
조회
615
엑셀버전 : M365

운영체제 : 윈도우10

안녕하세요! 외부선택파일에서 데이터를 불러오는 vba에 선택파일의 시트명도 불러오는 것을 하고싶습니다!

현재 외부선택파일에서 데이터를 불러오는 것 까지는 실행이 되는데

시트명을 불러오는 과정에서 감이 안잡히네요 ㅠㅠ

두번째 코드창에서 범위설정하는 것 좀 조언이나 도움주실분 계실까요??

Sub cmd_Run_Click()
    Dim F_Name, F_Format As String '파일경로와 파일양식 구분
    Dim MyWB, OPWB As Workbook '현재 작업파일, 참조할 작업파일
    Dim OPRng As Range '참조할 작업파일 범위
 
    Set MyWB = ActiveWorkbook '현재 작업파일을 mywb로 지정
    F_Name = (Txt_Path.Value) '파일이름 불러오기
    Application.ScreenUpdating = False
        F_Format = Right(F_Name, 4) '파일명의 끝에서 4자리를 가져옴
        If F_Format = "xlsm" Or F_Format = "xlsx" Or F_Format = ".xls" Then
            Set OPWB = Workbooks.Open(Txt_Path)
            For Each OPRng In OPWB.Sheets(1).Range("c9:c50")
                If MyWB.Sheets(14).Range(OPRng.Address).Text = "" And OPRng.Value2 <> "" Then
                    MyWB.Sheets(14).Range(OPRng.Address).Value = OPRng.Text
                End If
 
            Next OPRng
            OPWB.Close
        End If
    Application.ScreenUpdating = True
    Unload Me
Dim k, m As Integer
 
k = 4
 
Act_File_Name = ActiveWorkbook.Name
F_Name = (Txt_Path.Value)
 
Windows(Act_File_Name).Activate
 
ActiveWindow.ActivateNext
 
For m = 1 To Workbooks(Range("B2").Value).Sheets.Count
 
Range("B" & (k + m)).Value = Workbooks(Range("B2").Value).Sheets(m).Name
 
 
Next
 
스크랩
공유
전체 3

  • 2021-10-20 12:33

    @야야야야구르트 님 첨부 파일 참조하세요. Sheet List를 새로 불러 오는 excel workbook에 sheet를 추가하여 하는 것으로 하였으나 불러 오는 Sheet에 Listing하는 것도 가능하겠죠?

    첨부파일 : WorkBookwithSheet.xlsm


  • 2021-10-19 13:07

    @야야야야구르트 님 명령문 중간에

    Set OPWB = Workbooks.Open(Txt_Path)
    For Each OPRng In OPWB.Sheets(1).Range("c9:c50")

    이 부분 사이에다가

    MsgBox OPWB.Sheets(1).Name

    넣어보세요. 나머지는 적절히 활용하시면 될 듯 합니다..^^


  • 2021-10-20 18:40

    @야야야야구르트 님 OpRng는 독립적 Object로 인식이 안되는 것 아닌가요???


전체 7,839
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (6)
오빠두엑셀 | 2022.09.28 | 추천 5 | 조회 276
오빠두엑셀 2022.09.28 5 276
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 5 | 조회 1708
오빠두엑셀 2022.08.04 5 1708
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (97)
오빠두엑셀 | 2021.10.28 | 추천 125 | 조회 7487
오빠두엑셀 2021.10.28 125 7487
42696 VBA
New VBA 리스트박스 목록 선택 시 자동 누적 입력하기 안됨 해결방법 엑셀파일
GMART | 2022.10.01 | 추천 0 | 조회 15
GMART 2022.10.01 - 15
42695 파워쿼리/피벗
New 파워쿼리 병합 후 정렬에 대해서 질문드립니다. 엑셀파일첨부파일
월마리아 | 2022.10.01 | 추천 0 | 조회 10
월마리아 2022.10.01 - 10
42689 VBA
New 셀의 이미지를 복사하는 매크로... 첨부파일
실런 | 2022.10.01 | 추천 0 | 조회 22
실런 2022.10.01 - 22
42686 문서서식
New 영상 자료파일
뿌삐뿌찌빵꾸똥 | 2022.10.01 | 추천 0 | 조회 27
뿌삐뿌찌빵꾸똥 2022.10.01 - 27
42684 문서서식
New 조건부 서식 색 적용 안됨 첨부파일 (3)
아드키 | 2022.10.01 | 추천 0 | 조회 27
아드키 2022.10.01 - 27
42678 VBA
New VBA코드 오류뜨는데 왜 일까요ㅠㅠ 첨부파일 (2)
엑셀공부중 | 2022.10.01 | 추천 0 | 조회 28
엑셀공부중 2022.10.01 - 28
42676 함수/공식
New 함수조언 구합니다. 엑셀파일
엑셀공부중 | 2022.09.30 | 추천 0 | 조회 29
엑셀공부중 2022.09.30 - 29
42672 기능/도구
New 조건부 서식이 적용되지 않습니다. 첨부파일
dollffin | 2022.09.30 | 추천 0 | 조회 30
dollffin 2022.09.30 - 30
42670 피벗테이블
New 관계형데이터베이스 파워피벗 엑셀파일 (2) 답변완료
겸둥이 | 2022.09.30 | 추천 0 | 조회 37
겸둥이 2022.09.30 - 37
42669 함수/공식
New 출퇴근 자료를 이용하여 근태 테이블 작성하기 (index, match, iferror 함수 사용) 엑셀파일 (1)
공학 | 2022.09.30 | 추천 0 | 조회 38
공학 2022.09.30 - 38
42667 VBA
New M365 2206 버전의 VBA 자동화 오류 관련하여 문의를 드리고자 합니다
lililililil | 2022.09.30 | 추천 0 | 조회 24
lililililil 2022.09.30 - 24
42665 함수/공식
New if 함수 논리 설정 시 범위 선택 첨부파일 (2)
구찌갱 | 2022.09.30 | 추천 0 | 조회 30
구찌갱 2022.09.30 - 30
42664 문서서식
New 엑셀 날짜관련 질문드립니다. 첨부파일 (1)
엑셀잘할래요 | 2022.09.30 | 추천 0 | 조회 30
엑셀잘할래요 2022.09.30 - 30
42661 함수/공식
New 함수 조언구합니다. 엑셀파일 (2) 답변완료
엑셀공부중 | 2022.09.30 | 추천 0 | 조회 38
엑셀공부중 2022.09.30 - 38
42660 기능/도구
New 27인치 4K모니터로 엑셀을 하면... (1)
9 Crimes | 2022.09.30 | 추천 0 | 조회 45
9 Crimes 2022.09.30 - 45
42656 함수/공식
New 떨어진 여러 셀간의 AVERAGEIF 함수 사용 (1) 답변완료
아홉열 | 2022.09.30 | 추천 0 | 조회 35
아홉열 2022.09.30 - 35
42655 피벗테이블
New 피벗테이블에서 날짜 값 중에 "월"이 표시되었으면 합니다. 첨부파일 (7) 답변완료
twou**** | 2022.09.30 | 추천 0 | 조회 42
twou**** 2022.09.30 - 42
42653 VBA
New 엑셀 함수가 적용된 셀 영역에 round를 하는 방법 엑셀파일 (9) 답변완료
우산쓰자 | 2022.09.30 | 추천 0 | 조회 31
우산쓰자 2022.09.30 - 31
42651 함수/공식
New 수식 사용 시 결과값 오류 문의 엑셀파일 (3) 답변완료
병알 | 2022.09.30 | 추천 0 | 조회 28
병알 2022.09.30 - 28
42650 피벗테이블
New 관계형데이터 -파워피벗 관련 질문드려요. 엑셀파일 (2) 답변완료
겸둥이 | 2022.09.30 | 추천 1 | 조회 31
겸둥이 2022.09.30 1 31
42648
New OFFSET함수 관련 문의 첨부파일 (9)
콕콕이 | 2022.09.30 | 추천 0 | 조회 42
콕콕이 2022.09.30 - 42
42643 기능/도구
New 셀 병합 관련 알림 끄는 법 첨부파일 (1)
이종현 | 2022.09.30 | 추천 0 | 조회 29
이종현 2022.09.30 - 29
42635 VBA
New 원드라이브에 공유된 엑셀간에 VBA를 사용해서 데이터를 가져올수 있을까요 ?
헬롱 | 2022.09.30 | 추천 0 | 조회 30
헬롱 2022.09.30 - 30
42632 파워쿼리/피벗
New 파워쿼리 내에서 vlookup함수와 같은 기능이 없을까요? 엑셀파일첨부파일 (3)
월마리아 | 2022.09.30 | 추천 0 | 조회 46
월마리아 2022.09.30 - 46
42621 기능/도구
New 셀 하나당 그래프 하나를 만드는 방법이 궁금합니다. 첨부파일 (2) 답변완료
XD | 2022.09.29 | 추천 0 | 조회 45
XD 2022.09.29 - 45
42619 함수/공식
New 행방향으로으로 정열된 동일항목의 비고를 열방향으로 정열하는 방법 엑셀파일첨부파일 (8)
마운틴 | 2022.09.29 | 추천 0 | 조회 45
마운틴 2022.09.29 - 45
42618 VBA
New 블로그 문서 발행량 크롤링 서식을 다른 파일에서 이용하려면? 첨부파일 (3) 답변완료
XD | 2022.09.29 | 추천 0 | 조회 27
XD 2022.09.29 - 27
42612 함수/공식
New 다중 조건으로 하나의 결과값을 도출하고 싶습니다. 엑셀파일첨부파일 (2) 답변완료
배워배움 | 2022.09.29 | 추천 0 | 조회 38
배워배움 2022.09.29 - 38
42610 피벗테이블
New 엑셀 문서 재정리및 재정렬(부탁드려요 ㅠㅠ) 엑셀파일 (1)
u2y1gz71vdif | 2022.09.29 | 추천 0 | 조회 40
u2y1gz71vdif 2022.09.29 - 40
42607 기능/도구
New 엑셀 프로그램 2개를 하나의 파일로 합치는 방법이 있을까요? 엑셀파일 (2) 답변완료
노무인턴 | 2022.09.29 | 추천 0 | 조회 46
노무인턴 2022.09.29 - 46