- 960 名前：デフォルトの名無しさん [2023/05/28(日) 21:50:34.02 ID:0FRQEohw.net]
- すみません
ここまでのコードはうまくいくのですがこの先の以下のコードを実行すると400や1004のエラーメッセージが表示されます
しかしながら望み通りの場所に名前をつけて保存してくれます
なんのエラーが出ているのでしょうか？
Sheets("リスト").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\TEST1.xlsx"
ActiveWorkbook.Close
End Sub
リスト シートをコピーして新しいブックとして開き、名前をつけて同じ場所に保存という事がしたいです。
