|
▼ケメ子 さん:
おはようございます。
あらかた、キーポイントについてはyukiさんからお答えが出ています。
現在のコードに当てはめるとすれば、少々効率面では難がありますが
たとえば以下。(例によって、読解力の乏しいUO3ですから勘違いあればご容赦)
現在のコードの
cName = IsExists(cPath, aName, myPre)
If cName <> "" Then
Set cBook = Workbooks.Open(cPath & "\" & cName, UpdateLinks:=3) 'リンクの更新して開く
これに【かえて】
'雛形テンプレートを開く
'【作業】 & aName を cName として、この雛形テンプレートをcフォルダに名前をつけて保存
'このブックをcBookとしておく。
以降は現行コードのままでOKだと思います。
>Yuki さま
>
>御礼が遅くなり、大変失礼いたしました。
>確認いたしましたが、1つのファイルでしたらYukiさまのコードでできました。
>
>今回は、フォルダの中に40近くのファイルがあり、これらすべてのファイル名と同じ名前で(先頭に【作業】とつきます)ひな形ファイルをコピー、保存したいと思っています。
>
>その場合はどのようにしたらよろしいでしょうか。
>たびたび申し訳ありませんがよろしくお願いいたします。
|
|