|
テンプレートのSheet(1)に作成したものを
別の特定のブックに、次々に"BN"という変数の
名前を付けて保存していきたいと思っています。
"BN"の取得は作成中のSheet(1)内の特定のセルから取得します。
その名前が重複する場合、同じシート名では保存ができません。
同じシート名だと、保存できませんよ。というメッセージが出たら
"BN"その1
"BN"その2
"BN"その3
・・・のように、対応を変えていく方法はありますでしょうか?
エラーハンドリング?ってそれでしょうか?
For L = Start_cell To end_cell Step 1
counter = counter + 1
Windows(register).Activate
Sheets(sheet_thismonth).Select
Range("C" & L).Select
BN = ActiveCell.Value
Windows(template).Activate
Worksheets(sheet_payment_temp).Range("B11").Value = BN
'シートに名前を付ける
Windows("テンプレート.xls").Activate
Sheets(sheet_1).Select
Sheets(sheet_1).Copy Before:=Workbooks(save_name).Sheets(1)
Sheets(sheet_1).Select
Sheets(sheet_1).Name = BN ※ここで、同じ値が入るとエラーがでます。
BN = 0
Next L
すみません、わかりにくい説明かもしれません。
情報がたりなければ、言ってください。
よろしくお願いします。
|
|