Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13788 / 76807

←次へ　｜　前へ→


	【68522】Re:他のフォルダにあるファイル名をひな形ファイルにつけて保存する方法

UO3 - 11/3/14(月) 8:28 -


	引用なし

	パスワード

▼ケメ子さん：

おはようございます。
あらかた、キーポイントについてはyukiさんからお答えが出ています。
現在のコードに当てはめるとすれば、少々効率面では難がありますが
たとえば以下。（例によって、読解力の乏しいUO3ですから勘違いあればご容赦）

現在のコードの

　　cName = IsExists(cPath, aName, myPre)
　　If cName <> "" Then
　　　　Set cBook = Workbooks.Open(cPath & "\" & cName, UpdateLinks:=3) 'リンクの更新して開く
　
これに【かえて】

'雛形テンプレートを開く
'【作業】 & aName を cName として、この雛形テンプレートをcフォルダに名前をつけて保存
'このブックをcBookとしておく。

以降は現行コードのままでＯＫだと思います。

>Yuki さま
>
>御礼が遅くなり、大変失礼いたしました。
>確認いたしましたが、1つのファイルでしたらYukiさまのコードでできました。
>
>今回は、フォルダの中に40近くのファイルがあり、これらすべてのファイル名と同じ名前で（先頭に【作業】とつきます）ひな形ファイルをコピー、保存したいと思っています。
>
>その場合はどのようにしたらよろしいでしょうか。
>たびたび申し訳ありませんがよろしくお願いいたします。

0 hits

▼

【68499】他のフォルダにあるファイル名をひな形ファイルにつけて保存する方法 ケメ子 11/3/10(木) 21:58