현재 사용중인 파일명을 가져오는 VBA

VBA

작성자

나지

작성일

2023-01-31 09:20

조회

129

엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요 선생님들! 언제나 많은 도움에 감사드립니다.

매번 파일명이 달라지는 파일을 열어서 값을 복사하고, 이것을 닫는 구문을 작성중입니다.

Workbooks.Open (FolderPath & FilePath)
nowfilename = ActiveWorkbook.FullName
Workbooks(nowfilename).Close

ActiveWorkbook.FullName 를 사용시 (파일 경로+파일명+확장자명)까지를 한 덩어리로 가져오는 걸로 알고 있는데요.

일단 이런 식으로 파일명을 가져오면 확장자까지 포함해서 가져오기 때문에, 작동할 것이라 기대했는데 오류가 발생합니다... 만일 (파일 경로+파일명+확장자명)에서 파일명만 쏙 뽑아내서 가져올 수 있다면 Workbooks().Close 를 이용해서 닫을 수 있지 않을까 하는데 방법을 모르겠어요.

참고로 이 매크로를 돌리고 있는 Thisworkbook은 제가 매크로를 pesonal.xlsb 에 저장하고 있으므로 사용할 수가 없습니다. 또, 여러 개의 파일을 동시에 열어서 사용하고 있는 터라 Activeworkbook 도 사용할 수가 없는 상황입니다.

어떻게 해결하면 좋을지 고견을 여쭙습니다...! 감사합니다.

공감

0명

나지

회원등급 : 5레벨

포인트 : 284 EP

총질문 : 11 개 (마감율 : 73%)

채택답변 : 1 개

게시글

전체 1

나지 님 1 작성자

2023-01-31 13:25
이것도 자체적으로 해결을 했습니다.

오픈한 파일의 이름을 가지고 오는 게 아니라, 다른 방법을 이용했고요. N번째로 연 파일을 기준으로
```
Workbooks(3).Close savechanges:=False
```
이렇게 활용하여 해당 파일만 닫았습니다..!

만일 저처럼 매크로를 통해 여닫는 파일이 여러 개라면 순서를 생각하셔서 활용하시면 좋을 것 같습니다.

혹시 파일명을 불러오는 다른 방법을 아시는 분은 덧글 부탁드리겠습니다~!

« 화물 적재 관련 수식 질문입니다.

시트 내의 숫자의 총합을 파일명에 포함하는 VBA »

목록보기

전체 10,225

번호	카테고리	제목	작성자	작성일	추천	조회
알림		23년 마지막, "엑셀 기초반" 챌린지! - 3주 완성 특별 스터디 모집 (~3/17(금) 까지) (39) 오빠두엑셀 \| 2023.03.11 \| 추천 33 \| 조회 4492	오빠두엑셀	2023.03.11	33	4492

