(VBA) 자료가 통합된 파일을 특정명으로 시트 생성 후 시트명으로 엑셀파일 생성되게 만들었는데 현재파일명+시트명으로 엑셀파일을 생성시킬수는 없나요???

VBA
작성자
블리
작성일
2021-06-11 09:43
조회
29

VBA 자료가 통합된 파일을 특정명으로 시트 생성 후 시트명으로 엑셀파일 생성되게 만들었는데

현재파일명+시트명으로 엑셀파일을 생성시킬수는 없나요??

회원등급 : 씨앗등급
포인트 : 40 EP
총질문 : 2 개 (마감율 : 100%)
채택답변 : 0 개
전체 4

  • 2021-06-11 10:27

    해당시트를 사본으로 하나 새 통합 문서에 만든 후에 저장할 때 파일명을 "현재파일명+시트명" 으로 하시면 됩니다.

     Sub SaveSheet()
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs "파일이름.xlsx"
    End Sub


    • 2021-06-11 11:43

      친절한 답변 감사합니다ㅎㅎ~~~

      혹시 파일이름을 매크로에 적어서 출력하는거말고

      만들어진 파일명이 수시로 바뀌는경우

      예시) 1월전반기, 1월후반기, 2월전반기, 2월후반기...

      오늘 기준으로 파일명이 6월 전반기인 경우 시트명이 업체명1, 업체명2, 업체명3....이 있다고한다면

      현재 파일명인 6월 전반기_업체명1, 6월 전반기_업체명2, 6월 전반기_업체명3....

      다음달에는 파일명이 7월 전반기로 바뀌는데 매크로를 수정하지 않고 현재파일명+시트명인 7월 전반기_업체명1, 7월 전반기_업체명2, 7월 전반기_업체명3.... 이런식으로 만드는 방법이 궁금합니다ㅠㅠ~~~


      • 2021-06-11 13:59
        채택된 답변

        시트에 모두 기록해 두고, 날짜별로 해당 월 이름을 불러오기를 하면 되지요

        A7 = 7월 전반기

        이런식으로 기록해두면 행번호가 7이니 7월인 것을 알 수 있잖아요.

        fileName = Cells(Month(Date), "A").Value  ▶ fileName에 "7월 전반기" 값이 들어 옵니다.

        이렇게 하면 매크로를 실행할 때 마다 자동으로 해당 월이 들어 오니 거기에 "업체명만" 더해서 만들면 되지요.
        전반기 하반기를 구하려면 월값에 날짜 값을 가지고 15일 전후로 해당 월_반기값을 구해오면 되고요.

        시트에 기록하는 것 보다는 Date함수를 이용해서 날짜를 구해서 문자열로 파일명을 만드는 것이 이상적이고. 현재 날짜와 저장하려는 날짜가 맞지 않다면 시트에 값을 입력해서 참조하거나 사용자 정의폼을 이용하는 것이 좋습니다.


