人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

AccessのテーブルからVBAでWORDに差し込みをしたい
VBA初心者です。受発注管理.accdb の temp発注書作成 というテーブルの値をレコードごとに
発注書-差込用.doc に差し込み、別名保存したいのですが
VBAを教えていただける方いらっしゃいませんでしょうか。現在の作成中のコードを添付します。

Function InsertDoc(Maker As String) 'メーカー名を受取

Dim myWrd As Object 'オリジナル文書
Dim myTMP As Object 'テンプレート文書
Dim FileName As String

Dim myFileP As String

myFileP = "C:\???\Desktop\発注書-差込用.doc"

Set myWrd = GetObject(myFileP)
Set myTMP = GetObject(Class:="Word.Application")

'差込
With ActiveDocument.MailMerge
.OpenDataSource Name:="C:\???\Desktop\受発注管理.accdb", Connection:="TABLE temp発注書作成", SQLStatement:="SELECT * FROM [temp発注書作成]"
.SuppressBlankLines = True
.Destination = wdSendToNewDocument
.Execute
End With

'保存
FileName = "C:\???\Desktop\" & Format(Date, "yymmdd") & Maker & "発注書.doc"
myWrd.Application.ActiveDocument.SaveAs FileName:=MyName, FileFormat:=wdFormatDocument
myWrd.Application.ActiveDocument.Close

myWrd.Close

Set myTMP = Nothing
Set myWrd = Nothing

End Function

●質問者: MitcheyK
●カテゴリ:コンピュータ
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