Excel VBAでWordの表にデータを書き込む方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、ExcelのVBAを使って、Wordの表にデータを書き込む方法をご紹介します。パソコンやスマホが苦手な方でも大丈夫ですよ。一緒にやってみましょう。

Excel VBAとWordの連携とは？
準備ExcelとWordの設定
1. 1. Wordの参照設定を行う
実践ExcelのデータをWordの表に書き込む
1. 1. Excelのデータを用意する
2. 2. VBAコードを記述する
よくある質問や疑問
1. Q1: 参照設定で「Microsoft Word XX.X Object Library」が見つからない場合はどうすればいいですか？
2. Q2: Wordが自動的に起動しないのですが、どうすればいいですか？
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAとWordの連携とは？

Wordのイメージ

まず、Excel VBAとWordを連携させるってどういうことか、簡単にお話ししますね。普段、Excelでデータを管理して、Wordで文書を作成することが多いと思います。でも、同じデータを何度も入力するのは大変ですよね。そこで、ExcelのVBAを使って、Excelのデータを自動的にWordの表に反映させることができるんです。これで作業がぐっと楽になりますよ。

準備ExcelとWordの設定

では、具体的な手順に入る前に、少しだけ準備が必要です。難しくないので安心してくださいね。

1. Wordの参照設定を行う

まず、ExcelのVBAからWordを操作するための設定を行います。

Excelを開き、キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAの編集画面を開きます。
上部のメニューから「ツール」をクリックし、「参照設定」を選択します。
表示された一覧から「Microsoft Word XX.X Object Library」にチェックを入れ、「OK」をクリックします。※XX.Xはバージョン番号です。

これで、ExcelのVBAからWordを操作する準備が整いました。

実践ExcelのデータをWordの表に書き込む

それでは、実際にExcelのデータをWordの表に書き込む方法を見ていきましょう。

1. Excelのデータを用意する

まず、Excelに以下のようなデータを用意します。

名前	年齢	職業
山田太郎	30	エンジニア
鈴木花子	28	デザイナー

2. VBAコードを記述する

次に、先ほど開いたVBAの編集画面に以下のコードを入力します。

vba

Sub ExcelDataToWordTable()

    ' Wordアプリケーションを宣言

    Dim wdApp As Word.Application

    Set wdApp = New Word.Application

    wdApp.Visible = True
    ' 新規Word文書を作成

    Dim wdDoc As Word.Document

    Set wdDoc = wdApp.Documents.Add
    ' Excelのデータ範囲を指定

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください

    Dim lastRow As Long

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' Wordに表を作成

    Dim wdTable As Word.Table

    Set wdTable = wdDoc.Tables.Add(wdDoc.Range(0, 0), lastRow, 3)

    wdTable.Borders.Enable = True
    ' ヘッダーを追加

    wdTable.Cell(1, 1).Range.Text = "名前"

    wdTable.Cell(1, 2).Range.Text = "年齢"

    wdTable.Cell(1, 3).Range.Text = "職業"

' ExcelのデータをWordの表に書き込む Dim i As Long For i = 2 To lastRow wdTable.Cell(i, 1).Range.Text = ws.Cells(i, 1).Value wdTable.Cell(i, 2).Range.Text = ws.Cells(i, 2).Value wdTable.Cell(i, 3).Range.Text = ws.Cells(i, 3).Value Next i End Sub

このコードを実行すると、Excelのデータが新しいWord文書の表に書き込まれます。

よくある質問や疑問

Q1: 参照設定で「Microsoft Word XX.X Object Library」が見つからない場合はどうすればいいですか？

参照設定の一覧に「Microsoft Word XX.X Object Library」が表示されない場合、Wordがインストールされていない可能性があります。まず、Wordがインストールされているか確認してください。また、Officeのバージョンによっては表示名が異なる場合がありますので、似た名称の項目を探してみてください。