Note: The other languages of the website are Google-translated. Back to English

명령 단추를 사용하여 활성 워크 시트를 Excel에서 PDF 파일로 저장하는 방법은 무엇입니까?

Microsoft Excel에서 작업하는 동안 활성 워크 시트를 PDF 파일로 저장하는 문제에 직면 할 수 있습니다. 이 기사에서는 명령 단추를 통해 VBA 코드를 사용하여 활성 워크 시트를 PDF 파일로 저장하는 방법을 배울 수 있습니다. 또한 활성 통합 문서의 범위 또는 각 워크 시트를 개별 PDF 파일로 저장하려는 경우에도이 문서가 도움이 될 수 있습니다.

명령 단추를 사용하여 활성 워크 시트를 VBA 코드로 PDF 파일로 저장
Excel 용 Kutools를 사용하여 활성 또는 각 워크 시트를 개별 PDF 파일로 쉽게 저장


명령 단추를 사용하여 활성 워크 시트를 VBA 코드로 PDF 파일로 저장

다음 VBA 코드를 실행하여 명령 단추를 클릭하여 활성 워크 시트를 PDF 파일로 저장할 수 있습니다. 다음과 같이하십시오.

1. 먼저 변환 된 새 PDF 파일을 저장하기 위해 PDF라는 폴더를 만들어야합니다. 여기에서 내 로컬 디스크 (C :)에이 폴더를 만듭니다.

2. 클릭하여 명령 단추를 삽입하십시오 개발자 > 끼워 넣다 > 명령 단추 (ActiveX 컨트롤). 스크린 샷보기 :

2. 그런 다음 새 행을 추가해야하는 워크 시트에 명령 단추를 그리고 명령 단추를 마우스 오른쪽 단추로 클릭하고 등록 오른쪽 클릭 메뉴에서.

3. 에서 등록 대화 상자에서 명령 단추의 표시된 텍스트를 표제 아래 상자 분류 된 탭을 클릭 한 다음 대화 상자를 닫습니다.

아래 스크린 샷과 같이 Command Button의 표시된 텍스트가 변경된 것을 볼 수 있습니다.

4. 명령 단추를 다시 마우스 오른쪽 단추로 클릭 한 다음 코드보기 오른쪽 클릭 메뉴에서.

5. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창에서 코드 창의 원래 코드를 다음 VBA 코드로 바꾸십시오.

VBA 코드 : 활성 워크 시트를 PDF로 저장하는 명령 단추

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

주의 사항: 코드에서 CommandButton1은 활성 시트를 PDF 파일로 저장하는 데 사용할 명령 단추 이름입니다. "C : \ PDF \ Export.pdf"는 저장 PDF 파일의 경로 및 이름입니다.

6. 누르세요 다른 + Q 키를 동시에 닫아 응용 프로그램 용 Microsoft Visual Basic 창문. 그런 다음 디자인 모드 아래 개발자 탭.

이제 명령 버튼을 클릭하면 활성 워크 시트가 내보내기라는 이름의 PDF 파일로 저장되고 지정된 위치에 있습니다.


Excel 용 Kutools를 사용하여 각 워크 시트를 활성 통합 문서의 개별 PDF 파일로 저장하십시오.

여기에서 통합 문서 분할 ~의 유용성 Excel 용 Kutools 활성 워크 시트를 PDF 파일로 쉽게 저장합니다. 또한이 유틸리티를 사용하여 현재 통합 문서의 각 워크 시트를 개별 PDF 파일로 저장할 수도 있습니다.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

1. 통합 문서에서 각 워크 시트를 개별 PDF 파일로 저장 한 다음 쿠툴즈 플러스 > 통합 문서 > 통합 문서 분할. 스크린 샷보기 :

2. 에서 통합 문서 분할 대화 상자에서 다음과 같이 구성하십시오.

2.1) 활성 시트 이름 만 확인하십시오. 워크 시트 이름 상자;
2.2) 선택 PDF (*. pdf) 옵션에서 형식으로 저장 드롭 다운 목록;
2.3) 클릭 스플릿 버튼을 누른 다음 폴더 선택 대화 상자가 나타나면 PDF 파일을 저장할 폴더를 지정하십시오.

