エクセルシートを指定フォルダにPDFで保存&表示するVBAを紹介します 。
![](https://ramq-cat.com/wp-content/uploads/2021/01/084919.jpg)
電子帳簿保存法の改正により、書類を電子取引で行った場合はその書類を電子データで保存しなければならなくなりました。
電子取引とは
- 電子メール(添付書類や本文記載)
- SNSやチャット
- WEBサイト上における情報の授受
- ペーパーレスFAX
- ECサイト
- メモリ
- EDI など
![](https://ramq-cat.com/wp-content/uploads/2021/01/098912.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/098912.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/098912.jpg)
そうなんですよ!><
![](https://ramq-cat.com/wp-content/uploads/2021/01/084919.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/084919.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/084919.jpg)
保存する際の保存要件もあり、フィアル名に「取引年月日」「取引先」「取引金額」を明記し、検索できるようにしないといけません。
保存しなければならない書類には、契約書、請求書、領収書、受(発)注書などがあります。
![](https://ramq-cat.com/wp-content/uploads/2021/01/098912.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/098912.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/098912.jpg)
考えると、いや、考えるまでもなく膨大な量です。
![](https://ramq-cat.com/wp-content/uploads/2021/01/084919.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/084919.jpg)
![](https://ramq-cat.com/wp-content/uploads/2021/01/084919.jpg)
これらの保存書類をエクセルで作成した場合に、要件を満たしたファイル名を付け、PDFで保存する方法を紹介します。
![](https://ramq-cat.com/wp-content/uploads/2020/11/1484715_s.jpg)
![](https://ramq-cat.com/wp-content/uploads/2020/11/1484715_s.jpg)
エクセルシートを指定フォルダにPDFで保存&表示するVBA
アクティブシートをPDF化してデスクトップに保存します。
エクセルシートを指定フォルダにPDFで保存&表示する VBA
![](https://ramq-cat.com/wp-content/uploads/2021/10/1412b7cdb8f1305946c4d4ca7576d38c-1.png)
![](https://ramq-cat.com/wp-content/uploads/2021/10/1412b7cdb8f1305946c4d4ca7576d38c-1.png)
Sub 請求書作成()
Dim Sday, Ssaki, Sgaku As String
Dim strCa As String
Dim objNa As Object
Set objNa = CreateObject(“WScript.Network”)
strCa = objNa.UserName
Sday = Format(Range(“B1”), “yyyymmdd”) & “_”
Ssaki = Range(“B2”) & “_”
Sgaku = Range(“B3”)
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF _
, Filename:=”C:\Users\” & strCa & “\Desktop\” & Sday & Ssaki & Sgaku & “.pdf” _
, IgnorePrintAreas:=False _
, OpenAfterPublish:=True
End Sub
すでに同じファイル名が存在する場合は、上書きされます。
![](https://image.moshimo.com/af-img/0866/000000026029.jpg)
![](https://image.moshimo.com/af-img/0866/000000026029.jpg)
解説
![](https://ramq-cat.com/wp-content/uploads/2020/09/81e0c65a4663e0d6df00a1558d2e4f6a-300x157.png)
![](https://ramq-cat.com/wp-content/uploads/2020/09/81e0c65a4663e0d6df00a1558d2e4f6a-300x157.png)
結果
PDFプレビュー
![](https://ramq-cat.com/wp-content/uploads/2021/10/76c691c22c7ef40a64aa64b04f05e90c-1.png)
![](https://ramq-cat.com/wp-content/uploads/2021/10/76c691c22c7ef40a64aa64b04f05e90c-1.png)
PDFタイトル
![](https://ramq-cat.com/wp-content/uploads/2021/10/82cd89bf6e3e7beeac7a6a7e3c296e8a-1.png)
![](https://ramq-cat.com/wp-content/uploads/2021/10/82cd89bf6e3e7beeac7a6a7e3c296e8a-1.png)
![](https://ramq-cat.com/wp-content/uploads/2020/08/5ba897d6d697425ab4b38f14e988b482.png)
![](https://ramq-cat.com/wp-content/uploads/2020/08/5ba897d6d697425ab4b38f14e988b482.png)
![](https://ramq-cat.com/wp-content/uploads/2020/08/5ba897d6d697425ab4b38f14e988b482.png)
エクセルシートを指定フォルダにPDFで保存&表示するVBAでした。
![](https://ramq-cat.com/wp-content/uploads/2020/09/48a18cd88c72bf7bae262524987260b7-300x157.png)
![](https://ramq-cat.com/wp-content/uploads/2020/09/48a18cd88c72bf7bae262524987260b7-300x157.png)
コメント