5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 92

454 :名無しさん@そうだ選挙にいこう:2010/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 2回目以降
  EndIf
  If FSO.FileExists(Target) Then   rem フルパスTargetで存在したら
    i = i + 1  rem 変数を+1してループ継続
  Else      rem 存在しないときだけ
    Exit Do   rem ループを脱出
  EndIf
Loop
Workbooks(TWB).SaveAs Filename:=Target rem ファイルセーブ
Set FSO = Nothing
End Sub

ファイル存在チェックを「存在しない」になるまで繰り返すこと。
そのために先にフルパスの組み立てを行っておけばいいはず。
FSOの処理ははじめとおわりに1回ずつでいいと思う。

338 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)