| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>2016
Sub PDF로출력()
Sheets("실적표").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("G3").Value & "\" & Range("G2").Value & Range("I2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Range("A1").Select
End Sub
G3셀 값이 저장경로명이구요, G2와 I2셀 값이 저장파일명입니다.
여기서 두가지를 변경해 보고 싶습니다.
1. 현재 G3셀에 텍스트로 D:/통보서로 입력되어 있는데요 -> 바탕화면의 통보서 폴더로 할려면 혹시 어떻게
G3셀 텍스트 내용을 바꿔야 되는지?
2. 저장경로 폴더명을 만든상태에서 매크로가 잘 작동이 되는데요..한가지 동일한 파일명이 이미 있는 경우
또다시 실행을 하면 에러가 발생하고 VB코딩 창으로 넘어갑니다.
그래서, 동일한 파일명이 있는경우엔,,, 메시지 창이 떠서 동일 파일이 있습니다. 확인하세요 란 창이 2~3초간
뜨고 자동으로 빠져 나오면 참 좋겠습니다.
==============[김현수님 글에 대한 답변입니다]==============
Sub PDF로출력()
Dim sPath As String
Dim sFn As String
Sheets("실적표").Select
sPath = WorksheetFunction.Trim(Range("G3").Value)
sFn = WorksheetFunction.Trim(Range("G2").Value & Range("I2").Value & ".pdf")
If Right(sPath, 1) <> Application.PathSeparator Then sPath = sPath & "\"
If Dir(sPath) <> "" Then
MsgBox sFullName & "파일이 존재합니다." & vbCrLf & vbCrLf & "확인후 다른 이름으로 저장하세요.", vbCritical
Else
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPath & sFn, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Range("A1").Select
End Sub
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
