XLSMマクロExcelファイルに新しいシートを追加する際にエラーが発生する

Question

VBAを使用してマクロExcelファイルに新しいシートを追加すると問題が発生しました。 それは私が使用方法は重要ではありません：

• をSheets.add
• コピーして新しいシートを作成（またはコピー）され、新たな1

を作成するためにシートを貼り付けるが、マクロはメッセージエラーなしで直ちに停止し、残りのコードは実行されません。

私はファイルをXLSXに変換しようとしましたが、同じコードを実行すると、以前と同じようにシートが作成され、コードの実行が完全に続きます。

これが、マクロExcelタイプのファイルと関連していると思われる理由です。

誰も同じようなエラーを発見しましたか？

ご協力いただきありがとうございます。私の以前の質問に

アルベルト

---

UPDATEは

私はまさにそれが完全に実行され、他のPCやExcelのインストールと...で同じコードをテストし、新しい検証を行いました。

理由はわかりませんが、新しいシートが作成され、コードが作成されます。 2つの機器の唯一の違いは、Excel 2016バージョンです.1つは標準、もう1つはProfesionalです。 しかし、明らかに、これは説明ではありません。

いずれの場合でも、このインストールのいずれかでコード実行を停止していることを調べる必要があります。

Answer 1

は、あなたのXLSMファイルにこのコードを試してみてください。

Dim ws As Worksheet 
Set ws = Sheets.Add(After:=Sheets(Sheets.Count)) 

そして、これが動作しない場合は私に知らせてください。