pdf 변환 메크로 사용시 저장경로 바꾸려는데.. 모르겠어요
Sub PDF로저장()
Dim FSO As Object
Dim S(1) As String
Dim sNewFilePath As String
Dim sSangHo As String
Dim sSheetName As String
Set FSO = CreateObject("Scripting.FileSystemObject")
S(0) = ThisWorkbook.FullName
sSheetName = ActiveSheet.Name
Application.ScreenUpdating = False
If FSO.FileExists(S(0)) Then
S(1) = FSO.GetExtensionName(S(0))
If S(1) <> "" Then
S(1) = "." & S(1)
sNewFilePath = Sheet1.Range("t1") & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=sNewFilePath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=ralse
End If
Else
MsgBox "오류: 이 통합문서는 저장되어있지 않습니다. 저장 후 다시 시도하십시오."
End If
Set FSO = Nothing
ThisWorkbook.Sheets(sSheetName).Select
Application.ScreenUpdating = True
End Sub
여기서 저장경로 바꾸려면 어디를 수정해야 할지 모르겠어요 ㅜㅜ
초보라서 다른분이 작성해논거 조금씩 수정하며 사용중입니다.
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀
|
2022.02.03
|
추천 554
|
조회 845194
|
오빠두엑셀 | 2022.02.03 | 554 | 845194 | ||
공지사항 | 문서서식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(197)
오빠두엑셀
|
2021.10.28
|
추천 304
|
조회 31516
|
오빠두엑셀 | 2021.10.28 | 304 | 31516 |
74618 | VBA |
New 유저폼에 바코드스캔시 입력속도 개선방법?
(1)
땡이
|
11:36
|
추천 0
|
조회 15
|
땡이 | 11:36 | - | 15 |
74616 | 함수/공식 |
New Rawdata
(3)
HIHUGO
|
10:48
|
추천 0
|
조회 27
|
HIHUGO | 10:48 | - | 27 |
74604 | 문서서식 |
New 간트차트 조건부서식 이용 문의
(3)
배고픈짐승
|
2024.10.30
|
추천 0
|
조회 54
|
배고픈짐승 | 2024.10.30 | - | 54 |
74599 | 함수/공식 |
New 이런 경우에는 무슨 함수를 써야할까요..?
(2)
iwnqn
|
2024.10.30
|
추천 0
|
조회 79
|
iwnqn | 2024.10.30 | - | 79 |
74598 | 문서서식 |
New 엑셀 유효성 검사 뛰어 쓰기 문제
(2)
답변완료
퉁퉁이
|
2024.10.30
|
추천 0
|
조회 54
|
퉁퉁이 | 2024.10.30 | - | 54 |
74592 | 함수/공식 |
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요!
(7)
답변완료
저도해볼게요
|
2024.10.30
|
추천 0
|
조회 78
|
저도해볼게요 | 2024.10.30 | - | 78 |
74589 | 구글시트 |
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다
(4)
답변완료
스톤스톤
|
2024.10.30
|
추천 0
|
조회 51
|
스톤스톤 | 2024.10.30 | - | 51 |
74585 | VBA |
New UserForm 크기질문
(5)
땡이
|
2024.10.30
|
추천 0
|
조회 63
|
땡이 | 2024.10.30 | - | 63 |
74583 | 함수/공식 |
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다
(6)
qlcc****
|
2024.10.30
|
추천 0
|
조회 74
|
qlcc**** | 2024.10.30 | - | 74 |
74582 | 함수/공식 |
New filter 함수에 대해 문의드립니다
(5)
김은상
|
2024.10.30
|
추천 0
|
조회 63
|
김은상 | 2024.10.30 | - | 63 |
74581 | 구글시트 |
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
떡
|
2024.10.30
|
추천 0
|
조회 51
|
떡 | 2024.10.30 | - | 51 |
74572 | 차트/그래프 |
New 꺽은선 그래프의 레이블이 원복이 됩니다.
(3)
구리구리이
|
2024.10.30
|
추천 0
|
조회 59
|
구리구리이 | 2024.10.30 | - | 59 |
74570 | 함수/공식 |
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ
(3)
답변완료
서기
|
2024.10.30
|
추천 0
|
조회 54
|
서기 | 2024.10.30 | - | 54 |
74566 | 함수/공식 |
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법
(1)
문과적남자
|
2024.10.30
|
추천 0
|
조회 57
|
문과적남자 | 2024.10.30 | - | 57 |
74564 | 함수/공식 |
New 각 열별로 합 구하는 방법
(2)
답변완료
라핼
|
2024.10.30
|
추천 0
|
조회 73
|
라핼 | 2024.10.30 | - | 73 |
74563 | 함수/공식 |
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ
(1)
정재욱
|
2024.10.30
|
추천 0
|
조회 72
|
정재욱 | 2024.10.30 | - | 72 |
74558 | 함수/공식 |
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!!
(9)
침착해
|
2024.10.30
|
추천 0
|
조회 76
|
침착해 | 2024.10.30 | - | 76 |
74556 | 함수/공식 |
New 세트상품 마진율 구하기
(2)
ek02
|
2024.10.30
|
추천 0
|
조회 63
|
ek02 | 2024.10.30 | - | 63 |
74543 | 기능/도구 |
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요?
(4)
야만용사
|
2024.10.29
|
추천 0
|
조회 99
|
야만용사 | 2024.10.29 | - | 99 |
74542 | 기능/도구 |
New 엑셀 백분율 숫자로변경
(3)
rarara
|
2024.10.29
|
추천 0
|
조회 90
|
rarara | 2024.10.29 | - | 90 |
74540 | 함수/공식 |
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ
(10)
혁
|
2024.10.29
|
추천 0
|
조회 125
|
혁 | 2024.10.29 | - | 125 |
74539 | 함수/공식 |
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다!
(3)
gys****
|
2024.10.29
|
추천 0
|
조회 96
|
gys**** | 2024.10.29 | - | 96 |
74533 | 함수/공식 |
New 산출집계시트에 항목을 산출서에서 가져오고싶어요
(3)
Moto
|
2024.10.29
|
추천 0
|
조회 90
|
Moto | 2024.10.29 | - | 90 |
74532 | 문서서식 |
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기
(2)
ViVaViva
|
2024.10.29
|
추천 0
|
조회 78
|
ViVaViva | 2024.10.29 | - | 78 |
74530 | 함수/공식 |
New Lookup 함수 오류에 관한 문의
(6)
답변완료
TMOH
|
2024.10.29
|
추천 0
|
조회 93
|
TMOH | 2024.10.29 | - | 93 |
74528 | 함수/공식 |
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ
(8)
말하지마00
|
2024.10.29
|
추천 0
|
조회 101
|
말하지마00 | 2024.10.29 | - | 101 |
74526 | 함수/공식 |
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다.
(2)
답변완료
깐부
|
2024.10.29
|
추천 0
|
조회 78
|
깐부 | 2024.10.29 | - | 78 |
74521 | 함수/공식 |
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요
(2)
Moto
|
2024.10.29
|
추천 0
|
조회 79
|
Moto | 2024.10.29 | - | 79 |
74520 | VBA |
New VBA 런타임 오류 관련 질문
(1)
angelriun
|
2024.10.29
|
추천 0
|
조회 61
|
angelriun | 2024.10.29 | - | 61 |
74518 | 함수/공식 |
New 두 시트에서 교집합 찾기
(3)
우파루파
|
2024.10.29
|
추천 0
|
조회 89
|
우파루파 | 2024.10.29 | - | 89 |
@뚜럼 님 현재 파일의 경로를 포함한 전체이름이 S(0)에 저장되었고, 확장자는 S(1)에 저장되었습니다.
새로운 파일이름인 sNewFilePath를 어떻게 정리할 것인지 확인하여 처리하시면 됩니다.
현재 파일과 동일한 폴더에 이름도 동일하고 확장자만 .PDF로 할 것이라면,
sNewFilePath = replace(S(0), S(1), ".pdf")
현재파일과 동일한 폴더에 T1셀에 있는 파일명을 사용하려면
sNewFilePath = ThisWorkbook.Path & "\" & Sheet1.Range("T1").Value2 & ".pdf"
추가로 항상 모듈의 맨 첫줄에 Option Explicit을 넣어 주시면
변수이름이나 상수 등에서 오타가 나더라도 확인이 가능합니다.
, OpenAfterPublish:=ralse <= 여기 오타가 있네요.
@뚜럼 님 sNewFilePath = Sheet1.Range("t1") & ".pdf"
다음 줄에
ChDir "(저장경로입력)"
한줄 추가해주시면 될 것 같네요