皆さん、こんにちは。今日は、ExcelのVBAを使って、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のバージョンによっては表示名が異なる場合がありますので、似た名称の項目を探してみてください。
Q2: Wordが自動的に起動しないのですが、どうすればいいですか？
コード内の`wdApp.Visible = True`が正しく設定されているか確認してください。また、セキュリティ設定によっては、マクロの実行が制限されている場合があります。Excelの「オプション」から「セキュリティセンター」を確認し、マクロの設定を適切に変更してください。
まとめ
いかがでしたか？今回は、ExcelのVBAを使って、Wordの表にデータを書き込む方法をご紹介しました。最初は少し難しく感じるかもしれませんが、慣れてくるととても便利な機能です。ぜひ試してみてくださいね。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント