|
If ActiveWorkbook.ActiveSheet.Range("B1") = "New" Then
ActiveWorkbook.SaveAs "S:\GFM\Equity_Finance\Blotter\" & Format(MYDAY, "MMMYY") & "\TRADE_BLOTTER" & Format(MYDAY, "DD_MM") & " " & ActiveWorkbook.ActiveSheet.Range("C5") & "_NEW.XLS"
ElseIf ActiveWorkbook.ActiveSheet.Range("B10") = "Substituition" Then
ActiveWorkbook.SaveAs "S:\GFM\Equity_Finance\Blotter\" & Format(MYDAY, "MMMYY") & "\TRADE_BLOTTER" & Format(MYDAY, "DD_MM") & " " & ActiveWorkbook.ActiveSheet.Range("C13") & "_SUB.XLS"
End If
という風にしていますが、もしS:\GFM\Equity_Finance\Blotter\" & Format(MYDAY, "MMMYY") & "\TRADE_BLOTTER" & Format(MYDAY, "DD_MM") & " " & ActiveWorkbook.ActiveSheet.Range("C5") & "_NEW(SUB).XLSという名前で指定したパスにブックが保存されている場合にはお尻に1とか2とかつけて保存するというようにしたいのですが、どのように書いたらよろしいでしょうか?
|
|