티스토리 뷰
반응형
Function Create_Folder(str As String, Optional autoDate As Boolean = False)
If autoDate = True Then
Path1 = str & Format(Now, "-yyyymmdd-hhmmss")
Else
Path1 = str
End If
filePath = Path1
If Dir(filePath, vbDirectory) = "" Then
MkDir (filePath)
End If
Create_Folder = filePath
End Function
.
반응형
'엑셀' 카테고리의 다른 글
| 엑셀 매크로 VBA 나의 함수 미디어 플레이어 (0) | 2018.11.20 |
|---|---|
| 엑셀 매크로 VBA 나의 함수 시트 감추고 보이기 (0) | 2018.11.20 |
| 엑셀 매크로 VBA 나의 함수 모든파일에서_오늘날짜_데이타만추출해서_넣기() (0) | 2018.11.19 |
| 엑셀 매크로 VBA 나의 함수 파일실행 (0) | 2018.11.19 |
| 엑셀 매크로 VBA 나의 함수 파일에 저장 (0) | 2018.11.18 |