エクセルのデータをワードの表に貼り付ける

Question

こんばんわ。エクセルに入力したデータ（１から１００など４種類のデータ）をワードの表（表が１００個あり、それぞれの表に４種類のデータを貼り付ける）に自動的に貼り付けたいと思います。リンク貼り付け、差込印刷を試してみましたが、作業性が良いとわ思いません。マクロなどでできれば良いと思いますが、私マクロがあまり詳しくないため、わかりません。教えて頂けないでしょうか。宜しくお願いします。

avanzato · Accepted Answer

#1です。
まず、操作についてですがエクセル→ワードへのデータ引渡しは手動で行います。
方法は
添付画像のように
　　　（A列）（B列）（C列）
（1行目）○　　◇　　△
（2行目）△　　○　　○
（3行目）□　　◇　　□
・・・
（100行目）□　△　　◇
のデータを作りエクセルメニューより「ファイル」→「名前を付けて保存」→保存先を仮にデスクトップとして「ファイルの種類」を「CSV(カンマ区切り)(*.csv)」にしてファイル名を「Test.csv」にし、「保存」を押してください。
終わったらエクセルは閉じてください。
次にワードを開き、添付画像のような表を作ってください。
内容は空でいいです。
次に前回同様、標準モジュールを↓のようにして下さい。
Sub TEST()
    Dim CsvText1(1 To 100) As String
    Dim CsvText2(1 To 100) As String
    Dim CsvText3(1 To 100) As String
    Dim I As Long
    Dim FileName As String
    Dim FF As Integer
    Dim TableX As Long, TableNo As Long
    
    TableNo = 1
    I = 1
    FF = FreeFile
    FileName = "C:\★要変更★\デスクトップ\Test.csv" '環境に合わせ変更
    Open FileName For Input As #FF
        Do Until EOF(FF)
            Input #FF, CsvText1(I), CsvText2(I), CsvText3(I)
            I = I + 1
        Loop
    Close #FF
    
    TableX = InputBox("挿入するのは何列目ですか？")
    
    For I = 1 To 100
        ActiveDocument.Range.Tables(TableNo).Cell(1, TableX).Select
        Selection.TypeText Text:=CsvText1(I)
        ActiveDocument.Range.Tables(TableNo).Cell(2, TableX).Select
        Selection.TypeText Text:=CsvText2(I)
        ActiveDocument.Range.Tables(TableNo).Cell(3, TableX).Select
        Selection.TypeText Text:=CsvText3(I)
        TableNo = TableNo + 1 '次のテーブルに移動
    Next I
    MsgBox ("完了")
End Sub

実行すると何行目か聞いてくるので1～6の数字を入れ続行すれば結果が出ます。

お試しください。

avanzato · Answer

こんにちは。
以前画像の貼付けで返答した者です。
さて、今回は次のような動作でよろしいのでしょうか？
【エクセル】
　　　　（A列）
（1行目）○
（2行目）△
（3行目）□
（4行目）◇
（5行目）△
・・・
（100行目）□
↓↓↓↓↓↓
【ワード】
┌─┐
│○│
├─┤
│△│
├─┤
│□│
├─┤
│◇│
├─┤
│△│
├─┤
・・・
├─┤
│□│
└─┘
違うようでしたら指摘をお願いします。
尚、┤などは「けいせん」で変換をして指摘をして頂けると助かります。

エクセルのデータをワードの表に貼り付ける

#1です。

こんにちは。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング