[[20170921153700]]　『ワードで作成した表フォーマットをエクセルへ変換』（ぽーちゃん）　ページの最後に飛ぶ

『ワードで作成した表フォーマットをエクセルへ変換したい』（ぽーちゃん）

ワードで、すでに作成された表フォーマット（国で決められたフォーマットで作成された検査記録用紙）をエクセルで作成しなおしたいです。

ここへ入力したい情報が書かれているデータがエクセルで作成されていて
これを、流し込みで作成したいためです。

ワードで、すでに、８０枚ほど作成済で今回は完結しているのですがエクセルへ変換して次期工事からエクセルで管理したいのですがゼロから作成しなおすしかないでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 >ここへ入力したい情報が書かれているデータがエクセルで作成されていて 
 >これを、流し込みで作成したいためです。

 えっ？それは差し込みということではなくてですか？
（コナミ） 2017/09/21(木) 15:50

「名前を付けて保存」ー「ファイルの種類(T)：」ー「Webページ（html）」形式保存
エクセルで　そのファイルを開く
（＋＋） 2017/09/21(木) 16:06

コナミ様

差し込みでは、なく流し込み？です。

転記？

たとえば、コピー元ファイルのA1セルを転記先ファイルのB10
のような感じです。

同じ項目内容を、入れたりするので最終的には、マクロかなと思ってます。
（ぽーちゃん） 2017/09/22(金) 06:34

 >差し込みでは、なく流し込み？です

 えっと、エクセル・ワード間にはワードの原稿にデータ部分だけエクセルの
 データを入れて書類を作る「差し込み印刷」という機能があるのですが、
 それはご存知であえてエクセルでつくり直すということですか？ 
（コナミ） 2017/09/22(金) 08:38

 ご参考まで。

 文書への差し込み印刷
http://www4.synapse.ne.jp/yone/word2010/word2010_sasi_bunsyo.html

（1111） 2017/09/22(金) 09:10

コナミ様
１１１様

ありがとうございます。

やってみたのですがフィールドの挿入のところでセル内に入力されている項目名ではなく
F1、F2、F3・・・F6　と、表示されてしまいます。
（ぽーちゃん） 2017/09/22(金) 14:16

 Excelのデータの1行目が項目名ではないのでF1(フィールド1）と出てきてるんじゃないかな。
 1行目が項目名じゃなくても出てくることはあるけど、上の行から見て行って最初にデータが入っている行を項目名＝タイトル行だと認識するので、
表のタイトルとか他のことが書いてあると、項目名が出てこないよ。

 流し込み用に先頭行が項目名の表を作って試してみて。

（1111） 2017/09/22(金) 15:50

多数のブックをExcelシートに持ってこれさえすれば良さそうなので、以下とか？新規ブックで動かしてみてください。
（Excel以外のオブジェクトを操作するので、お薦めしたくないコードですが…）

 Sub test()
    Const cPATH = "c:\tmp\"
    Dim WD As Object
    Dim cFile As String
    Dim i As Long

    With CreateObject("Word.Application")
        cFile = Dir(cPATH & "*.docx")
        While cFile <> ""
            .Visible = True
            Set WD = .Documents.Open(cPATH & cFile)
            With ThisWorkbook
                .Sheets.Add after:=.Sheets(.Sheets.Count)
                ActiveSheet.Name = cFile
                WD.Tables(1).Range.Copy
                DoEvents
                ActiveSheet.Paste
                DoEvents
            End With
            WD.Close
        cFile = Dir
        Wend
        .Quit
    End With
 End Sub
（???） 2017/09/25(月) 14:36

コメント返信：

[ 一覧(最新更新順) ]

[[20170921153700]] 『ワードで作成した表フォーマットをエクセルへ変換』（ぽーちゃん） ページの最後に飛ぶ

[[20170921153700]]　『ワードで作成した表フォーマットをエクセルへ変換』（ぽーちゃん）　ページの最後に飛ぶ