![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
仕事でエクセルデータをワードに書き出すことが必要になりました。出力先のワードは、フォーマットが固定されています。エクセルで抽出したリストから各項目を、ワードの罫線で作った表に書き出したいのです。(エクセルをワードに挿入・表の貼付けをするのではなく、データを個別に書き出していきたいのです。)
具体的なイメージは次のとおりです。
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で質問しましょう!
似たような質問が見つかりました
- Word(ワード) 差し込み印刷 4 2022/07/19 20:51
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- その他(Microsoft Office) マイクロソフトオフィス 5 2023/07/29 14:31
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Word(ワード) LibreOfficeで数年保存しているデータの変更作業 4 2022/07/08 17:15
- Excel(エクセル) エクセルのAltを押すと「自動保存」「上書き保存」・・・に白抜きの「1」「2」・・・が出る。 2 2023/08/11 11:39
- Word(ワード) ワード差し込み印刷がうまくいかない 2 2022/07/01 19:01
- その他(Microsoft Office) エクセル、ワードをこれからも使うしかないのですか? 3 2023/06/02 07:39
- その他(Microsoft Office) EXCEL2007 右クリックに「値を貼り付け」がない プライベートのパソコンを購入し(window 3 2022/04/13 23:10
- 事務・総務 未経験で事務 7 2022/06/30 06:49
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
エクセルのVBAとワードを使った差し込み印刷
Word(ワード)
-
WordVBAで規定のところに文字列を挿入したい
Access(アクセス)
-
-
4
エクセルVBAでワードの文字を検索して置換えたい
その他(Microsoft Office)
-
5
エクセルのマクロでワードの任意のテキストボックスへ文字列を書き込む方法を誰か教えていただけませんか
Visual Basic(VBA)
-
6
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルとワードで作ったデー...
-
レポートはワードかエクセルの...
-
エクセルからワードへハイパー...
-
番組表作成ソフト
-
イラストレーターのデータをエ...
-
ワードかエクセルで割引券を作...
-
ワードの表の金額にコンマ入力...
-
差し込み印刷がうまくいかない
-
エクセルの表をワードに貼ると...
-
大学生ってみんなエクセルやマ...
-
マクロで作った ワードエクセル...
-
エクセルからワードへ差し込み...
-
エクセル派? ワード派? 教...
-
iMacでの、エクセル、ワード(...
-
エクセル・ワードが起動しない
-
Office2007の上書き保存
-
ワードでエクセルのようなシー...
-
ワードやエクセルとCADではどち...
-
ワード文書へのエクセルファイ...
-
iPadでワード、エクセルを使う...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルとワードで作ったデー...
-
エクセルの表をワードに貼ると...
-
イラストレーターのデータをエ...
-
差し込み印刷がうまくいかない
-
ワードの表の金額にコンマ入力...
-
レポートはワードかエクセルの...
-
できてしまったw
-
ワードにエクセルを貼り付ける...
-
ワードかエクセルで割引券を作...
-
Microsoft365でPC間で同期がさ...
-
印刷マクロ【エクセル】エクセ...
-
エクセルからワードへハイパー...
-
Office再インストールでデータ...
-
ワード・エクセルでの表作成の...
-
エクセルからワードへ差し込み...
-
ワード文書へのエクセルファイ...
-
■Word差し込み印刷 漢数字で縦...
-
wordにて縦書きの中で数字だけ...
-
エクセルからワードに書き出す...
-
ワードにリンク貼り付けした画...
おすすめ情報