질문-엑셀 PDF 자동 저장 프로그램

VBA
작성자
식스보더
작성일
2020-03-24 09:58
조회
635

데이터 롤백으로 질문글이 없어졌네여 ^^

항상 좋은 강의 잘 보고 있습니다.

  1. f SavePath = "" Then SavePath = GetDesktopPath

    pdf 출력 저장 경로가 바탕화면인데 특정폴더로 지정할수 있는 방법이 있을까여 ?~

    (ex:바탕화면에 특정폴더, 최근 마지막 저장폴더등)

 

 

2.직원이 100명이라고 가정했을때 자동화로 행 1-100번순으로 자동으로  특정폴더로 일괄로 저장하던지
특정 행의 30-50번을 특정폴더로 저장하는 강의나 방법도 너무 궁금합니다.

(ex: 직원 1번부터 ~100번 급여내역서폴더로 자동 저장 ,  30~50번 직원순으로 상여금폴더로 자동저장등)

전체 2

  • 2020-03-24 23:39

    안녕하세요?^^
    1. 특정폴더로 지정하는 방법은 간단합니다.
    If SavePath="" Then SavePath="C:\"
    등으로 설정하시면 됩니다.
    만약 특정폴더의 마지막 업데이트 폴더를 찾고 싶으시다면 아래 명령문을 사용해보세요.

    Function GetLatestFolder(Path As String)
    Dim FSO As Object: Dim FS As Object: Dim F As Object
    Dim LDate As Date: Dim Result As String
    Set FSO = CreateObject("scripting.FileSystemObject")
    Set FS = FSO.GetFolder(Path).SubFolders
    For Each F In FS
    If F.DateLastModified > LDate Then
    DtLast = F.DateLastModified
    Result = F.Name
    End If
    Next
    GetLatestFolder = Result
    End Function

    또는 FileDialog 명령문을 사용해서 특정 폴더를 지정할 수도 있습니다. 자세한 내용은 파일선택창 명령문 강의를 참고해보세요 ^^
    www.oppadu.com/엑셀-vba-파일선택창-총정리/
    2. IF 문을 사용해서 아래와 같이 작성해보시겠어요?^^

    IF 셀.Row => 30 AND 셀.Row =< 50 Then 'xx 상여금 폴더 저장 Else 'xx 급여내열 폴더 저장 End If

    제 답변이 도움이 되셨길 바랍니다 ^^
    감사합니다.


    • 2020-03-25 08:51

      @오빠두엑셀 님 1. If SavePath="" Then SavePath="C:\" 로 특정폴더로 변경후 해당 폴더로 파일이 저장이 아닌 파일명이 앞에 붙습니다. ㅜㅜ 초보인지라 강의 샘풀 엑셀 첨부하오니 예로 바탕화면에 <급여폴더> 코드 적용된 샘플 파일을 첨부하주시면 도움이 될듯합니다.
      2. ㅜㅜ 1번과 같이 IF문을 어디에 어떻게 적용해야할지 잘 모르겠습니다.
      강의에 첨부된 샘플파일을 기준으로 제가 만든 첨부파일 1~8행을 예로 코드 부탁드려도 될까여??

      첨부파일 : PDF출력-샘플-원본.xlsm


