날짜로 폴더 생성하는법 알려주세요(mkdir 구문)

VBA
작성자
웹 트롤링
작성일
2023-01-02 12:05
조회
60
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

질문 요약 : mkdir 문을 통해 날짜로 폴더 만들는 법

Sub 단추10_Click()
 
    Dim A  As Date
 
    A = Format(DateValue(Range("A1")), "yyyy/mm/dd")
   'A를 날짜라는거를 입력해놓고
 
   MkDir ("C:\Users\user\Desktop\" & Format(DateValue(Range("A1")), "mm") & )
   'MkDir 구문을 통해 그 날짜의 폴더를 만들고 싶은데 이렇게는 입력이 안되는 모양입니다.

혹시 mkdir 구문말고 다른 구문이라도 괜찮으니 그 날짜의 폴더를 만들수있는 다른방법이라도 알려주세요 ㅠㅠㅠ

그리고 A = Format(DateValue(Range("A1")), "yyyy/mm/dd") 를 설정해놨지만

Format(A, "mm") 이렇게 하면 1900년 01월 01일로 인식이 됩니다 ㅠㅠ 원래 그런건가요? 다른 방법이 있는건가요?

스크랩
공유
회원등급 : 3레벨
포인트 : 125 EP
총질문 : 3 개 (마감율 : 67%)
채택답변 : 0 개
전체 6

  • 2023-01-02 13:09

    @웹 트롤링 님 /문자는 서브디렉토를 의미하므로.. /대신에 -를 사용하세요

    MkDir ("C:\Users\user\Desktop\" &  Format(DateValue(Range("A1")), "yyyy-mm-dd")

    이렇게 사용하세요..

    mm은  month를 나타내기도 하지만 minutes를 나타내므로..

    mm을 format( month(DateValue(Range("A1"))), "mm")  이렇게 써야합니다.. 또는

    Right(format(DateValue(Range("A1")), "yyyy-mm"),2)로 하면 되겠지요..

     

     

     

     


    • 2023-01-02 14:47

      @마법의손 님 A1에는 2022-12-31로 설정해놓고

      Format(DateValue(Range("A1")), "yyyy-mm-dd")

      이렇게 하면 2022-12-31로 나오거든요?

      Format(DateValue(Range("A1")), "mm")

      로 하면 1900-01-11로 나오고 마법의 손님이 알려주신

      format( month(DateValue(Range("A1"))), "mm")

      로 하게되면 1899-12-31로 나오게 됩니다 ㅠㅠ

      Right(format(DateValue(Range("A1")), "yyyy-mm"),2)

      로 하게되면 1900-01-11로 나오구요 ㅠㅠ 이것때문에 진짜 힘드네요


      • 2023-01-02 14:58

        @웹 트롤링 님 셀서식 일반으로 고치면 됩니다..


        • 2023-01-02 15:38

          @마법의손 님 셀 서식은 일반이고 셀상에서가 아니라 debug.print로 확인한 결과가 그렇거든요 ㅠㅠ 혹시나 A1셀에 있는 내용이 일반이 아니여서 그런가 해서 일반으로 바꾸고 했는데도 yyyy는 1905년 mm는 01월로 나옵니다 ㅠㅠㅠ


        • 2023-01-02 16:03

          @마법의손 님 이거는 그냥 길게  Format(DateValue(Range("A1")), "yyyy" 로 해서 해결하면 될꺼 같은데 문제는 폴더 생성이 안됩니다 ㅠㅠ

           

          MkDir ("C:\Users\user\Desktop\내 폴더\서류\판매 실적\신세계 판매 실적\2023\" & Format(DateValue(Range("A1")), "mm" &)

          도 안되고

           

          MkDir ("C:\Users\user\Desktop\내 폴더\서류\판매 실적\신세계 판매 실적\2023\" & format( month(DateValue(Range("A1"))), "mm" &)

           

          알려주신 이걸로 해도 실행이 안됩니다


        • 2023-01-02 16:19

          @마법의손 님 답을 알았습니다

           

          MkDir ("C:\Users\user\Desktop\내 폴더\서류\판매 실적\신세계 판매 실적\2023\" & Format(DateValue(Range("A1")), "mm" &)

          저기 디렉토리 뒷부분에는 붙는게 없어서 &뒤에 ""를 붙혀야 하는데 없어서 오류가 떴던거군요 감사합니다


전체 9,357
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (10)
오빠두엑셀 | 2023.01.25 | 추천 6 | 조회 3430
오빠두엑셀 2023.01.25 6 3430
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (123)
오빠두엑셀 | 2021.10.28 | 추천 159 | 조회 9747
오빠두엑셀 2021.10.28 159 9747
48597 함수/공식
New 오늘 날짜 보다 큰 날짜들 중에서 가장 오른쪽 끝에 기재되어 있는 날짜의 열번호를 찾는 수식을 만들었습니다만.. 첨부파일 (2)
| 01:46 | 추천 0 | 조회 12
01:46 - 12
48595 대시보드
New 주차별 증감 분석 데이터 만들기 엑셀파일첨부파일
엑셀고수왕소취 | 01:27 | 추천 0 | 조회 11
엑셀고수왕소취 01:27 - 11
48594 VBA
New 데이터 정렬 질문드립니다. 엑셀파일첨부파일
qzzzzzqq | 00:31 | 추천 0 | 조회 13
qzzzzzqq 00:31 - 13
48586 VBA
New 특정 부분 가져오는법 엑셀파일
songa | 2023.01.31 | 추천 0 | 조회 24
songa 2023.01.31 - 24
48576 함수/공식
New 해당연도 설날, 추석 알려주기 (2)
엑셀초보랍니다 | 2023.01.31 | 추천 0 | 조회 25
엑셀초보랍니다 2023.01.31 - 25
48573 함수/공식
New 누적, 주간별 불량율 구하기 / 전년 대비 불량율 차트 만들기 엑셀파일첨부파일 (1)
엑셀렙업용 | 2023.01.31 | 추천 0 | 조회 26
엑셀렙업용 2023.01.31 - 26
48572 기능/도구
New 엑셀 파일을 sql로 변환하는 방법 궁금해요 (2)
단군 | 2023.01.31 | 추천 0 | 조회 28
단군 2023.01.31 - 28
48567 함수/공식
New 조건부 서식 문의 엑셀파일첨부파일 (1)
최치곤 | 2023.01.31 | 추천 0 | 조회 29
최치곤 2023.01.31 - 29
48563 함수/공식
New 다중조건 만족하는 값 가져오기.. 이거 아무리해도 안되네요.. ㅜㅜ 엑셀파일 (3)
주니수합 | 2023.01.31 | 추천 0 | 조회 40
주니수합 2023.01.31 - 40
48560 함수/공식
New 월별 이익계산하기 질문 드리빈다. 첨부파일 (2)
에공 | 2023.01.31 | 추천 0 | 조회 22
에공 2023.01.31 - 22
48559 VBA
New 인쇄폼관련 질문 드립니다. 엑셀파일첨부파일 (1)
최승호 | 2023.01.31 | 추천 0 | 조회 23
최승호 2023.01.31 - 23
48556 함수/공식
New 엑셀초보ㅜㅜ 등급표 작성관련 도움 부탁드립니다! 엑셀파일첨부파일 (4)
엑셀초보등장 | 2023.01.31 | 추천 0 | 조회 26
엑셀초보등장 2023.01.31 - 26
48552 VBA
New (심각)매크로 실행시 엑셀 응답없음 및 엑셀 속도 느림 첨부파일 (1)
실무자 | 2023.01.31 | 추천 0 | 조회 30
실무자 2023.01.31 - 30
48544 함수/공식
New 현재 시간에 가장 가까운 시간을 불러오는 방법이 있을까요? 첨부파일 (2)
열심맨 | 2023.01.31 | 추천 0 | 조회 43
열심맨 2023.01.31 - 43
48541 함수/공식
New IF AND 중첩 도움 부탁드립니다! 첨부파일 (7)
Nalae | 2023.01.31 | 추천 0 | 조회 58
Nalae 2023.01.31 - 58
48540 VBA
New .xlsm에서 실행한 매크로 결과를 .xlsx로 저장할 때 오류 해결법 (2) 답변완료
나지 | 2023.01.31 | 추천 0 | 조회 36
나지 2023.01.31 - 36
48538 함수/공식
New 엑셀 구글스프레드시트 질문 첨부파일 (5) 답변완료
Hwan | 2023.01.31 | 추천 0 | 조회 48
Hwan 2023.01.31 - 48
48536 함수/공식
New 엑셀 데이터 채우기 첨부파일 (1)
쨈빛 | 2023.01.31 | 추천 0 | 조회 28
쨈빛 2023.01.31 - 28
48529 함수/공식
New 수식이 나타내는 바가 동일한데 결과값이 달라지는 요상한 오류... 첨부파일 (2)
| 2023.01.31 | 추천 0 | 조회 41
2023.01.31 - 41
48527 VBA
New 시트 내의 숫자의 총합을 파일명에 포함하는 VBA 엑셀파일첨부파일 (1)
나지 | 2023.01.31 | 추천 0 | 조회 43
나지 2023.01.31 - 43
48526 VBA
New 현재 사용중인 파일명을 가져오는 VBA (1)
나지 | 2023.01.31 | 추천 0 | 조회 28
나지 2023.01.31 - 28
48525 함수/공식
New 화물 적재 관련 수식 질문입니다. 엑셀파일첨부파일
이해준 | 2023.01.31 | 추천 0 | 조회 35
이해준 2023.01.31 - 35
48522 함수/공식
New 근태자동입력 엑셀파일첨부파일 (5) 답변완료
국시생 | 2023.01.31 | 추천 0 | 조회 66
국시생 2023.01.31 - 66
48520 차트/그래프
New 그래프 데이터레이블 2개 추가하는 법 첨부파일 (2) 답변완료
앵두12 | 2023.01.31 | 추천 0 | 조회 31
앵두12 2023.01.31 - 31
48515 함수/공식
New TEXTJOIN 함수 질문 드리고자 합니다. (3) 답변완료
dfgkdflglkdf | 2023.01.30 | 추천 0 | 조회 36
dfgkdflglkdf 2023.01.30 - 36
48513 피벗테이블
New 피벗테이블에서 데이터 더블클릭하면 만들어지는 시트 관련 문의입니다 엑셀파일첨부파일 (1) 답변완료
enigma1 | 2023.01.30 | 추천 0 | 조회 28
enigma1 2023.01.30 - 28
48507 VBA
New "바꾸기" 에서 공백처리 부탁드립니다. 엑셀파일
도다리 | 2023.01.30 | 추천 0 | 조회 37
도다리 2023.01.30 - 37
48500 기능/도구
New 여러 시트 종합 + 추가 기능 질문드려요 ㅠㅠ 첨부파일 (5) 답변완료
므므므므므 | 2023.01.30 | 추천 0 | 조회 32
므므므므므 2023.01.30 - 32
48492 함수/공식
New 다중 조건을 만족하는 모든 값들을 찾아서 한 셀에 입력되게 하고싶습니다. 도움 부탁드려요 엑셀파일첨부파일 (2) 답변완료
릴라고 | 2023.01.30 | 추천 0 | 조회 37
릴라고 2023.01.30 - 37
48490 VBA
New VBAProject 삭제 첨부파일 (1)
왕초보엑셀러 | 2023.01.30 | 추천 0 | 조회 27
왕초보엑셀러 2023.01.30 - 27