請求書の管理をAccess2013でしようとしています。請求書をレポートで作成するところまでは出来たのですが、およそ100件の得意先に請求書をPDFで送付しなくてはなりません。
これを自動化したいと思い、様々なサイトを見たのですが、当方はずかしながらVBA知識がなく、自分のデータ用にコードを書き換えることができません。
今編集しようとしているコードは下記のとおりです。
Private Sub コマンド24_Click()
Dim strReportName As String
Dim strPath As String
Dim strFileName As String
'対象のレポート名
strReportName = "excelインポート"
'出力先のフォルダ名
strPath = "D:\Users\08161\Desktop\請求書作成\PDF"
'出力するPDFのファイル名
strFileName = strPath & "\" & Format(Date, "yyyy" & "mm" & "dd")
DoCmd.OpenReport strReportName, acViewPreview
If MsgBox("レポートをPDF化しますか?", vbYesNo) = vbYes Then
If Dir(strFileName & ".pdf") = "" Then
DoCmd.SetWarnings False
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".pdf", True
DoCmd.SetWarnings True
Else
If MsgBox("同じ名前のファイルがあります。上書きしますか", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".pdf", True
DoCmd.SetWarnings True
Else
DoCmd.Close acReport, strReportName
Exit Sub
End If
End If
End If
DoCmd.Close acReport, strReportName
End Sub
上記のコードだと、ファイル名が日付になってしまうのを、「excelインポート」という名前のテーブルにある「お名前」+"様_"と「特集」というフィールドの名前をつなげたファイル名にしたいです。
Ex)山田花子様_花特集
また、上記のままのコードを実行すると、確かにPDFファイルは任意の場所にできるのですが、
開こうとすると「サポートしてないか壊れているかデコードできてない」というエラーが表示されて開くことができません。
そしてPDFは1つしかできません。単票形式で100Pあるレポートを100個のPDFにしたいです。
どうか、どうか御教授お願いいたします…。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
> 「サポートしてないか壊れているかデコードできてない」というエラーが表示されて開くことができません。
確かに、拡張子が PDF のファイルはできるでしょうが、
> DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".pdf", True
出力ファイルの形式に エクセル(acFormatXLS)を指定していますから
中身は Excel のブックです。
とりあえず acFormatPDF を指定して動作確認してください。
「excelインポート」という名前のテーブルのレコード数分、PDF を作成、
ということでよろしいでしょうか?
同じ「お名前」「特集」の レコードは存在しない?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ACCESSレポートをPDFに出力したい
その他(OS)
-
Accessフォーム全レコードをPDFで個別保存
その他(データベース)
-
Acccess レポートをグループ別に出力する
Visual Basic(VBA)
-
-
4
AccessでPDFを複数ファイルにして出力
Visual Basic(VBA)
-
5
ACCESS2010 レポートを分割しPDF化
Access(アクセス)
-
6
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
7
Access VBA を利用して、フォルダ内のファイルの名称を変更したい
Access(アクセス)
-
8
AccessVBAでレポートをPDFで出力
Visual Basic(VBA)
-
9
入力した値をコンボボックスにすぐに反映させる方法
Excel(エクセル)
-
10
AccessのレポートからPDFをページ毎に作成
Access(アクセス)
-
11
Access2007でページ毎にPDFを出力したい
その他(Microsoft Office)
-
12
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
13
AccessVBA複数レポート条件毎にまとめて出力
Visual Basic(VBA)
-
14
AccessからExcelのファイルを起動する
その他(データベース)
-
15
アクセスのレポートに、フォームで算出した数字を表示させたい
Access(アクセス)
-
16
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
17
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
18
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
19
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
20
アクセスVBAのMe!と[ ]
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのレポートのヘッダー...
-
Accessのレポート上のテキスト...
-
Accessでページヘッダーだけが...
-
Accessで複数レポートの印刷
-
ACCESS レポートでグループご...
-
ACCESSでデータゼロ件の時レポ...
-
レポートのラベルなどの非表示...
-
レポートのコントロールソース...
-
ACCESSXPでサブレポートの集計...
-
★お手上げ状態です。助けてくだ...
-
Access2007 総ページ数が狂う
-
アクセスでレポート作成時にデ...
-
ACCESS2000 VBAで印刷時にサブ...
-
Accessのフォーマット時イベント
-
Accessでレポートの項目をVBAで...
-
計算結果がレポートビューでは...
-
AccessでExcelのsumif関数の様...
-
Access Yes/No型のデータを使...
-
エクセルで表を作り、ピボット...
-
テキストボックスにコントロー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのレポートのヘッダー...
-
Accessのレポート上のテキスト...
-
accessレポートにwordの文...
-
ACCESS2000 VBAで印刷時にサブ...
-
Accessのフォーマット時イベント
-
★お手上げ状態です。助けてくだ...
-
Access2013でレポートを名前を...
-
エクセルで表を作り、ピボット...
-
Accessでレポートの項目をVBAで...
-
Access チェックボックスを使...
-
アクセスでレポート作成時にデ...
-
Accessでページヘッダーだけが...
-
アクセスでファイル名をレポー...
-
レポートのコントロールソース...
-
計算結果がレポートビューでは...
-
BusinessObjectsについて教えて...
-
ACCESS でフォームフィルターを...
-
アクセスのレポートで空白のテ...
-
レポートのラベルなどの非表示...
-
テキストボックスにコントロー...
おすすめ情報