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

名前

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

本文 エクセルを新規に作成しデータを書き込んで保存したときに ブック内のシートが3つになっているんですが、 これを1つにして保存する方法はありますか？ 以下コード Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) xlSheet.Name = "Test050524" '〜書き込み処理省略〜 xlBook.SaveAs "C:\TEST\test.xls" xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing 宜しくお願いします。