공지사항	공지사항	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (149) 오빠두엑셀 \| 2021.10.28 \| 추천 188 \| 조회 10764	오빠두엑셀	2021.10.28	188	10764
53637	기능/도구	New 숨기기 취소 안됨 Jose \| 01:18 \| 추천 0 \| 조회 9	Jose	01:18	-	9
53633	기능/도구	New 증감 셀서식이 적용된 숫자셀과 문자셀을 &로 합칠 수 있나요? 마르티즈 \| 2023.03.27 \| 추천 0 \| 조회 14	마르티즈	2023.03.27	-	14
53628	문서서식	New 테두리 선 -기본색을 회색으로 바꿀 수는 없을까요? cynicalH \| 2023.03.27 \| 추천 0 \| 조회 16	cynicalH	2023.03.27	-	16
53620	함수/공식	New 다중 함수 문의 (2) 부자되자 \| 2023.03.27 \| 추천 0 \| 조회 23	부자되자	2023.03.27	-	23
53612	구글시트	New IMPORTRANGE 함수로 동일페이지 다수 탭의 데이터 가져오기 (1) 허허 \| 2023.03.27 \| 추천 0 \| 조회 26	허허	2023.03.27	-	26
53604	함수/공식	New countifs 정렬 시 걸려있는 참조셀이 뒤죽박죽이 됩니다. (2) 희상 \| 2023.03.27 \| 추천 0 \| 조회 26	희상	2023.03.27	-	26
53599	피벗테이블	New 달성율을 피벗테이블로 추출하기 ybt \| 2023.03.27 \| 추천 0 \| 조회 24	ybt	2023.03.27	-	24
53598	함수/공식	New 특정 셀이 특정 값일 경우 범위내 셀에서 몇번째 셀부터 마지막까지의 셀 합계를 구하는 수식 문의 (2) 오준범 \| 2023.03.27 \| 추천 0 \| 조회 23	오준범	2023.03.27	-	23
53594	VBA	New 선택한 영역에 원하는 날짜 자동으로 넣는 매크로 뚜루루루뚜 \| 2023.03.27 \| 추천 0 \| 조회 25	뚜루루루뚜	2023.03.27	-	25
53592	함수/공식	New 엑셀빈칸채우기(아래값) (2) 답변완료 chloe75 \| 2023.03.27 \| 추천 0 \| 조회 36	chloe75	2023.03.27	-	36
53587	함수/공식	New 특정 조건의 수 분리하기 엑셀초보랍니다 \| 2023.03.27 \| 추천 0 \| 조회 35	엑셀초보랍니다	2023.03.27	-	35
53583	함수/공식	New 문자 자동완성 문의입니다. (2) 안녕 \| 2023.03.27 \| 추천 0 \| 조회 30	안녕	2023.03.27	-	30
53581	VBA	New 재고관리 프로그램 달력 매크로 드랍다운 추가 kans**** \| 2023.03.27 \| 추천 0 \| 조회 35	kans****	2023.03.27	-	35
53580	차트/그래프	New y축 그림에 %를 넣고 싶습니다 (1) ch**** \| 2023.03.27 \| 추천 0 \| 조회 35	ch****	2023.03.27	-	35
53573	함수/공식	New max함수, if함수 사용하여 2가지 조건에 맞는 최대/최소값 나타내주고 싶습니다. (첨부파일 있음) (2) 프리한하루 \| 2023.03.27 \| 추천 0 \| 조회 29	프리한하루	2023.03.27	-	29
53571	함수/공식	New if함수와v룩업함수 적용 (1) 이유진 \| 2023.03.27 \| 추천 0 \| 조회 30	이유진	2023.03.27	-	30
53569	함수/공식	New 셀 내용 변경 시 서식 등으로 표시할 수 있는 함수 있을까요? (VBA 제외) 맨체스터 \| 2023.03.27 \| 추천 0 \| 조회 23	맨체스터	2023.03.27	-	23
53566	기능/도구	New Mac Office excel 사용 단축키 랄라라 \| 2023.03.27 \| 추천 0 \| 조회 14	랄라라	2023.03.27	-	14
53563	함수/공식	New FILTER 함수 사용법 (4) 답변완료 만식이 \| 2023.03.27 \| 추천 0 \| 조회 35	만식이	2023.03.27	-	35
53562	함수/공식	New 엑셀 초보자 입니다. 함수를 어떻게 적용해야 할까요? (5) jjan**** \| 2023.03.27 \| 추천 0 \| 조회 34	jjan****	2023.03.27	-	34
53559	파워쿼리/피벗	New [파워쿼리] 연도, 월로 분할하고 싶은데 도와주세요~ (1) wisejo**** \| 2023.03.27 \| 추천 0 \| 조회 30	wisejo****	2023.03.27	-	30
53557	피벗테이블	New 피벗 차트 막대그래프 색상 년도별 변경 가능 여부 (2) 답변완료 명곰 \| 2023.03.27 \| 추천 0 \| 조회 33	명곰	2023.03.27	-	33
53551	VBA	New 파일로 저장할 때 경로 변경 (2) 답변완료 fabikim \| 2023.03.27 \| 추천 0 \| 조회 22	fabikim	2023.03.27	-	22
53543	함수/공식	New 매크로 대신 함수로 자료찾기 만들고자 합니다. 느림보팬더 \| 2023.03.27 \| 추천 0 \| 조회 51	느림보팬더	2023.03.27	-	51
53500	함수/공식	New (제발도와주세요) 업체와 저희 업체에서 사용 하는 발주#가 중복이여도 불러오게 하고싶어요(중첩함수필요해보임) (1) govl77 \| 2023.03.26 \| 추천 0 \| 조회 49	govl77	2023.03.26	-	49
53490	함수/공식	New 함수사용법에 대한 문의 (5) 광개토태왕 \| 2023.03.26 \| 추천 0 \| 조회 39	광개토태왕	2023.03.26	-	39
53450	VBA	New Private Sub Workbook_Open() 자동 실행이 안됩니다 (2) 답변완료 니모앤칩스 \| 2023.03.25 \| 추천 0 \| 조회 35	니모앤칩스	2023.03.25	-	35
53447	함수/공식	New 데이터 세로 쌓기를 위해서 일정량의 데이터를 반복해서 아래로 붙여 넣을 때 쓸 수 있는 팁을 좀 알려 주세요 (3) 절륜 \| 2023.03.25 \| 추천 0 \| 조회 48	절륜	2023.03.25	-	48
53434	함수/공식	New 데이터 유효성 검사에서 바이트수 제한하는 법 문의드립니다. (4) 답변완료 달맞이꽃 \| 2023.03.25 \| 추천 0 \| 조회 39	달맞이꽃	2023.03.25	-	39
53415	함수/공식	New 조건별 다른 상하한 기준 적용 함수 문의드립니다 (4) 힘내서가자 \| 2023.03.25 \| 추천 0 \| 조회 61	힘내서가자	2023.03.25	-	61