WordからExcelへ！VBAで簡単データ転送方法

皆さん、こんにちは。今日は、WordのデータをExcelに簡単に移す方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫ですよ。難しい専門用語は使わず、わかりやすくお伝えしますね。

WordとExcelをつなぐVBAって何？
実際にやってみよう！Wordの表をExcelに移す方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

WordとExcelをつなぐVBAって何？

Wordのイメージ

まず、「VBA」という言葉を耳にしたことがありますか？これは、「Visual Basic for Applications」の略で、WordやExcelなどのMicrosoft Office製品に組み込まれているプログラミング言語のことです。簡単に言うと、WordやExcelに「こんなことをしてほしい」と指示を出すためのツールなんです。

例えば、毎月の売上データをWordで作成しているとします。でも、集計や分析をするにはExcelの方が便利ですよね。そんなとき、VBAを使えば、Wordのデータを自動的にExcelに移すことができるんです。

実際にやってみよう！Wordの表をExcelに移す方法

では、具体的にどのようにしてWordのデータをExcelに移すのか、一緒に見ていきましょう。

1. Wordのデータを準備する

まず、Wordに表形式でデータが入力されていることを確認してください。例えば、以下のような表です。

商品名	数量	価格
りんご	10	100円
みかん	20	50円

2. ExcelでVBAを使ってWordのデータを取り込む

次に、Excelを開きます。上部の「開発」タブをクリックし、「Visual Basic」を選択します。もし「開発」タブが表示されていない場合は、以下の手順で表示させてください。

「ファイル」メニューをクリックします。
「オプション」を選択します。
「リボンのユーザー設定」をクリックします。
右側の「開発」にチェックを入れ、「OK」をクリックします。

これで「開発」タブが表示されるようになります。

3. VBAコードを入力する

「Visual Basic」が開いたら、新しいモジュールを挿入します。次に、以下のコードを入力します。

vba

Sub Wordの表をExcelに取り込む()

    Dim wdApp As Object

    Dim wdDoc As Object

    Dim wdTable As Object

    Dim ws As Worksheet

    Dim i As Long, j As Long
    ' Wordアプリケーションを起動

    Set wdApp = CreateObject("Word.Application")

    wdApp.Visible = False
    ' Wordドキュメントを開く

    Set wdDoc = wdApp.Documents.Open("C:\Users\ユーザー名\Documents\サンプル.docx")
    ' 最初の表を取得

    Set wdTable = wdDoc.Tables(1)
    ' Excelのシートを指定

    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' Wordの表の内容をExcelにコピー

    For i = 1 To wdTable.Rows.Count

        For j = 1 To wdTable.Columns.Count

            ws.Cells(i, j).Value = wdTable.Cell(i, j).Range.Text

        Next j

    Next i
    ' Wordドキュメントを閉じる

    wdDoc.Close False

    wdApp.Quit
    ' オブジェクトを解放

    Set wdTable = Nothing

    Set wdDoc = Nothing

    Set wdApp = Nothing