みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Accessの入力データをWordへ取り込む

Accessに入力したデータをWordにとりだしているのですが,Wordを立ち上げるまでにとても時間がかかります。

Dim woApp As Word.Application
Dim woDoc As Word.Document
Dim strPath As String 'ファイルのパス
Dim strTXT As String 'フィールドデータ
strPath = Application.CurrentProject.Path 'Current Path
Set woApp = CreateObject("Word.Application")
Set woDoc = woApp.Documents.Open(strPath & "\" & “ファイル名”) 'TemplateとなるWORDファイル
woApp.Visible = False

として,テンプレートとして前もって作ってあるWordファイルを開き,バックグラウンドでAccessのデータをWordへ貼り付けていっています。
この(Set woDoc = woApp.Documents.Open(strPath & "\" & “ファイル名”)の部分がとても時間がかかってしまいます。
他のアプリケーションを立ち上げるのにはどうしても時間がかかってしまうのかもしれませんが,少しでも早くする方法はないでしょうか?
宜しくお願いいたします。

投稿日時 - 2007-06-13 23:33:24

QNo.3082728

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

CreateObjectをGetObjectにかえてみてはどうでしょうか?

Dim woApp As Word.Application
Dim woDoc As Word.Document
Set woDoc = GetObject("ファイル名") 'TemplateとなるWORDファイル
Set woApp = woDoc.Application
woApp.Visible = False 'あってもなくても同じかな?

投稿日時 - 2007-06-16 14:07:35

あなたにオススメの質問