[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBA ExcelでWordに差し込み+PDF保存』(KEN)
Excel(マクロ)のシートにデータを作成
1行目は項目欄。
データはA〜Fに入力されていますがWordに差し込むデータはB〜F
ボタンを配置し下記VBAを記載。
Excel(マクロ)とWordは同じフォルダに配置。
VBA初心者ですが色々調べたりしながらなんとか下記まできましたが
どうしても同じフォルダ内にPDFが保存されないです。
マクロのエラーも起きないのでどこがおかしいのかわかりません。
よろしくお願いします。
Sub ボタン1_Click()
Dim waitTime As Variant Dim i As Long, k As Long Dim path As String, pdffilepath As String, pdffilename As String
Dim wdapp As Word.Application Set wdapp = CreateObject("Word.application") Dim wddoc As Word.Document wdapp.Visible = True path = ThisWorkbook.path & "\表紙.docx"
Dim ws1 As Worksheet Set ws1 = Worksheets("差込DB")
Dim myrange1 As Variant myrange1 = ws1.UsedRange
For i = LBound(myrange1) + 1 To UBound(myrange1) Set wddoc = wdapp.Documents.Open(path) waitTime = Now + TimeValue("0:00:03") Application.Wait waitTime For k = LBound(myrange1, 2) + 1 To UBound(myrange1, 2) - 1 With wddoc.Content.Find .Text = myrange1(1, k) .Forward = True .Replacement.Text = myrange1(i, k) .Wrap = wdFindContinue .MatchFuzzy = False .Execute Replace:=wdReplaceAll End With Next
pdffilename = myrange1(i, 2) & "_" & myrange1(i, 3) & ".pdf" pdffilepath = ThisWorkbook.path & "\" & pdffilename wddoc.SaveAs2 fileName:="pdffilepath", FileFormat:=17
wddoc.Close savechanges:=False Next
wdapp.Quit Set wddoc = Nothing Set wdapp = Nothing
End Sub
< 使用 Excel:Excel2016、使用 OS:Windows10 >
> wddoc.SaveAs2 fileName:="pdffilepath", FileFormat:=17 ~~~~↑~~~~~~~ ここが単なる文字列になっていますよ。 (ダブルクォーテーションは不要)
(半平太) 2022/01/18(火) 19:43
変数 pdffilepath に何が入っているかチェックしてください。
イメージ通りになってないんだと思いますよ。
(半平太) 2022/01/19(水) 09:38
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.