라이브56회_바탕화면 파일 저장 명령문 _ 럭키가이님

VBA
작성자
오빠두엑셀
작성일
2021-07-10 21:27
조회
87
엑셀버전 : M365

운영체제 : 윈도우10

Sub 파일저장()
 
Dim WB As Workbook
Set WB = ActiveWorkbook
 
Application.DisplayAlerts = False
 
WB.SaveAs GetDesktopPath & Format(Now, "yyyy-mm-dd")
 
Application.DisplayAlerts = True
 
End Sub
 
Public Function GetDesktopPath(Optional BackSlash As Boolean = True) As String
 
'########################################################
'사용중인 PC의 바탕화면 경로를 출력합니다.
'https://www.oppadu.com/vba-fileexists-함수/
'########################################################
 
Dim oWSHShell As Object
 
Set oWSHShell = CreateObject("WScript.Shell")
 
If BackSlash = True Then
    GetDesktopPath = oWSHShell.SpecialFolders("Desktop") & "\"
Else
    GetDesktopPath = oWSHShell.SpecialFolders("Desktop")
End If
 
Set oWSHShell = Nothing
 
End Function

 

회원등급 : 나무5단계
포인트 : 16769 EP
총질문 : 20 개 (마감율 : 0%)
채택답변 : 300 개
전체 0

