VBを記述した親ワークブックから子ワークブックを作成したいのですが、下記コードでは次の障害があるのです。 １．２００３バージョンでは開けない。 ２．２００７バージョンで開こうとすると、メッセージが出る。 「～ファイル拡張子が示す形式と異なります。～」 ３．不要なワークシートが残る。 “基本設定／新しいブックの作成／ブックのシート数”に依存している。 【シートを１枚だけにし、２００３バージョンで保存したいのです。】 ShName = ThisWorkbook.ActiveSheet.Name Set objWorkBook = Workbooks.Add objWorkBook.ActiveSheet.Name = "○○商事" Call 処理 Set WSH = CreateObject("Wscript.Shell") Path = WSH.SpecialFolders("Desktop") & "\" On Error Resume Next '上書き保存をキャンセルした時の取り合えずの回避策（宿題(^^;)） ActiveWorkbook.SaveAs Path & "○○系_" & ShName & ".xls" Set WSH = Nothing Set objWorkBook = Nothing 新しいブックを作成後、シート数を数えて２枚目以降を消すのも出来るかと思いますが、作成時には既に１枚、しかも２００３バージョンで作成する事は可能なのでしょうか？ 皆様、よろしく御教示下さいませ・・・。
↧