매크로 사용하여 다른 파일 의 sheet 열기
기능/도구
작성자
동방불패
작성일
2020-06-02 03:40
조회
6092
다른파일 sheet의 값을 복사하여 붙여넣기 한다음 피봇을 돌리는 매크로를 사용합니다.지금은 복사할 파일을 연다음은 매크로가 작동을 하나 파일을 열지 않으면 오류가 나옵니다. 매크로 사용시 파일을 열고 복사 그리고 다시 닫는 매크로로 만들고 싶습니다. 파일을 불러오는 매크로 부탁드립니다.
전체 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 |
@동방불패 님 ' 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 할 수 있을 것 같아요!
🙂
@네모고래 님 감사합니다. 매크로에 복사 후 붙여넣기후 실행을 하면 "
"컴파일 오류입니다.
End Sub 가 필요합니다" 란 문구가 뜹니다.
@동방불패 님 아마도 매크로 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
@네모고래 님 고래님 답변 감사합니다.
제가 완전 매크로 문외한입니다. 만일 hydro status dB_wit 란 엑셀 파일을 열고 싶으면 어디에 이 파일네임을 넣어야 하나요?
@동방불패 님 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
이건 혹시나 해서 팁으로 파일 이름이 특정셀에 연속으로 있는 경우라면 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