전체 3,239
번호 카테고리 제목 작성자 작성일 추천 조회
3226 차트/그래프
New 차트 일자 서식 / 로그 차트 관련 질문 첨부파일
cyd**** | 11:57 | 추천 0 | 조회 7
cyd**** 11:57 0 7
3225 VBA
New 네이버 API 이용 검색관련 질문좀요. (2)
녹색태양 | 02:30 | 추천 0 | 조회 19
녹색태양 02:30 0 19
3224 함수/공식
New 이름 중복자도 추출하는 방법... 첨부파일 (2) 답변완료
승재빠 | 2021.06.17 | 추천 0 | 조회 36
승재빠 2021.06.17 0 36
3223 함수/공식
New 다중조건 목록상자(드롭다운)에서 열참조가 아닌 행참조로 하는 방법이 있을까요?
치즈쿠키 | 2021.06.17 | 추천 0 | 조회 20
치즈쿠키 2021.06.17 0 20
3222 VBA
New INDEX,MATCH 함수로 불러온 값에 배경색까지 따라오게 하는 방법 문의 드립니다. 첨부파일 (3)
새하늘 | 2021.06.17 | 추천 1 | 조회 41
새하늘 2021.06.17 1 41
3221 함수/공식
New 같은 품번별로 누적합계 구하기 (품번이 바뀔 경우 해당 행에서부터 다시 누적합계) 첨부파일 (2)
ploki | 2021.06.17 | 추천 0 | 조회 30
ploki 2021.06.17 0 30
3220 파워쿼리/피벗
New 파워피벗(DAX)에서 countif (중복 개수) 값을 얻고싶어요
ㅎㅎ | 2021.06.17 | 추천 0 | 조회 28
ㅎㅎ 2021.06.17 0 28
3219 파워쿼리/피벗
New 관계형 데이터베이스 구축관련 문의입니다 (1)
뀨1 | 2021.06.17 | 추천 1 | 조회 32
뀨1 2021.06.17 1 32
3218 VBA
New 도움을 요청합니다. 첨부파일 (5)
백설공주 | 2021.06.16 | 추천 0 | 조회 58
백설공주 2021.06.16 0 58
3217 기능/도구
New 확장형(?) 드롭다운 첨부파일 (3) 답변완료
치즈쿠키 | 2021.06.16 | 추천 0 | 조회 44
치즈쿠키 2021.06.16 0 44
3216 VBA
New vba 차트 그래프의 마지막 포인트의 위치값? 확인 방법 (2) 답변완료
aaaadcba | 2021.06.16 | 추천 0 | 조회 26
aaaadcba 2021.06.16 0 26
3215 VBA
New 피벗 갱신관련 VBA 구문 (2) 답변완료
H.B | 2021.06.16 | 추천 0 | 조회 35
H.B 2021.06.16 0 35
3214 함수/공식
New 특정 셀 값이 갖고 있는 목록 중 원하는 값을 순차적으로 가져오기 (3)
만수르용 | 2021.06.16 | 추천 0 | 조회 43
만수르용 2021.06.16 0 43
3213 VBA
New 함수(수식)의 값들을 값으로 변환 첨부파일
소금인형 | 2021.06.16 | 추천 0 | 조회 32
소금인형 2021.06.16 0 32
3212 VBA
New 배송 정보를 입력할때 데이터를 효율적으로 관리하고 싶은데요. 첨부파일 (4)
silverf**** | 2021.06.16 | 추천 0 | 조회 40
silverf**** 2021.06.16 0 40
3211 VBA
New 공유폴더에 엑셀 파일을 DB 용으로 사용할 경우 불러들이고 수정, 삭제하는데 로딩시간이 원래 오래걸리나요? (2) 답변완료
log | 2021.06.16 | 추천 0 | 조회 24
log 2021.06.16 0 24
3210 함수/공식
New 복식부기 중 iferror 관련 질문입니다. 첨부파일 (2) 답변완료
Yoon | 2021.06.16 | 추천 0 | 조회 25
Yoon 2021.06.16 0 25
3209 VBA
New 두번째 질문 올립니다. 범위안에서 선택이되었는지 첨부파일
게임쇼핑 | 2021.06.16 | 추천 0 | 조회 20
게임쇼핑 2021.06.16 0 20
3208 함수/공식
New 클릭하면 원하는 셀로 이동하는 함수 or 매크로 (3)
LJH | 2021.06.16 | 추천 0 | 조회 50
LJH 2021.06.16 0 50
3207 문서서식
New 엑셀 실기시험 관련해서 사소한 질문 하나 드립니다. (4) 답변완료
행복지기 | 2021.06.16 | 추천 0 | 조회 40
행복지기 2021.06.16 0 40
3206 피벗테이블
New 다시 질문드립니다! 피벗테이블 부분합 2개 만들기!
모찌율 | 2021.06.16 | 추천 0 | 조회 26
모찌율 2021.06.16 0 26
3205 VBA
New 엑셀로 Word 파일 생성 (1)
fire6**** | 2021.06.16 | 추천 0 | 조회 31
fire6**** 2021.06.16 0 31
3204 함수/공식
New 동일 그룹 내 중복값 입력 못하게 할 수 있을까요? 첨부파일 (4)
지옥나비 | 2021.06.15 | 추천 1 | 조회 61
지옥나비 2021.06.15 1 61
3203 VBA
New VBA 에서 for 반복문 사용 관련 질문! (2)
팡이 | 2021.06.15 | 추천 0 | 조회 32
팡이 2021.06.15 0 32
3202 VBA
New VBA Access 첨부파일 다운로드 (1)
조형진 | 2021.06.15 | 추천 0 | 조회 36
조형진 2021.06.15 0 36
3201 함수/공식
New 엑셀 중복을 제거하고 조건에 맞는 데이터 갯수 세기 (1)
칭구 | 2021.06.15 | 추천 0 | 조회 49
칭구 2021.06.15 0 49
3200 VBA
VBA 피벗갱신 구문
H.B | 2021.06.15 | 추천 0 | 조회 24
H.B 2021.06.15 0 24
3199 VBA
매크로 이용하여 사진 삽입 후 저장된 파일을 이동하면 사진이 깨집니다. 도와주세요 첨부파일 (2)
큰공쥬 작은공쥬~ ♥ | 2021.06.15 | 추천 0 | 조회 38
큰공쥬 작은공쥬~ ♥ 2021.06.15 0 38
3198 문서서식
셀병합이안되네요 첨부파일 (5) 답변완료
현정이 | 2021.06.15 | 추천 0 | 조회 41
현정이 2021.06.15 0 41
3197 VBA
엑셀 파일 raw 한개를 여러 파일로 나누어 자동 저장하는 방법? (1)
아라아라다 | 2021.06.15 | 추천 0 | 조회 39
아라아라다 2021.06.15 0 39