エクセル VBA 新しいブックを作成したいのです。

　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

　新しいブックを作成後、シート数を数えて２枚目以降を消すのも出来るかと思いますが、作成時には既に１枚、しかも２００３バージョンで作成する事は可能なのでしょうか？

　皆様、よろしく御教示下さいませ・・・。

No.1 ベストアンサー 回答者： cj_mover 回答日時： 2013/05/17 22:26

こんにちは。

３行追加、１行変更（書き足し）です。
.SaveAs メソッド については、一応、VBAヘルプ目を通しておいてください。

///

　　'Dim nShInNWB As Long ' ●
　　' ' 新しいブックを開いた時のシート数
　　' ' 後で元に戻す為に変数に記録
　　nShInNWB = Application.SheetsInNewWorkbook ' ●
　　' ' 新しいブックを開いた時のシート数を指定
　　Application.SheetsInNewWorkbook = 1 ' ●
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"
　　' ' Excel2003互換、.xlsで"名前を付けて保存"
　　objWorkBook.SaveAs Filename:=Path & "○○系_" & ShName & ".xls", FileFormat:=xlExcel8 ' ●
　　' ' 新しいブックを開いた時のシート数を元に戻す
　　Application.SheetsInNewWorkbook = nShInNWB ' ●
Set WSH = Nothing
Set objWorkBook = Nothing

///


以上です。

この回答へのお礼

こんばんわ♪
早速のご回答ありがとうございます♪
動作良好でございます。

追加して頂いた所は、全くの勉強不足でした。どの様に調べればたどり着けるやらも・・・

SaveAsは一応見ていたのですが、、、ファイルフォーマットが選べるとわOrz

お礼日時：2013/05/17 23:02