|
▼初心者ごろう さん:
>構成はこのような感じです。
>kkk/hh/YY/DDDDD/DDD
> +--/PPPPP / その他.xls
> | 13.xls
> | 14.xls
> | 15.xls
> | ・
> | ・
> | ・
> | 32.xls
> | 管理1.xls
> | 管理2.xls
> | 管理3.xls
> | マスタ.xls
> | 集計.xls
> |
> +-- data1 /
> +-- data2 /
>
>となっています。
あるBookを開いて Copyするとき、1つのシートからコピーするばあいと、
2つのシートからコピーするばあいとあるようなので、以下のように
> CopyData Book.Sheets("その他"), "A13"
を1回書くところと 2回かくところを (1) と(2) に示しましたが、
これでOK なら、
開くファイルが増えても、このブロックをどんどん足していくだけです。
また、フォルダが途中で変わるときには
Const myFolder は
Dim myFolder As String と変数にしておいて、
最初のフォルダ名で初期化しておき、フォルダが変わるところで、
myFolderにあたらしいフォルダ名を代入しなおしてください。
'(1)『その他.xls』を開いて 「集計」シートに値貼り付け
Set Book = Workbooks.Open(myFolder & "その他.xls")
CopyData Book.Sheets("その他"), "A13"
Book.Close
Set Book = Nothing
'(2)『13.xls』を開いて 「集計」シートに値貼り付け
Set Book = Workbooks.Open(myFolder & "13.xls")
CopyData Book.Sheets("QC")
CopyData Book.Sheets("AA")
Book.Close
Set Book = Nothing
>はじめのレスですが文字数オーバーで書けなかったので、
>その他〜14.xlsまでの作業のコードを書きました。すみません。
>その他〜32.xlsにあるすべてのシートの
>[A13:L13]以降全行を Copy→ 値貼り付け『集計.xls』「集計」[A13]
> (最初はA13だけどそれ以降は、最終行に貼付け)
>という作業をしたいと思っています。
|
|