[[20100125092426]]　『セルの値をブック名、８０人分』（ひろ）　ページの最後に飛ぶ

『セルの値をブック名、８０人分』（ひろ）

 いつもお世話になっております。
 又教えて下さい。

 ８０人程の社員がいまして、各々にメールで送りたいから、
 A3セルに一人一人の氏名、でそのブックに氏名を付けて欲しいと言われました。

 氏名は、名簿表のブックがあったので、コピペしたのですが、
 ブック名は、手入力しました。
 もっと早く処理する方法って、ありますか？

 教えて下さい。宜しくお願いします。
 Excel2003

 １．作業を始める前に、ブックは幾つあるのですか？
 　　1つですか？　80ですか？

 ２．作業終了時点の80のファイルは、
 　　「A3セルに各氏名が入っている」のと「ブック名が各氏名になっている」ことが違うだけで、
 　　その他は、全ておなじってことですか？

 (半平太) 2010/01/25 10:38

 半平太さん、ありがとうございます。

 ブックは一つで、そのブックを原紙にして、コピーを８０個作りました。
 A3セルは、空欄で氏名を一つ一つコピペしました。
 で名前を付けて保存の時に都度名前を入れて、保存しました。

 ブック名の氏名が合っているか、又確認しなくては行けなかったので
 結構時間がかかってしまいまして・・・。

　（ひろ）

 EXCEL ファイルを新規に作成し先頭シートのA1:A80に作成したい名前を記入。
 下記のマクロを実行してどうでしょうか。

 Sub BookCopy()
    Const masterPath = "C:\Data\Master.xls" '★コピー元ファイルを指定
    Const dataFolder = "C:\Data\"           '★コピー先フォルダを指定

    For i = 1 To 80
        dstpath = dataFolder & Cells(i, "A").Value & ".xls"
        Copy masterPath, dstpath
        With Workbooks.Open(dstpath)
            .Worksheets(1).Range("A3") = ThisWorkbook.Worksheets(1).Cells(i, "A").Value
            .Save
            .Close
        End With
    Next
 End Sub
 (Mook)

 Mookさん、ありがとうございます。
 Tryしてみます！

　（ひろ）

コメント返信：

[ 一覧(最新更新順) ]

[[20100125092426]] 『セルの値をブック名、８０人分』（ひろ） ページの最後に飛ぶ

[[20100125092426]]　『セルの値をブック名、８０人分』（ひろ）　ページの最後に飛ぶ