전체 3,524
번호 카테고리 제목 작성자 작성일 추천 조회
3511 VBA
New vba Range의 셀 값을 변수로 값을 대입하기 (1)
vbawhat | 2021.07.31 | 추천 0 | 조회 19
vbawhat 2021.07.31 0 19
3510 VBA
New 텍스트 파일 끝에서부터 키워드로 검색하기 (1)
어제부터VBA | 2021.07.31 | 추천 0 | 조회 27
어제부터VBA 2021.07.31 0 27
3509 VBA
New 재고관리 vba 콤보박스 활용 검색 도움부탁드립니다 (1)
ycy | 2021.07.31 | 추천 0 | 조회 34
ycy 2021.07.31 0 34
3508 함수/공식
New 고수님...첫출근일 함수 부탁드립니다 첨부파일 (2)
jhp | 2021.07.30 | 추천 0 | 조회 50
jhp 2021.07.30 0 50
3507 VBA
New listbox에 Access query내용을 담는 방법 (1)
마녀 | 2021.07.30 | 추천 0 | 조회 24
마녀 2021.07.30 0 24
3506 함수/공식
New 구글 스프레드 SUMIFS 함수 (1)
호잇 | 2021.07.30 | 추천 0 | 조회 37
호잇 2021.07.30 0 37
3505 VBA
New 구글 스프레드시트에서 vba 모듈 활용법 (1)
aksr**** | 2021.07.30 | 추천 0 | 조회 27
aksr**** 2021.07.30 0 27
3504 함수/공식
New 다중조건 최대값 & 최소값 함수 문의의 건 첨부파일 (1)
kangj**** | 2021.07.30 | 추천 0 | 조회 33
kangj**** 2021.07.30 0 33
3503 파워쿼리/피벗
New 파워쿼리, 특정 시트의 셀값 참조하여 필터링하기 (2)
| 2021.07.30 | 추천 1 | 조회 39
2021.07.30 1 39
3502 함수/공식
New index(출력값,match(찾을값,범위,0)) 로 값을 구할 때 "match의 범위"를 "두개의 열"로 확장하는 방법? (3) 답변완료
HoDee | 2021.07.30 | 추천 1 | 조회 43
HoDee 2021.07.30 1 43
3501 기능/도구
New 스마트아트 작성 문의드려요 첨부파일 (1)
비달빵순 | 2021.07.30 | 추천 0 | 조회 30
비달빵순 2021.07.30 0 30
3500 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법을 알려 주세요 (7)
Finir2017 | 2021.07.29 | 추천 0 | 조회 53
Finir2017 2021.07.29 0 53
3499 함수/공식
New lookup 관련 찾는 범위가 필드이고 반환 열이 첫번째 인데 반환 값이 여러개, 반환 범위가 가로인 경우 첨부파일 (5) 답변완료
means**** | 2021.07.29 | 추천 1 | 조회 57
means**** 2021.07.29 1 57
3498 파워쿼리/피벗
New 파워쿼리 사용중 닫기및 로드 하는데 오버플로 오류가 포함되어 있다고 뜨는데 해결책이 무엇일까요? 첨부파일 (4)
이우용님 | 2021.07.29 | 추천 0 | 조회 32
이우용님 2021.07.29 0 32
3497 함수/공식
New 여러필드출력시트에 관한 질문입니다. 첨부파일 (4) 답변완료
크레이지 | 2021.07.29 | 추천 0 | 조회 53
크레이지 2021.07.29 0 53
3496 함수/공식
New vlookup 위치참조 (2) 답변완료
윤지은 | 2021.07.29 | 추천 0 | 조회 65
윤지은 2021.07.29 0 65
3495 함수/공식
New 검색어(중복값) 입력시 행과 열에 대한 값 불러오기?? 첨부파일 (5) 답변완료
o0o0**** | 2021.07.29 | 추천 0 | 조회 58
o0o0**** 2021.07.29 0 58
3494 문서서식
조건부서식 색필터시 문제 도와주세요 ㅜㅜ 첨부파일 (1)
한방인생 | 2021.07.28 | 추천 0 | 조회 53
한방인생 2021.07.28 0 53
3493 파워쿼리/피벗
파워쿼리 새로고침 시 변경된 원본 데이터가 있을 경우 따로 확인하거나 표시할 수 있는 방법이 있을까요? (1)
모아 | 2021.07.28 | 추천 0 | 조회 39
모아 2021.07.28 0 39
3492 VBA
[VBA] 폴더 내 하위 폴더 작업 (2)
몰라요ㅠㅠ | 2021.07.28 | 추천 0 | 조회 43
몰라요ㅠㅠ 2021.07.28 0 43
3491 기능/도구
맥용 엑셀에 DuTool 관련 추가기능을 설치할 수 있나요? (2) 답변완료
크레인 | 2021.07.28 | 추천 0 | 조회 32
크레인 2021.07.28 0 32
3490 함수/공식
조건있는 제일 많은값을 알고싶어요 (1)
채연 | 2021.07.28 | 추천 0 | 조회 45
채연 2021.07.28 0 45
3489 VBA
워크시트명을 변수로 전달해서 선택하는 방법 (3) 답변완료
ksm**** | 2021.07.28 | 추천 0 | 조회 49
ksm**** 2021.07.28 0 49
3488 함수/공식
엑셀 다중 조건 함수식 첨부파일 (1)
naver_5f055a605ee7d | 2021.07.28 | 추천 0 | 조회 60
naver_5f055a605ee7d 2021.07.28 0 60
3487 기능/도구
엑셀 복사후 붙여넣기시 참조범위 (3)
정윤태 | 2021.07.28 | 추천 0 | 조회 41
정윤태 2021.07.28 0 41
3486 문서서식
조건부서식 문의 (2)
블링블링 | 2021.07.28 | 추천 0 | 조회 43
블링블링 2021.07.28 0 43
3485 함수/공식
조건을 맞춰 그룹 묶는 법 좀 알려주실 수 있으신가요? (1)
대륙의대마왕 | 2021.07.28 | 추천 1 | 조회 43
대륙의대마왕 2021.07.28 1 43
3484 VBA
최근올리신 영상(엑셀재고관리툴만들기) 관련 질문올립니다.(2번째)ㅠ (1)
| 2021.07.28 | 추천 0 | 조회 48
2021.07.28 0 48
3483 함수/공식
스프레드 시트 다중조건 갯수 합계 산출하는 법 (1)
naver_60fe15011326f | 2021.07.28 | 추천 0 | 조회 38
naver_60fe15011326f 2021.07.28 0 38
3482 피벗테이블
피벗테이블 행 값 하위 계층 문제 첨부파일 (2)
soul**** | 2021.07.28 | 추천 0 | 조회 33
soul**** 2021.07.28 0 33