티스토리 뷰
반응형
Function GetDesktop_Folder()
Set WshShell = CreateObject("WScript.Shell")
GetDesktop_Folder = WshShell.SpecialFolders("Desktop") + "\"
End Function
Function GetCurrentFolder()
GetCurrentFolder = ActiveWorkbook.Path + "\"
End Function
.
반응형
'엑셀' 카테고리의 다른 글
| 엑셀 vba 셀 체인지 (0) | 2018.11.30 |
|---|---|
| 엑셀 vba 프린터 설정 (0) | 2018.11.29 |
| 엑셀 vba Desktop_Folder_Make (0) | 2018.11.29 |
| 엑셀 vba Create_Folder (0) | 2018.11.28 |
| 엑셀 vba 시트_선택_없으면_만들기 (0) | 2018.11.28 |