VBA 시트 및 파일 병합 질문입니다.
기능/도구
작성자
병욱
작성일
2022-05-03 16:56
조회
39
기존 유튜브에 나왔던 Excel 시트 및 파일 병합에 필요한 기능들을 첨가하는 형태로 VBA 설계했습니다.
문제점은
- 병합한 내용을 내부(해당파일) 또는 외부(엑셀 파일생성)에 저장할 수 있도록 기능을 추가하는 과정에서 문제가 발생했습니다. 내부에 저장하는 경우, 시트이름 중복 여부에 대해 확인할 수 있는 반면, 외부에 저장하는 경우 해당 폴더 내 같은 이름을 가진 파일이 있는지 확인하는 방법을 모르겠습니다. 현재는 동일 이름이 있어도 파일이 생성이 진행되며 기존 파일을 제거됩니다.
- 코드에서 '질문부분 표시되어 있는 부분이 있습니다. 정상작동은 되나 Workbook을 open/close 하는 코드가 들어있는데 sheet 하나를 복사할 때마 workbook을 한번씩 껐다키는 형태로 제가 생각하기에 너무 비효율적입니다. 어디서부터 손을 대야될지 모르겠네요. ㅠ
고수님들 도움부탁드립니다.
전체 6,403
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8)
![]() ![]() |
![]() ![]() |
2022.04.30 | 9 | 1126 | ||
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(62)
오빠두엑셀
|
2021.10.28
|
추천 79
|
조회 4438
|
![]() ![]() |
2021.10.28 | 79 | 4438 |
34219 | 기능/도구 |
New 주말 날짜가 적힌 셀의 행 일부분이 자동으로 색 채우기가 되는 방법 있나요?
![]() ![]() |
![]() |
00:59 | 0 | 15 |
34218 | 함수/공식 |
New VLOOKUP 함수 여러개 값 가져오기에서 빈셀은 빼고 데이터가 작성된 것만 가져오기 문제 관련
![]() ![]() |
![]() |
00:26 | 0 | 16 |
34213 | 함수/공식 |
New [vlookup] 다른 엑셀파일 출력값의 ture 값 색변경하기
![]() ![]() |
![]() |
2022.05.19 | 0 | 14 |
34205 | VBA |
New [택배송장만들기] 수량만큼 행추가하고 복사하기
![]() ![]() |
![]() |
2022.05.19 | 0 | 25 |
34204 | 파워쿼리/피벗 |
New 쿼리 평수값에서 m2 제거하고 숫자만 남길 수 있는 방법 있을까요?
(1)
![]() |
![]() |
2022.05.19 | 0 | 26 |
34202 | 파워쿼리/피벗 |
New 쿼리파일에서 한 칸만 삭제하기
![]() |
![]() |
2022.05.19 | -1 | 28 |
34199 | 함수/공식 |
New 시간대별 여러 시트 값 합치기
![]() ![]() |
![]() |
2022.05.19 | 0 | 36 |
34197 | 함수/공식 |
New 일수를 개월 일로 나타나는 방법을 알려주세요
(1)
![]() |
![]() |
2022.05.19 | 0 | 25 |
34196 | 함수/공식 |
New 합계 구하기 _ 도와주세요... ㅠㅠ
![]() ![]() |
![]() |
2022.05.19 | 0 | 28 |
34191 | 파워쿼리/피벗 |
New 하나의 열의 내용 중 중복되는 내용을 각각 다른 열에 배치할 수 있을까요?
(1)
![]() |
![]() |
2022.05.19 | 0 | 25 |
34190 | 파워쿼리/피벗 |
New 쿼리 실행 중 몇개의 행만 첫 행을 머릿글로 사용하기
(2)
![]() |
![]() |
2022.05.19 | 0 | 24 |
34186 | 문서서식 |
New 문서 서식 글자 바뀌는것 질문
![]() ![]() |
![]() |
2022.05.19 | 0 | 16 |
34185 | 문서서식 |
New 카드내역 다운받아 사용금액 합계를 했는데.. 합계가 안되네요
(1)
![]() |
![]() |
2022.05.19 | 0 | 23 |
34180 | 구글시트 |
New REGEXEXTRACT
![]() ![]() |
![]() |
2022.05.19 | 0 | 32 |
34179 | 대시보드 |
New 엑셀 하단에 시트이름 나온곳 넓게 쓰고 싶은데 고정안될까요?
![]() ![]() |
![]() |
2022.05.19 | 0 | 27 |
34175 | 문서서식 |
New 빈칸 셀위에 색상표시?
![]() ![]() |
![]() |
2022.05.19 | 0 | 27 |
34174 | VBA |
New VBA changelink 이용하여 원본파일 변경 시, 워크시트도 같이 변경하는 방법
(3)
![]() |
![]() |
2022.05.19 | 0 | 30 |
34171 | 구글시트 |
New 다른 시트에서 원하는 값 불러오기
(11)
![]() |
![]() |
2022.05.19 | 1 | 45 |
34169 | 함수/공식 |
New 오빠두 강의중 텍스트나누기 공식 질문드립니다.
![]() ![]() |
![]() |
2022.05.19 | 0 | 40 |
34166 | 차트/그래프 |
New 누적 가로막대 차트 비율이 안맞습니다
![]() ![]() |
![]() |
2022.05.18 | 0 | 35 |
34164 | 파워쿼리/피벗 |
New DRM걸린 문서를 오피스365 엑셀의 파워쿼리에서 처리하면 에러가 발생을 합니다.
(1)
![]() |
![]() |
2022.05.18 | 0 | 24 |
34162 | 함수/공식 |
New 다른 시트와 연동, vlookup 함수 연동 오류 해결 방법ㅜㅜ
![]() |
![]() |
2022.05.18 | 1 | 22 |
34152 | VBA |
New 변수 선언에 필요한 변수명을 동적으로 만들 수 있나요? (Dynamic Variable Name)
(7)
답변완료
![]() |
![]() |
2022.05.18 | 0 | 49 |
34148 | 문서서식 |
New 엑셀 기본표시형식 설정 해결방법
(1)
![]() |
![]() |
2022.05.18 | 0 | 30 |
34146 | 피벗테이블 |
New 피벗테이블 열 합계 시 값이 다르게 나옵니다. 또한 한 아이템이 시간에 따라 2개의 가격을 가질 때 어떻게 처리를 해야하나요?
![]() ![]() |
![]() |
2022.05.18 | 2 | 28 |
34144 | 함수/공식 |
New 음수를 제외한 양수들만으로 오름차순으로 순위 내는법
![]() ![]() |
![]() |
2022.05.18 | 0 | 33 |
34143 | 함수/공식 |
New 평일 출근부 만들기
![]() ![]() |
![]() |
2022.05.18 | 0 | 43 |
34136 | 함수/공식 |
New 백분율의 합계? 백분율의 평균 값?이 다른이유가 있을까요?
(4)
![]() |
![]() |
2022.05.18 | 0 | 29 |
34135 | 함수/공식 |
New 음수를 제외한 양수들의 합만으로 순위 내는법
![]() ![]() |
![]() |
2022.05.18 | 2 | 51 |
34134 | VBA |
New VBA 필터 지정후 이미지 저장 문의
![]() ![]() |
![]() |
2022.05.18 | 0 | 36 |
안녕하세요. 오빠두엑셀입니다.
어떠한 방법으로든 파일 취합을 구현할 때는 취합할 대상의 머리글(기준)이 분명해야 하며, 취합할 수 있는 구조가 갖춰져 있어야 합니다. 만약 구조가 갖춰져있지 않다면, VBA로 직접 커스텀할 수 있으나 이 부분은 본인이 직접 해결하셔야 하는 영역에 들어갑니다.
파일 병합 마스터 코드는 아래 링크를 확인해보시고, 우선 취합 코드는 완성되어 있다는 가정하에 해결책을 제안해 드리자면,
https://www.oppadu.com/%EC%97%91%EC%85%80-vba-%ED%8C%8C%EC%9D%BC-%ED%95%A9%EC%B9%98%EA%B8%B0/
파일 존재여부는 아래 원조백수님이 작성해주신 코드를 사용하면 가능하며
통합문서를 실행하지 않은채 시트 안에 데이터를 불러오려면 ADO 라이브러리를 사용하면 편리합니다.
다만 ADO 라이브러리는 정규화된 데이터일 경우에만 레코드형식으로 읽어올 수 있으므로 첨부해주신 파일에는 사용이 많이 어렵습니다. ADO 라이브러리는 구글에 검색하시면 다양한 예제 코드를 확인하실 수 있으니 한번 연구해보시면 좋을 것 같습니다.
제시해드린 답변이 문제 해결에 도움이 되셨길 바라며, 첨부하신 파일에는 개인정보가 포함되어 있어 삭제해드렸습니다.
감사합니다.
@오빠두엑셀 님 으허.. 댓글 영광입니다. 이른 새벽부터 큰 선물받은 느낌이네요. 취업때부터 시작해서 2년간 너무나 큰 도움됐습니다.
덕분에 회사에서 엑셀하면 제가 떠오를 정도로 성장했네요 아직 전문가분들이 보기에는 애기애기하기만 ㅎㅎ
AOD부분은 시간내서 한번 확인해보겠습니다!
File이 있는지 점검하는 것은 아래처럼 간단하게 점검할 수 있습니다.
If Dir("File Full Path") <> "" then
@원조백수 님 감사합니다. 말씀주신대로 해서 잘 해결됐습니다!