10/06/17 21:34:31
>453 試してはいません。あしからず
TWB = ThisWorkbook.Name rem ここまでは>453に同じ
i = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Do
If i = 1 Then
Target = FOL & SBN & ".xls" rem 最初だけ
Else
Target = FOL & SBN & "-" & i ".xls" rem ２回目以降
EndIf
If FSO.FileExists(Target) Then rem フルパスTargetで存在したら
i = i + 1 rem 変数を＋１してループ継続
Else rem 存在しないときだけ
Exit Do rem ループを脱出
EndIf
Loop
Workbooks(TWB).SaveAs Filename:=Target rem ファイルセーブ
Set FSO = Nothing
End Sub
ファイル存在チェックを「存在しない」になるまで繰り返すこと。
そのために先にフルパスの組み立てを行っておけばいいはず。
FSOの処理ははじめとおわりに１回ずつでいいと思う。