Application.StatusBar = "준비"
Debug.Print "이 파일 이름은 """ + wb.Name + """ 입니다."
Debug.Print Left(wb.Name, (InStrRev(wb.Name, ".", -1, vbTextCompare) - 1))
LCase$(Right$(wb.Name, 5)) <> ".xlsm"
확장자확인 $기호는 string 형식을 의미
'컴퓨터 > 엑셀' 카테고리의 다른 글
| vba tip - excel (0) | 2023.11.15 |
|---|---|
| Dget 함수 (0) | 2023.11.06 |
| vba pc시리얼번호확인 (0) | 2023.10.24 |
| vba 폴더 선택 방법 FSO.GetFolder(Environ("UserProfile")) (0) | 2023.10.16 |
| vba 통합문서 보호 (0) | 2023.10.16 |