그러면 선택한 워크 시트가 즉시 PDF 파일로 저장됩니다.

노트:

1. 워크 시트 이름 상자에서 여러 워크 시트 이름을 확인하여 한 번에 개별 pdf 파일로 저장할 수 있습니다.
2. 워크 시트를 pdf 파일로 저장하는 경우를 제외하고 워크 시트를 txt로 저장할 수 있습니다. 또는 csv. 당신이 필요로하는 파일.

  무료 평가판(30-일) 이 유틸리티의 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.


데모 : Excel 용 Kutools를 사용하여 선택 항목 또는 각 워크 시트를 PDF로 저장


관련 기사:


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (33)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 사용자가 "Export.pdf"가 아닌 파일 이름을 입력하도록 하려면 어떻게 해야 합니까? 고마워, 이안
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하위 SaveAsPDF()
Application.Screen 업데이트 = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
Filename:=Application.InputBox("파일 이름을 입력하세요")

strExcelPath = "H:\내 문서"

Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
비슷한 요청이 있습니다. 파일 이름을 탭의 특정 셀과 동일하게 지정하고 싶습니다. IE: G19(이것은 송장 번호이며 파일을 해당 이름의 PDF로 저장하고 싶습니다)? . export.pdf가 작동하도록 관리했지만 여러 저장에서는 작동하지 않습니다. 어떤 생각이든 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
다음 VBA 코드는 문제를 해결하는 데 도움이 될 수 있습니다. 코드를 실행한 후 팝업되는 Kutoos for Excel 대화 상자에서 G19 셀을 선택하십시오. 당신의 의견에 감사드립니다.

Private Sub CommandButton1_Click ()
범위로 Dim xRg
Dim xName을 문자열로
오류에 대한 다음 재개
Application.ScreenUpdating = False
Set xRg = Application.InputBox("셀 값으로 PDF의 이름을 지정할 셀을 선택하십시오:", "Kutools for Excel", Selection.Address, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
x이름 = xRg(1).값
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
파일 이름:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish : = 거짓
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
경로를 D드라이브로 변경했는데 D드라이브에 저장이 안되네요. 무엇을 할까요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Akshay MN,
D 드라이브에 대한 위의 경로를 수정한 경우 D 드라이브에 PDF라는 폴더가 있는지 확인하십시오.
하위 폴더를 생성하지 않고 파일을 D 드라이브에만 저장하려면 다음 폴더 경로를 사용하십시오. "C:\" & xName & ".pdf"
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이제 명령 버튼을 사용하여 내 파일을 PDF로 변환할 수 있지만 각 파일에 다른 이름을 허용하는 동일한 기능을 사용할 수도 있습니다. 존재하는 숫자 구조를 기반으로?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 랜디,
도움을 드릴 수 없어 죄송합니다. 포럼에 질문을 게시할 수 있습니다. https://www.extendoffice.com/forum.html 전문가로부터 더 많은 Excel 지원을 받으려면
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
IT는 런타임 오류 '1004'를 보여줍니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Nzee님
당신의 엑셀 버전을 알아야 합니다. 당신의 의견에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Microsoft Excel에서 pdf로 저장 버튼을 위한 plz 붙여넣기 코딩
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
MS Word에서 이 작업을 수행하려면 어떻게 해야 합니까? 라디오 버튼 옵션을 답변으로 사용하는 질문이 많습니다. 그래서 다른 워드 문서에만 선택한 답변이 있는 질문을 출력하는 명령 버튼을 만들고 싶습니다. 어떻게 해야 하나요? 코드가 정말 도움이 될 것입니다! 문서가 필요하면 이메일로 보내 드리겠습니다. 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
죄송합니다. 아직 도와드릴 수 없습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하위 ZapiszPDF()
문자열로 Dim sNazwaPliku

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs). sNazwaPliku 표시, 57

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
ive는 코드를 따랐습니다. 이것은 내가 가진 것입니다.

