시트명을 선택한 폴더명으로 바꾸기

VBA
작성자
달타냥
작성일
2020-11-04 15:42
조회
43
안녕하세요? 문의드립니다.

문자열 슬라이스에 관한 질문 드립니다.

즉. 아래와 같이 디렉토리 문자열을 받고, strNewsheet엔 strFolder변수의 마지막 \xxx\ 폴더명을 입력 받기를 원합니다.

이때 어떤 함수를 이용하여, 축출할수 있을까요??

 

Sub SearchSubFolder()
Dim strFolder As String             '디렉토리 문자열 변수
Dim strNewsheet As String        '새로생성될 시트 문자열 변수

strFolder = InputBox(prompt:="검색할 폴더를 입력하세요", _
Default:=ThisWorkbook.Path & "\")

If strFolder = "" Then
MsgBox "취소합니다."
Exit Sub
End If
If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\"

Worksheets.Add after:=Worksheets(1)
Debug.Print strFolder

i = 1
strNewsheet = Split(strFolder, "\")(i)
Debug.Print strNewsheet
ActiveSheet.Name = strNewsheet

 
달타냥
회원등급 : 가지3단계
포인트 : 685 EP
총질문 : 5 개 (마감율 : 0%)
채택답변 : 0 개
전체 2

  • 2020-11-05 11:20

    감사합니다.


  • 2020-11-04 21:33

    안녕하세요?^^

    아래 명령문을 사용해보세요.

    Sub 마지막폴더경로추출()
    
    Dim s As String
    s = "C:\oppadu\test\"
    If Right(s, 1) = "\" Then s = Left(s, Len(s) - 1)
    s = Right(s, Len(s) - InStrRev(s, "\"))
    Debug.Print s
    
    End Sub

전체 1,606
번호 카테고리 제목 작성자 작성일 추천 조회
1601 함수/공식
New 통장계좌 등 일정하지 않은 수의 데이터 추출 첨부파일 (1)
Ruan | 13:59 | 추천 0 | 조회 5
Ruan 13:59 0 5
1600 VBA
New 발주 취합 정산 부분에 대하여
곰탱이 | 12:40 | 추천 0 | 조회 7
곰탱이 12:40 0 7
1599 함수/공식
New [대시보드 예제] SUMPRODUCT 함수 오류, 피벗테이블 새로고침, 조건부서식 아이콘 적용 누락 첨부파일
임이사 | 12:25 | 추천 0 | 조회 10
임이사 12:25 0 10
1598 VBA
New 이전 댓글에서 제가 여쭤본건데 하위폴더명을 반환하는 셀 값에 트리구조로 만들고 싶어서요
밍장군 | 10:10 | 추천 0 | 조회 14
밍장군 10:10 0 14
1597 VBA
New 샐 값을 vba 변수로 사용하는 방법 없을까요?
밍장군 | 10:07 | 추천 0 | 조회 12
밍장군 10:07 0 12
1596 함수/공식
New if를 사용하면 될 것 같은데 잘 안되네요.. 첨부파일 (2)
모찌율 | 00:17 | 추천 1 | 조회 30
모찌율 00:17 1 30
1595 VBA
New 네이버 부동산 매물 크롤링_매매/전세가 표시가 안됨 첨부파일 (1)
csh**** | 00:17 | 추천 0 | 조회 22
csh**** 00:17 0 22
1594 함수/공식
New 특정 월,주,일 산출함수문의 첨부파일 (2) 답변완료
H.B | 2020.12.01 | 추천 1 | 조회 26
H.B 2020.12.01 1 26
1593 함수/공식
New sumproduct함수와 같이 여러조건이 맞았을때 결과가 나오는 함수는?? 첨부파일 (1)
선생님 | 2020.12.01 | 추천 0 | 조회 18
선생님 2020.12.01 0 18
1592 함수/공식
New 조건부 서식 관련! 첨부파일 (1)
4Block | 2020.12.01 | 추천 0 | 조회 28
4Block 2020.12.01 0 28
1591 함수/공식
New [모집회원]관리시 어떻게 해야할지 머리가~~ 첨부파일 (2)
선생님 | 2020.12.01 | 추천 0 | 조회 32
선생님 2020.12.01 0 32
1590 함수/공식
New 대표셀에 값 입력 하면 특정셀 값이 바뀌게하는 방법 도와주세요 ㅠ (1)
이문희 | 2020.12.01 | 추천 0 | 조회 22
이문희 2020.12.01 0 22
1589 함수/공식
New if 함수 질문입니다! 첨부파일 (7)
4Block | 2020.12.01 | 추천 0 | 조회 26
4Block 2020.12.01 0 26
1588 피벗테이블
New [대시보드예제] 유튭보고 따라하면서 수정했는데 피벗테이블이 새로고침이 이상해여ㅠ (1)
임이사 | 2020.12.01 | 추천 0 | 조회 23
임이사 2020.12.01 0 23
1587 VBA
New 이번 라이브 강의는 언제 올라오나요? (1)
테일즈 | 2020.12.01 | 추천 0 | 조회 18
테일즈 2020.12.01 0 18
1586 함수/공식
New SUM, SUMIF 함수가 안되고있습니다!! (4) 답변완료
으아우아악 | 2020.12.01 | 추천 0 | 조회 26
으아우아악 2020.12.01 0 26
1585 기능/도구
New 엑셀 하이러링크 삽입후 파일이 이동되면 "참조가 잘못되었습니다" 문제 (1)
carg | 2020.12.01 | 추천 0 | 조회 19
carg 2020.12.01 0 19
1584 함수/공식
New 취득세 간편 계산 방식 첨부파일 (1)
khj**** | 2020.12.01 | 추천 0 | 조회 26
khj**** 2020.12.01 0 26
1583 피벗테이블
New 피벗테이블 구현 문제 (2) 답변완료
쿵야 | 2020.11.30 | 추천 0 | 조회 32
쿵야 2020.11.30 0 32
1582 피벗테이블
New 입금일정이 매주마다 변경된다는 가정하에 비교 할수 있는 방법이 있을까요? (2)
이상타 | 2020.11.30 | 추천 1 | 조회 38
이상타 2020.11.30 1 38
1581 파워쿼리/피벗
New 쿼리를 사용한 파일을 열면 마우스 휠이 반응하지 않아요. (2)
Kampi Krein | 2020.11.30 | 추천 0 | 조회 28
Kampi Krein 2020.11.30 0 28
1580 피벗테이블
New 데이터정규화 및 피벗테이블 비율표시 질문 첨부파일 (1) 답변완료
Yooon | 2020.11.30 | 추천 0 | 조회 30
Yooon 2020.11.30 0 30
1579 함수/공식
New 기초적인 문의 드립니다. (3) 답변완료
kspdoori | 2020.11.30 | 추천 0 | 조회 30
kspdoori 2020.11.30 0 30
1578 함수/공식
New 원본데이터 수정없이 날짜 조건으로 count 하는방법 문의 (5) 답변완료
정지훈 | 2020.11.30 | 추천 0 | 조회 34
정지훈 2020.11.30 0 34
1577 함수/공식
New 오빠두님 안녕하세요 첨부파일 (1)
아이픽스 | 2020.11.30 | 추천 0 | 조회 31
아이픽스 2020.11.30 0 31
1576 함수/공식
New (도와주세요!) 같은 셀 안에 있지만 개행으로 구분된 데이터에 함수적용방법 첨부파일 (6) 답변완료
naver_5fc1c99def443 | 2020.11.30 | 추천 0 | 조회 39
naver_5fc1c99def443 2020.11.30 0 39
1575 문서서식
New 데이터 정렬시 걸려있는 참조셀이 바뀝니다. 첨부파일 (1)
크르릉 | 2020.11.29 | 추천 0 | 조회 26
크르릉 2020.11.29 0 26
1574 문서서식
New 이미지와 도형 출력 시 위치 오류 관련
Kichan | 2020.11.29 | 추천 0 | 조회 21
Kichan 2020.11.29 0 21
1573 함수/공식
기초적인 질문,., 첨부파일 (2)
선크 | 2020.11.29 | 추천 0 | 조회 31
선크 2020.11.29 0 31
1572 차트/그래프
그래프와 슬라이서 연동 관련 질문 있습니다. (2)
미네시마 | 2020.11.28 | 추천 0 | 조회 29
미네시마 2020.11.28 0 29