別々にワークブック保存

いつもお世話になっております
添付ファイルのように下記のコードを
実行するとメッセージがでて
エラーになります。
わかる方おしえてくれませんでしょうか

Sub efa()
Dim wSobj As Worksheet
Dim ss As String

For Each wSobj In Worksheets
If wSobj.Name <> "A001" Then
wSobj.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & wSobj.Name
ActiveWorkbook.Close
End If
Next

End Sub

質問者からの補足コメント

• 

  オブジェクトが必要ですと
  メッセージがでます。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/02/20 22:23

• 

  なるほどです。
  わかりました。すでに同じ名前のＢＯＯＫがあると
  エラーになります。
  このエラーを回避するには

    補足日時：2022/02/20 22:26

• 

  Application.DisplayAlerts = False
  On Error Resume Next
  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ssobj.Name
  ActiveWorkbook.Close
  Application.DisplayAlerts = True
  これで　うまくいきました。が　よいものなのでしょうか

    補足日時：2022/02/20 22:32

• 

  Application.DisplayAlerts = False
  On Error Resume Next
  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ssobj.Name
  ActiveWorkbook.Close
  Application.DisplayAlerts = True
  これで　うまくいきました。が　よいものなのでしょうか
  
  、マクロのファイルは、どこに保存してあるものでしょうか？
  デスクトップ上にフォルダ作成してその中にあります。

  No.2の回答に寄せられた補足コメントです。 補足日時：2022/02/20 22:39

No.3 ベストアンサー 回答者： mygoonickname 回答日時： 2022/02/20 22:45

No.1の者です。

同じファイルがあった場合に、どうされたいかによるかと思います。
この部分は、質問者さんがどうしたいかによって決める事かと思います。
例えば、同じファイル名があったら、ファイル名に日時を追加して仮に
保存しておくとか？

Sub efa()
Dim wSobj As Worksheet
For Each wSobj In Worksheets
If wSobj.Name <> "A001" Then
wSobj.Copy
On Error GoTo ErrHand
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & wSobj.Name
ActiveWorkbook.Close
On Error GoTo 0
End If
Next
Exit Sub
ErrHand:
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & wSobj.Name & Format(Now(), "ddsshhmmss")
Resume Next
End Sub

この回答へのお礼

いつもありがとうございます。
このコードわかりやすいです。
ありがとうございました。

お礼日時：2022/02/22 10:06

No.5 回答者： 初心者ですが何か。 回答日時： 2022/02/22 09:55

あと気になったのは『拡張子』を明確に指示しないのはご本人様の拘りでしょうか？

それともWorkSheet名に記載されてる？

この回答へのお礼

ありがとうございました。

お礼日時：2022/02/22 10:07

No.4 回答者： 初心者ですが何か。 回答日時： 2022/02/21 12:57

同じ名前『になる』Bookが存在するかはエラートラップよりDir関数で事前調査が普通な気もしますけどね。

この回答へのお礼

ありがとうございました。

お礼日時：2022/02/22 10:06

No.2 回答者： mygoonickname 回答日時： 2022/02/20 22:36

No.1の者です。

詳しい原因は不明ですが、
ThisWorkbook.Pathか、wSobj.Name　のどちらかで問題が出て、エラーが
発生している事になるかと思います。

Msgbox ThisWorkbook.Path
Msgbox wSobj.Name

などで、どちらが原因かを切り分けて、それを対応するしかないかと。

因みに、マクロのファイルは、どこに保存してあるものでしょうか？
ネットワーク上とかですと、問題が出るかも知れません。

この回答へのお礼

ありがとうございました。

お礼日時：2022/02/22 10:06

No.1 回答者： mygoonickname 回答日時： 2022/02/20 22:21

こんばんは。

推測になりますが、
wSobj.Copy ’の後に、下記を記載して、どう表示されるでしょうか？
Msgbox ThisWorkbook.Path & "\" & wSobj.Name

ファイル名の指定が、うまくできていないのでは？と思われますが。

この回答へのお礼

ありがとうございました。

お礼日時：2022/02/22 10:06