エクセルVBAからWordファイルを起動
この記事では、Word文書を開くためのマクロを作成します。
Word文書を開くには、メインシートのテキストボックスに文書のフルパスを指定します。フルパスを指定した後、「送信」ボタンをクリックしてマクロを実行します。
コードの説明
Dim WDApp As Word.Application上記のコードは、Wordアプリケーションのオブジェクトを宣言するために使用されます。
Set WDApp = CreateObject( “word.Application”)
上記のコードは、applicationという単語の新しいオブジェクトを作成するために使用されます。 Wordアプリケーションが実行を開始しますが、デフォルトでは表示されません。
WDApp.Visible = True上記のコードは、アプリケーションウィンドウという単語を表示するために使用されます。
WDDoc = WDApp.Documents.Open(FileName)を設定します
上記のコードは、Word文書を開くために使用されます。
Set WDDoc = Nothing Set WDApp = Nothing上記のコードは、オブジェクトが占有しているメモリを解放するために使用されます。
コードについては以下に従ってください
Sub OpeningWordFile() 'Declaring variables Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document 'Getting the file name from the text box FileName = Sheets("Main").TextBox1.Value 'Creating object of the word application Set WDApp = CreateObject("word.Application") 'Making visible the word application WDApp.Visible = True 'Opening the required word document Set WDDoc = WDApp.Documents.Open(FileName) 'Release the memory used by object variable Set WDDoc = Nothing Set WDApp = Nothing End Sub
このブログが気に入ったら、FacebookやFacebookで友達と共有してください。
皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください