WORK備忘録

メモ

請求書作成VBA

2017-05-14 21:38:10 | 日記
https://www.ex-it-blog.com/Excel-data-BILL
http://tonari-it.com/excel-vba-invoice/
http://tonari-it.com/excel-vba-pdf/

WorkSheetオブジェクト.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ファイル名

=================================================================================
Sub makeinvoice()


Dim i
For i = 2 To 11 '2行目から11行目まで繰り返す

Dim wsData As Worksheet '「請求データ」シートを入れるオブジェクト変数
Set wsData = Worksheets("data") '("請求データ")

Dim seikyusyo_no As Long '請求書NO
seikyusyo_no = wsData.Range("a" & i).Value

Dim kaisyamei As String '会社名
kaisyamei = wsData.Range("b" & i).Value



'■ひな形のコピー
Worksheets("master").Copy after:=Worksheets(Worksheets.Count)

Range("e1").Value = wsData.Range("a" & i).Value '請求書NO
Range("a5").Value = wsData.Range("b" & i).Value & " 御中" '会社名
Range("e6").Value = wsData.Range("c" & i).Value '請求日
Range("e13").Value = wsData.Range("d" & i).Value '支払期限
Range("b25", "e25").Value = wsData.Range("e" & i, "h" & i).Value '区分から金額

'■シート名の変更
ActiveSheet.Name = kaisyamei


'PDF保存
Dim fileName As String '保存先フォルダパス&ファイル名
fileName = ThisWorkbook.Path & ":あいうえお.pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName

Debug.Print fileName

Next

End Sub
ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
« タブ区切りのテキストをHTML... | トップ | 見える実績 »
最近の画像もっと見る

コメントを投稿


コメント利用規約に同意の上コメント投稿を行ってください。

数字4桁を入力し、投稿ボタンを押してください。

あわせて読む

トラックバック

この記事のトラックバック  Ping-URL
  • 30日以上前の記事に対するトラックバックは受け取らないよう設定されております。
  • 送信元の記事内容が半角英数のみのトラックバックは受け取らないよう設定されております。
  • このブログへのリンクがない記事からのトラックバックは受け取らないよう設定されております。
  • ※ブログ管理者のみ、編集画面で設定の変更が可能です。