エクセルファイルを新規に作成してシートを1つにして保存するには (ID:90008)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ＥＸＣＥＬメニューのツール→オプション→新しいブックのシート数を ３から１に変更すれば直ります。 規定値を変えるのか嫌なら Set xlBook = xlApp.Workbooks.Add のあと Sheet2 と Sheet3 を削除すれば出来ます