• ベストアンサー

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

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

質問者が選んだベストアンサー

  • ベストアンサー
  • avanzato
  • ベストアンサー率54% (52/95)
回答No.2

#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の数字を入れ続行すれば結果が出ます。 お試しください。

redgreen
質問者

お礼

いつも親切ご丁寧にありがとうございます。 早速試してみることにします。

その他の回答 (1)

  • avanzato
  • ベストアンサー率54% (52/95)
回答No.1

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

redgreen
質問者

補足

度々のご回答心から感謝します。 今回ですが、 【エクセル】今回は1回目       (A列)(B列)(C列) (1行目)○  ◇  △ (2行目)△  ○  ○ (3行目)□  ◇  □ ・・・ (100行目)□ △  ◇ 【ワード】 表1 1回目 2回目....       6回目 ┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐ │○││  ││  ││  ││  ││  │ ├─┤├─┤├─┤├─┤├─┤├─┤ │◇││  ││  ││  ││  ││  │ ├─┤├─┤├─┤├─┤├─┤├─┤ │△││  ││  ││  ││  ││  │ └─┘└─┘└─┘└─┘└─┘└─┘ ・・・ 表100 1回目 2回目....       6回目 ┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐ │□││  ││  ││  ││  ││  │ ├─┤├─┤├─┤├─┤├─┤├─┤ │△││  ││  ││  ││  ││  │ ├─┤├─┤├─┤├─┤├─┤├─┤ │◇││  ││  ││  ││  ││  │ └─┘└─┘└─┘└─┘└─┘└─┘ 以前同様100個のデータが1回分で、合計6回続きます。 宜しくお願いします。

関連するQ&A