[[20110411173527]] 『条件によりファイルを複数に分割したい』(おいた) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『条件によりファイルを複数に分割したい』(おいた)

 以下のような元データから、A列の値をキーに以下の実行後のように
 ファイルを分割して作成するマクロを教えてください。
 (A列の値に空白値は無し)

 ■元データ
     A列   B列     C列   D列
 1行 買入先 部品コード 部品名 ・・・
 2行  AAA1    xxxx1       yyyy1
 3行  AAA1    xxxx2       yyyy2
 4行  DDD2    xxxx3       yyyy3
 5行  1111    xxxx4       yyyy4
 6行  1111    xxxx5       yyyy5
 7行  2345    xxxx6       yyyy6 
 8行   :   :     :
 9行   :   :     :

 ■実行後
 AAAA1.xls
     A列   B列     C列   D列
 1行 買入先 部品コード 部品名 ・・・
 2行  AAA1    xxxx1       yyyy1
 3行  AAA1    xxxx2       yyyy2

 DDD2.xls
     A列   B列     C列   D列
 1行 買入先 部品コード 部品名 ・・・
 2行  DDD2    xxxx3       yyyy3

 1111.xls
     A列   B列     C列   D列
 1行 買入先 部品コード 部品名 ・・・
 2行  1111    xxxx4       yyyy4
 3行  1111    xxxx5       yyyy5

 2345.xls
     A列   B列     C列   D列
 1行 買入先 部品コード 部品名 ・・・
 2行  2345    xxxx6       yyyy6 
    :   :

 ・・・・.xls
     A列   B列     C列   D列
 1行 買入先 部品コード 部品名 ・・・
 2行    :       :

 [EXCEL2003 WindowsXP]

 直接ファイルではありませんが、以前シート単位に分割するマクロを作りました。
[[20110301184111]]

 これを下記のような感じで、ファイルに分割したらできないでしょうか。
 For Each ws In Worksheets
    ws.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xls"
    ActiveWorkbook.Close
 Next
 (Mook)

 まずはシート単位に分割するマクロから勉強してみます。
 ありがとうございました。
 (おいた)

先程、分割関連で別途質問させて頂いた者です(ど初心者)。
この構文はどこに追加すれば良いのでしょうか?

 For Each ws In Worksheets
    ws.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xls"
    ActiveWorkbook.Close
 Next

お手数おかけ致します。
(Toshi)


 組み込むことも出来ますが、処理後に単独で動かせば良いかと思います。
 (Mook)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.