전체 4,676
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (10)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 744
트로피 오빠두엑셀 2021.10.28 16 744
24249 VBA
New 모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다
너의나라 | 16:49 | 추천 0 | 조회 14
너의나라 16:49 0 14
24248 차트/그래프
New 그래프에서 가로 축 Data 설정하는 법 첨부파일
Etter | 16:46 | 추천 0 | 조회 13
Etter 16:46 0 13
24245 VBA
New 아웃룩 이메일 내용에 VBA 변수 넣기
argus | 16:08 | 추천 0 | 조회 14
argus 16:08 0 14
24239 VBA
New [초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 14:00 | 추천 0 | 조회 19
스캐쳐 14:00 0 19
24238 VBA
New 어떤 한 배열에서 다른 배열에 있는 값만 제외하고 새로운 배열3을 만들 수 있을까요? (2)
Paul | 13:50 | 추천 0 | 조회 18
Paul 13:50 0 18
24233 함수/공식
New 0이상의 값(유효값)이 있는 칼럼과 그 값을 불러오고 싶습니다. 첨부파일 (2) 답변완료
크놉스 | 11:41 | 추천 0 | 조회 25
크놉스 11:41 0 25
24232 차트/그래프
New 엑셀 차트에서 특정 값이 너무 높을때 차트화 하는 법 (2) 답변완료
담담 | 11:36 | 추천 0 | 조회 28
담담 11:36 0 28
24230 VBA
New vba 코딩을 부탁드립니다. 첨부파일 (2)
Trimman | 11:09 | 추천 -1 | 조회 29
Trimman 11:09 -1 29
24228 함수/공식
New 등급 기준표를 참조해서 연산을 하려고 할때 (1) 답변완료
지천 | 10:12 | 추천 0 | 조회 21
지천 10:12 0 21
24221 파워쿼리/피벗
New 엑셀 종속 테이블 문의 첨부파일 (2)
유령회원 | 08:30 | 추천 0 | 조회 20
유령회원 08:30 0 20
24216 VBA
New 로그인엑셀 사용시 수식입력줄 사라짐, 모든 엑셀창 자동종료 첨부파일 (1)
엑셀이 | 00:19 | 추천 0 | 조회 17
엑셀이 00:19 0 17
24215 VBA
New set_routine 반복 매크로 (1)
하늘의 꿈 | 2021.12.01 | 추천 0 | 조회 24
하늘의 꿈 2021.12.01 0 24
VBA
New 재질문 입니다.
하늘의 꿈 | 15:50 | 추천 0 | 조회 10
하늘의 꿈 15:50 0 10
24213 파워쿼리/피벗
New [파워쿼리] 계약자코드 중 특수계약 날짜가 일반계약 최소 최대 사이에 포함여부 열추가 첨부파일 (1)
seorin | 2021.12.01 | 추천 0 | 조회 18
seorin 2021.12.01 0 18
24211 VBA
New 시트를 메일머지하여 Hancom PDF 파일로 출력하는 매크로 VBA 코드 도움을 받고 싶어요. 첨부파일 (3)
김학동 | 2021.12.01 | 추천 0 | 조회 29
김학동 2021.12.01 0 29
24210 함수/공식
New 혹시 이런 것도 구할 수 있을까요? (3)
마른막대기 | 2021.12.01 | 추천 0 | 조회 36
마른막대기 2021.12.01 0 36
24207 함수/공식
New 중복값 중 제일 마지막 값 추출 (2)
rladud99 | 2021.12.01 | 추천 0 | 조회 38
rladud99 2021.12.01 0 38
24203 함수/공식
New 엑셀 값 가로/세로 변경하는 방법 문의드려요! 첨부파일 (2) 답변완료
이시현 | 2021.12.01 | 추천 0 | 조회 37
이시현 2021.12.01 0 37
24200 함수/공식
New 데이터를 일정간격으로 띄워서 입력하고 싶습니다. (5)
wlfl**** | 2021.12.01 | 추천 0 | 조회 43
wlfl**** 2021.12.01 0 43
24191 함수/공식
New 일치하는 값에 특정 데이터를 넣고싶습니다. (1)
노랑토끼 | 2021.12.01 | 추천 0 | 조회 54
노랑토끼 2021.12.01 0 54
24188 VBA
New VBA에서 이름이 긴 파일이 있는데 그 파일 이름을 바꾸고 싶습니다.(상세설명 필수) (2)
naver_618c988d51534 | 2021.12.01 | 추천 0 | 조회 30
naver_618c988d51534 2021.12.01 0 30
24184 문서서식
New 엑셀 자동채우기 관련 문의 (1) 답변완료
오문환 | 2021.12.01 | 추천 0 | 조회 42
오문환 2021.12.01 0 42
24182 함수/공식
New 줄바꿈 함수 도와주세요 첨부파일 (3)
김상준 | 2021.12.01 | 추천 1 | 조회 43
김상준 2021.12.01 1 43
24177 기능/도구
New 매크로 와 자동필터
FLOWERBALL | 2021.11.30 | 추천 0 | 조회 47
FLOWERBALL 2021.11.30 0 47
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
ryan_cruze | 2021.11.30 | 추천 0 | 조회 43
ryan_cruze 2021.11.30 0 43
24166 기능/도구
New 질문있습니다.
최강씨맨 | 2021.11.30 | 추천 0 | 조회 34
최강씨맨 2021.11.30 0 34
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 2021.11.30 | 추천 0 | 조회 52
PAKSAW 2021.11.30 0 52
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 2021.11.30 | 추천 -1 | 조회 46
ㄱ박민극 2021.11.30 -1 46
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (3)
가리 | 2021.11.30 | 추천 0 | 조회 38
가리 2021.11.30 0 38
24153 VBA
New 엑셀 검색 창 첨부파일 (2)
이혜 | 2021.11.30 | 추천 0 | 조회 36
이혜 2021.11.30 0 36
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 2021.11.30 | 추천 0 | 조회 35
이길호 2021.11.30 0 35
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 2021.11.30 | 추천 0 | 조회 24
Yukon 2021.11.30 0 24