質問: True End Sub ### 試したこと ・, FileFormat:=1 の追加、削除を行いましたが どうしても重複が複数あるときに同じことが起こります。 ・エクセルの再起動 ・変数宣言を強制するにチェック
回答: 色々あるかと思いますが、重複を避けてナンバリングする方法はいかがでしょうか。 動かしてないのでエラーがあるかも(^^; 重複したときは保存したくなければ保存しなければOKです。 あと、重複したくないだけだったらファイル名に日時を入れるのも手です。保存時間(秒)がずれるはずなので。 ``` Dim strFileName As String Dim lngFIleNo As Long lngFIleNo = 1 strFileName = Path & Cells(2, C_Group) & "_" & Cells(2, 2) Do While True '保存するまで繰り返す If Dir(strFileName & lngFIleNo & ".xlsx") = "" Then 'ファイルが既に存在しているか調べる '無いのでそのまま保存 Wb_new.SaveAs Filename:=strFileName & lngFIleNo & ".xlsx", FileFormat:=1 Exit Do Else 'あるので名前を変える lngFIleNo = lngFIleNo + 1 '飛ばす場合は Exit Do End If Loop ```