vba [vba] GetFolder / FileDialog를 이용한 폴더 선택 대화상자 활용
페이지 정보
본문
Function GetFolder() As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function
- 이전글[vba] [nhn Q&A] [내공100점] 엑셀 지정위치에 사진 넣기... 사진대지 20.02.10
- 다음글[vba] Bar Code Ctrl 를 이용한 QR CODE 사용하기 20.01.13
댓글목록
등록된 댓글이 없습니다.