Private Sub CommandButton2_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
파일 이름:=범위("P2"), _
OpenAfterPublish:=참
Application.ScreenUpdating = True
최종 하위

원본 파일이 있는 위치에 저장할 파일이 필요합니다. 또한 같은 이름으로 저장하려면 Excel 파일의 사본이 필요합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 매트 벤틀리입니다.
코드는 완벽하게 작동합니다. 공유해 주셔서 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

칸 제만드 미르 헬펜?

Ich nutze diese Zeilen und möchte jedoch, das aus dem Blatt ein Zellenwert als Dateiname gespeichert wird:

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
파일 이름:="C:\PDF\Export.pdf", _
OpenAfterPublish : = 거짓
Application.ScreenUpdating = True
최종 하위

감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird!
Kann mir jemand ein Tipp geben?


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
파일 이름:="c:/" & G3 & ".pdf", _
OpenAfterPublish : = 거짓
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하이 사샤,
다음 코드가 도움이 될 수 있습니다. 코드를 적용하기 전에 'C:\사용자\Win10x64Test\문서\PDF' 네 번째 줄에 자신의 대상 폴더 경로를 지정합니다.
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Что это за кнопка - "другой" + Q клавиши одновременно" ?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 디아나,
키보드의 "Alt" 키입니다. Microsoft Excel에서는 사용자가 "Alt" + "Q" 키를 눌러 Microsoft Visual Basic for Applications 창을 닫고 워크시트로 돌아갈 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
괴데닥

이것은 Command-Knop Om Een Actief Werkblad Op Te Slaan Als PDF-Best 및 Met VBA-Code로 제작된 voorbeld excelblad te maken voor beeld om een ​​filmpje입니다.
kom er niet helemaal uit met de code.
알바스트 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하이맥스,
무슨 말인지 이해가 안되네요 죄송합니다. 수행하려는 작업의 스크린샷을 첨부해야 할 수도 있습니다. 불편을 드려 죄송합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 팀,

생성된 파일의 대상을 사용자의 데스크톱으로 변경하는 데 도움을 줄 수 있는 사람이 있는지 궁금하십니까? 내 회사는 C:에 대한 액세스를 허용하지 않으므로 스크립트가 작동하지 않습니다.

많은 많은 많은 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Ben Stoddart,
바탕 화면의 폴더를 열고 주소 상자에 폴더 경로를 복사한 다음 VBA 코드의 폴더 경로를 복사한 경로로 바꾸면 됩니다.
다음은 새 파일 이름 행입니다(사용자 이름을 자신의 사용자 이름으로 바꾸십시오). 내보내기.pdf PDF 파일의 이름과 파일 확장자입니다.
파일 이름:="C:\사용자\사용자 이름\데스크탑\PDF\Export.pdf", _
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것을 실행할 때마다 Excel 시트가 저장된 로컬 드라이브에 PDF가 저장됩니다. 이 자동 저장을 중지하려면 어떻게 해야 합니까?

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
OpenAfterPublish:=참
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래를 실행하면 PDF의 로컬 버전이 자동으로 생성됩니다. 이 자동 저장을 중지하려면 어떻게 해야 합니까?

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
OpenAfterPublish:=참
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 제임스
PDF 파일을 수동으로 저장할 폴더를 선택하는 팝업창을 띄우시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Crystal 님, 이상적으로는 그렇습니다. 그러면 PDF를 저장할 위치를 선택할 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
에이치 제임스,

다음 VBA 코드는 문제를 해결하는 데 도움이 될 수 있습니다.
주의 사항: 대상과 파일 이름을 동시에 처리할 수 없습니다. 다음 VBA 코드를 추가한 후 버튼을 클릭하면 대상 폴더를 선택할 수 있는 대화 상자가 나타납니다. 대상 폴더를 선택하면 PDF 파일에 이름을 지정하라는 상자가 나타납니다.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, wird diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, WIRD diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden?


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
파일 이름:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=참
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하이 사샤,
다음 VBA 코드가 도움이 될 수 있습니다. 시도해 보십시오.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호