엑셀 VBA로 엑셀 각 시트를 PDF 출력
개요
엑셀의 각 시트 각각을 PDF로 출력하고 싶다는 것이 있었다. 출력 버튼을 누르면 각 시트가 PDF로 출력되는 것을 만들었습니다. PDF 파일 이름은 시트 이름입니다.
환경
준비
코드
vba 'デスクトップへのパスを取得
Dim strDesktopFullPath As String
Dim varWSShell As Variant
Set varWSShell = CreateObject("WScript.Shell")
strDesktopFullPath = varWSShell.SpecialFolders("Desktop") & "\"
Set varWSShell = Nothing
'出力フォルダ(=デスクトップ)
Dim strOutputFolder As String
strOutputFolder = strDesktopFullPath
'ファイル名の設定およびpdf出力(Sheet2以降)
Dim strFileName As String
For n = 2 To Worksheets.Count
'セル(A2)が空のシートはpdf出力しない
If Worksheets(n).Cells(2, 1).Value <> "" Then
'ファイル名(=シート名)
strFileName = Worksheets(n).Name
'PDFに変換する
Worksheets(n).ExportAsFixedFormat Type:=xlTypePDF, Filename:=strOutputFolder & "\" & strFileName & ".pdf"
End If
Next
xlsm 파일은 아래 GitHub로 업되어 있습니다.
htps : // 기주 b. 이 m/이치아키/에 x세 l과 Pdf. 기 t
Reference
이 문제에 관하여(엑셀 VBA로 엑셀 각 시트를 PDF 출력), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/i-chiaki/items/c9e27f662e8f26f6f9fa
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
'デスクトップへのパスを取得
Dim strDesktopFullPath As String
Dim varWSShell As Variant
Set varWSShell = CreateObject("WScript.Shell")
strDesktopFullPath = varWSShell.SpecialFolders("Desktop") & "\"
Set varWSShell = Nothing
'出力フォルダ(=デスクトップ)
Dim strOutputFolder As String
strOutputFolder = strDesktopFullPath
'ファイル名の設定およびpdf出力(Sheet2以降)
Dim strFileName As String
For n = 2 To Worksheets.Count
'セル(A2)が空のシートはpdf出力しない
If Worksheets(n).Cells(2, 1).Value <> "" Then
'ファイル名(=シート名)
strFileName = Worksheets(n).Name
'PDFに変換する
Worksheets(n).ExportAsFixedFormat Type:=xlTypePDF, Filename:=strOutputFolder & "\" & strFileName & ".pdf"
End If
Next
Reference
이 문제에 관하여(엑셀 VBA로 엑셀 각 시트를 PDF 출력), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/i-chiaki/items/c9e27f662e8f26f6f9fa텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)