![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
仕事でエクセルデータをワードに書き出すことが必要になりました。出力先のワードは、フォーマットが固定されています。エクセルで抽出したリストから各項目を、ワードの罫線で作った表に書き出したいのです。(エクセルをワードに挿入・表の貼付けをするのではなく、データを個別に書き出していきたいのです。)
具体的なイメージは次のとおりです。
A B C D ←列
1 あああ ○○ 09/04 5,000円
2 いいい △△ 09/05 6,000円
3 ううう □□ 09/06 7,000円
↑行
こちらの回答からエクセルからワードに書き出すことはできたのですが、ワードの表への書き出しが解決できませんでした。
どうかご教授ください。よろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは。
ご質問者さんは、ここは初めてではないかと思います。参考にされたコードがどんなものか分かりませんが、Wordのドキュメント上に、表が作られているという前提のコードです。Excel上の表と同じ大きさか、Word側の表が大きいことが前提です。
'Excelの標準モジュールが良いです。
Sub TransferTable()
Dim objWd As Object 'Word.Application
Dim wdDoc As Object 'Word.Document
Dim wdTable As Object 'Word.Table
Dim y As Long
Dim x As Long
Dim i As Long
Dim j As Long
Dim rng As Range
Const vbMyError As Integer = 513 'ユーザー設定エラー
Set rng = Worksheets("Sheet1").Range("A1:D3") 'Excelのデータ範囲
Const FNAME = "D:\Test.doc" 'Word のファイル名
On Error GoTo ErrHandler
Set objWd = CreateObject("Word.Application")
objWd.Visible = True
Set wdDoc = objWd.Documents.Open(FNAME)
If wdDoc.Tables.Count = 0 Then
MsgBox "表が存在しません。", vbCritical
Err.Raise vbMyError
End If
Set wdTable = wdDoc.Tables(1)
x = wdTable.Columns.Count
y = wdTable.Rows.Count
For j = 1 To x
For i = 1 To y
wdTable.Cell(i, j).Range.Text = rng.Cells(i, j).Text
Next i
Next j
wdDoc.Save
ErrHandler:
If Err.Number > 0 Then
MsgBox Err.Number & " : " & Err.Description, vbInformation
End If
wdDoc.Close
objWd.Quit
Set wdTable = Nothing
Set wdDoc = Nothing
Set objWd = Nothing
End Sub
No.1
- 回答日時:
ワードの表の各セルに、エクセルの該当するセルへのリンクを張ればいいのではないでしょうか。
(1)エクセルの該当するセルにセルカーソルを移動
(2)Ctrl+C
(3)ワードの表の該当するセルにカーソルを移動
(4)形式を選択して貼り付け
(5)左の「リンク貼り付け」にチェック
(6)「貼り付ける形式」を「テキスト」に
(7)OK
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
昔のあなたへのアドバイス
過去のあなたへ一度だけアドバイスを送れる電話があったとします。 もしあなたがその電話を手にしたら、いつの自分にどのようなアドバイスを送りますか?
-
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
エクセルのVBAとワードを使った差し込み印刷
Word(ワード)
-
テキストボックスの中身をリセット(クリア)したい
Visual Basic(VBA)
-
-
4
【エクセル】入力規則のプルダウン▼ボタンを常に表示させたい
Excel(エクセル)
-
5
エクセルVBAでワードの文字を検索して置換えたい
その他(Microsoft Office)
-
6
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルとワードで作ったデー...
-
ワードの表の金額にコンマ入力...
-
イラストレーターのデータをエ...
-
差し込み印刷がうまくいかない
-
ワード文書へのエクセルファイ...
-
ワードにエクセルを貼り付ける...
-
番組表作成ソフト
-
エクセルからワードへハイパー...
-
ワードかエクセルで割引券を作...
-
エクセル表に脚注をつけたい
-
エクセルとワードなど初めてで...
-
レポートはワードかエクセルの...
-
司法書士事務所事務員に必要な能力
-
エクセルからワードに書き出す...
-
大学生ってみんなエクセルやマ...
-
ワードでエクセルのようなシー...
-
エクセル・ワードが作動しない
-
Office365の購入について教えて...
-
ACCESS→Word 又は Excel→Word ...
-
エクセルの数値データをワード...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルとワードで作ったデー...
-
イラストレーターのデータをエ...
-
レポートはワードかエクセルの...
-
ワードかエクセルで割引券を作...
-
ワードの表の金額にコンマ入力...
-
エクセルの表をワードに貼ると...
-
印刷マクロ【エクセル】エクセ...
-
差し込み印刷がうまくいかない
-
エクセルからワードへハイパー...
-
wordにて縦書きの中で数字だけ...
-
ワードにエクセルを貼り付ける...
-
■Word差し込み印刷 漢数字で縦...
-
旅行のしおりづくり
-
エクセル表に脚注をつけたい
-
ワードにリンク貼り付けした画...
-
Excelの表を拡張メタファイルと...
-
司法書士事務所事務員に必要な能力
-
ワードでエクセルのようなシー...
-
ワード派、エクセル派?
-
ワード文書へのエクセルファイ...
おすすめ情報