VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/02/24(Mon) 11:13 |
| 投稿者 | ： 学生 |
| Ｅメール | ： sachibow@cox.net |
| ＵＲＬ | ： |
| タイトル | ： Re^2: VBと差し込み印刷 |
返信ありがとうございます。
うまく動かない−ワードは起動するのですが、そこにAccessのFileがつながって
くれないというところで、とまっています。
OSはWindowsのXP、VBは6.0を使用しています。
−−−−−−−−−−−−−−−−−−−−−−−−
Dim WithEvents oApp As Word.Application
Private Sub Form_Load()
'Start Word.
Set oApp = CreateObject("Word.Application")
End Sub
Private Sub Command1_Click()
Dim oMainDoc As Word.Document
Dim oSel As Word.Selection
Dim sDBPath As String
Set oMainDoc = oApp.Documents.Add
With oMainDoc.MailMerge
.MainDocumentType = wdFormLetters
sDBPath = "C:\db1.mdb"
.OpenDataSource Name:=sDBPath, _
SQLStatement:="SELECT * FROM [Table1]"
End With
With oMainDoc
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute Pause:=False
End With
End Sub
Private Sub oApp_MailMergeAfterMerge(ByVal Doc As Word.Document, ByVal DocResult As Word.Document)
'Doc.Close False
oApp.Visible = True
MsgBox "Mail Merge Complete: " & oApp.ActiveDocument.Name
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set oApp = Nothing
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−−−
これが、Codeなのですが、これを使うと、なんとか
上手くAccessとつながって差し込み印刷フィールドがでてきてくれました。
でも、まだ問題があって、なぜかWordのDocumentが２つでてきてしまいます。
初心者なものですみません。
アドバイス等あれば、よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）