Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

804 / 76735

←次へ　｜　前へ→


	【81594】Re:PDFへのデータ差し込み

sinzo - 21/1/16(土) 17:12 -


	引用なし

	パスワード

Win10,ProDC2015でも２通目から先頭の０抜けるの確認しました。
対策としてあんちょく？ですが
毎回新しいテンプレートで作業するのはいかがでしょうか。

Public Sub Sample2()
Dim app As Object
Dim avdoc As Object
Dim pddoc As Object
Dim i As Long
Const PDSaveFull = 1
Const PdfFilePath As String = "C:\Files\template.pdf" 'PDFファイルのパス

Set app = CreateObject("AcroExch.App")
Set avdoc = CreateObject("AcroExch.AVDoc")
For i = 2 To ActiveSheet.Range("A1").End(xlDown).Row
　If avdoc.Open(PdfFilePath, "") = True Then
　　app.Show 'Acrobat表示
　　Set pddoc = avdoc.GetPDDoc
　　With pddoc.GetJSObject
　　　.getField("fldName").Value = CStr(ActiveSheet.Cells(i, 1).Value)
　　　.getField("fldAge").Value = CStr(ActiveSheet.Cells(i, 2).Value)
　　　.getField("fldAddress").Value = CStr(ActiveSheet.Cells(i, 3).Value)
　　　pddoc.Save PDSaveFull, "C:\Files\MyPDF_" & i - 1 & ".pdf" 'PDFファイルを別名保存
　　End With
　　avdoc.Close 1 '文書を保存せずに閉じる
　End If
Next
app.Hide: app.Exit
End Sub

2 hits

▼

【81592】PDFへのデータ差し込み junhoshi 21/1/14(木) 10:20