|
>このマクロで実行すると、既存のフォーマットが複数枚作成
>できるのですが、すべての既存フォーマットに元ファイルの
>データ全部が貼り付けされてしまいます。
>
>お教えいただいたVBAの中で、どこをどう直したら良いのか分からず
>たびたび恐縮ですが、いま一度、お教えいただけないでしょうか。
どのような現象か理解出来ないのですが?
此方の意図しているコードの内容は、
'「既定のフォーマット」のBook名
strModel = ThisWorkbook.Path & "\" & "既定のフォーマット.xls"
で指定しているBookを、データ1行に対して、1つ名前を代えてファイルコピーし
コピーしたBookの先頭シートの指定された位置にデータを代入していますが?
此方で試している部分では、上手く行ってると思います
何が違って居るのか詳しく説明して下さい
尚、今考えられるのは、
1、"既定のフォーマット.xls"指定そのものが違っているのでは
"既定のフォーマット.xls"とは、
「既に既定のフォーマットがありヘッダーやフッダーが決まっています。」のシートが在るBookです
2、"既定のフォーマット.xls"のBookそのものをCopyしている為、
データが既に入った何枚ものシートが有ればそのまま残ってしまいます
詰まり、"既定のフォーマット.xls"で指定したBookには、
空のフォーマットのシートが先頭に1枚在ることを想定して居ます
(特にシート自体は何枚在っても善いのですが、対象としているシートは先頭の1枚だけです)
|
|