|
▼ケメ子 さん:
こんにちは
提案です。
現在のファイル処理のループの中で雛形ブックを読み込んで、bファイル名をもとに
cファイルを作り出すのではなく、処理の最初に、まず必要なcファイルをcフォルダに
すべて生成、以降は現在のコードのまま実行という方式が、わかりやすいかもしれませんし
都度、雛形ファイルを読みこむより処理時間も短縮されるかもしれません。
Sub 作業ファイル作成()
Dim tplName As String '追加
tplName = "雛形.xls" '実際の雛形ブック名に。あるいは、これも登録セルから転記。
'
'
'最初に以下のコードを
'
'まずcフォルダの【作業】・・ブックを削除
For Each myFile In myFso.getfolder(cPath).Files
cName = myFile.Name
If LCase(myFso.GetExtensionName(cName)) = "xls" And cName <> tplName Then
Kill cPath & "\" & cName
End If
Next
'次に雛形ブックをaフォルダのブック名に【作業】を付加した名前でcフォルダに
'名前を付けて保存
Application.DisplayAlerts = False
Workbooks.Open Filename:=cPath & "\" & tplName
Application.DisplayAlerts = True
For Each myFile In myFso.getfolder(aPath).Files
cName = myPre & myFile.Name
If LCase(myFso.GetExtensionName(cName)) = "xls" Then
ActiveWorkbook.SaveAs Filename:=cPath & "\" & cName, ReadOnlyRecommended:=False
End If
Next
ActiveWorkbook.Close False
'この後は既存コードのまま
End Sub
|
|