Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
계좌 개설  \/ 
x

or

명령 단추를 사용하여 활성 워크 시트를 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-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다. 전체 기능 30 일 무료 평가판. 60 일 환불 보장.
kte 탭 201905

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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성이 50% 증가하고 매일 수백 번의 마우스 클릭이 줄어듭니다!
officetab 하단
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sulaiman · 1 years ago
    How do I do this for MS Word? I have a bunch of questions with radio button options as answers. So I want to create a command button to output the questions with the selected answers only on another word document. How do I do this? A code would really help! I'll email you the document if you need it. Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,
      Sorry can't help you with that yet.
  • To post as a guest, your comment is unpublished.
    atul tailor · 2 years ago
    plz paste coding for save as pdf button in microsoft excel
  • To post as a guest, your comment is unpublished.
    Nzee · 2 years ago
    IT SHOWS Run-Time error '1004'
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Nzee,
      I need to know your Excel version. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Randy · 3 years ago
    I can convert my files to PDF now with a command button, but can I also get that same function to allow a different name to each file; based on an existed number structure?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi Randy,
      Sorry I can’t help with this, welcome to post any question in our forum: https://www.extendoffice.com/forum.html to get more Excel supports from our professional.
  • To post as a guest, your comment is unpublished.
    jo.colenso@gmail.com · 3 years ago
    I have a similar request I want the file to be named the same as a particular cell in the tab , IE: G19 ( This is the invoice number and I want the file to save as PDF with that name) ? . I have managed to get the export.pdf working but this isn't going to work on multiple saves.Any thoughts thanks
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Good Day,
      The following VBA code can help you solve the problem. Please select cell G19 in the popping up Kutoos for Excel dialog box after running the code. Thank you for your comment.

      Private Sub CommandButton1_Click()
      Dim xRg As Range
      Dim xName As String
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Application.InputBox("Select the cell you will name the PDF with the cell value:", "Kutools for Excel", Selection.Address, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      xName = xRg(1).Value
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\PDF\" & xName & ".pdf", _
      OpenAfterPublish:=False
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Ian · 4 years ago
    Hi,
    How would one allow the user to enter the file name as opposed to "Export.pdf"?
    Thanks,
    Ian
    • To post as a guest, your comment is unpublished.
      Mayur · 3 years ago
      Sub SaveAsPDF()
      Application.Screen Updating = False
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=Application.InputBox("Enter File Name")

      strExcelPath = "H:\My Documents"

      Application.ScreenUpdating = True
      End Sub